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FF73 DISK ERROR RECORDING ANALYSIS PROGRAM 


ERR LOC OBJECT ope ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | 
. | 1 *SESSSESSSSSSSSSSSSSSSRSSLUSSSESSSSSSSsESssESeSSSESssseassssessssssssss 15 * a LAST CHG:01 21 77° 
* 
; ps § 17.—C«; SEO 0 
4 *$ FF7 AND DATA DECK OCP MUST BE AT THE SAME LEVEL. $ 0A00 i ERAP orner X*A00* 
¢ 
* 2 
= z $ 000% 20 xRi EQU. sd 
7 *$S$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSESSSSS 0002 21 xR2 ° ° °#&«&+bCD 2 
8 ae 0008 22 ARR FOD. iB 
: 0080 23 ssw20 EQU = x * 808 
9 * TO ADD AN SDR DEVICE: 
10 * 1. ADD TO END OF *SDRTABt 0010 24 $5W23 EQU = X*- 108 
11 * 2. GO TO OCF SOURCE, ADD NEW SYKC POINT TO END OF SDR SYNC'S 0008 25 ssw2u EQU X1088 
12 * 3. EC FF7, OCF (SO LEVFLS STAY SAME) e208 a6 cone Eo x 2008 
* 4. ADD TO SDR LIST IN BLOCK 04 
i . 0216 28 LINK EQU = X* 296! 


O21A 29 PRINT EQU x*2ta? 
O21E 30 UNPACK EQU xX*21E° 


0222 31 HALT EQU X*222¢ 
022A 32 LCAD  EQU x*22a¢ 
C232 33 ODT 5QU X* 232° 
05680 34 PRTBUP EQO x*8so° 
2020 35 DUMP Foo x*2020* 


36 SF RekeeERREEEESEESESEORE «SECTION PREFACE 889 ¢ 008400 8008868880882 80088 
37 FESR EEEEEEEEESEEREERERRERSEEEER ES CEEEEEESEEES OEEESEEE HE ESEEEEEEEEDOEERE 
0a00 PF73 Oa04 38 PID Dc XL2¢*PP73¢ 


* PROGRAM ID . 
OA02 00 0A02 39 DC ——saXLI#08 * SECTION FLAGS * 
0203 01 0003 80 pc «XL 4°48 * CURRENT ROUTIWE # * 
0A04 0000 0a05 a DC —-_- XL2*0* * N/A * 
OA06 OA16 OAO7? = 42 DC —_ AL2(RTP1) * FIRST ROUTINE * 
OA08 FFPF 0a09 3 DC —-_—« XL2* FFFP* * ERPOP RECORDING * 
OAOA C160°0 OAC 4g DC —-_- XL3 "100008 * DISK * 
OAOD £10000 — «OAOF = 4 DC —_- XL3* E10000° * 1403 PRINTER * 
i OAOE 46 FLG1S EQU +2 
0A10 890000 OA12 47 DC —_ XL3 "8900008 * DISPLAY ADAPTER 
OA17 48 PLGDA QU *#=2 
0413 511000° 0315 49 D51_~ ve XL3"511000° 


50 FFKEEEEREEEEREEEEEEEEEEESEEEKEESS £OSEEREESTEEESEESEEES £4KOEEEREESEEODEEREERED 
51 SERA EEAELESEEERESEEESEEREEEES? EEEEKEREEEECEESE EOE ESEEKEEEEONEEEEEOSD OEEEE 





DATE 29AUG75  OTNOV7S «= OMMART6 =—-243A77 oo PROG IDS» FF7=3 DATE © 29AUG7S -—-s«O7NOV75 = s«OWMAR76 ©. 21 ANT . eee  ppog IDCt*s«éPP=3 
EC NO. 827804 627805 571871. 571989 | | ; , PAGE _ 1 ZC NO. 827808 827805 571871 571989 2 : PAGE 1A 
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; er . 
PREG.“ RURGRESTIC CONROE ERG ere : FFF2 DIAGNOSTIC CONTROL PROGRAM - MODEL 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT : eee LOC oBsecT CODE ADDR STMT SOURCE STATEMENT 
2 | , Ae teeie vosnanr te l 38 RREREAEREREEERESERESEARESESSEESESERESAEESESESSSESSOSSSSSESSSS OSS AESSSS SE 
z etn : 7 ie 39 * BOOTSTRAP - SECOND CARD steak es 
i F2hSSESESES TOS 
5 COM THIS PREVENTS GENERATION OF OBJECT DECK Pi Senter en ni Te re meen eee 3 . 
6 PAP START X*O8 . 
a 7 cteneensnsensnnsnsensenensenseneessenacssnessenssnnenssnsessnesensenens , € = : a se eee enn bee oe sere ter cacar tone sis 568 . 
ed Be csak ca casos FERESEERESESEESEE 44 * BY THE IPL CARD. THIS ROUTINE READS THREE IPL FORMAT CARDS INTO #@ 
9 SKKEKKTKEKAEREKAEREKRKKCAKEAKESLEKSEEKESESEKEKSESKKESSESEKES SE NCUCH GE THE DIAGNOSTIC LOADER 1G HANCLE TEXT a 
10 elon ror eeeun G a af TEbcc ATEN THE BOGTEIRAP ROUTINE BRANCHES TO THIS PORTION OF * 
11 # LOADER FOR MFCU ° +4 
12 * THIS ONE CARD PROGRAM IS CONTAINED IN THE FIRST CARD OF THE 47 * THE DIAGNOSTIC LOADER, WHICH LOADS THE REMAINDER OF THE LOADER : 
13 * DIAGNOSTIC CONTROL PROGRAM. IT IS READ INTO LOCATIONS ee : 3) “8 s AND DCP. : 
14 * INITIAL PROGRAM LOAD. WHEN GIVEN CONTROL, THE BOOTSTRAP R 
15 © READS THE SECOND CARD OF THE DCP OBJECT DECK INTO X*200* AND : o a ees pete Ea eer eae ee ee ene 
° 0200 
4 : eugtleas 0200 52 USING BOOT2.xXR1 
18 * NOTE — THE SECOND TIER OF THIS CARD CONTAINS THE PART NUMBER AND = i eeeotee on iwses 0200 a eas eas poate ane ‘ cao Mase REGISTERS 
* EC LEVEL OF OCP. a 
EEREEEEESERESEREEESEEESEEEREEEEKEESEEREREEEEEREERESSEESE SEESEEEESLESERE 0204 D2 01 60 a BT2 a noe 
0000 21 USING BOOT1,XR1 oy 0207 F2 87 O03 
wat 57 BOOTZE HPL H5 sHH *MFCU NOT READY OR ERROR 
enceehe beat Ss at Boor} "FOS GO HALT TF MECU ERROR OR NOT READY | c 0200 EL FO OA 58 BOOT2A TIG BO0TZE(,XR2)+X*FO! GO HALT IF MFECY NOT READY OR ERROR 
peae et ies ae oa ii BoGriLeeLisetes : 38 59 L1O BOOTZ31 eXR2) XFS" LOAD READ ESR FOR ADDR 0000 
OoO7 71 F5 ILE 24 Lia BOOT11(0,XR19,X*F5! LOAD READ ADORESS near nue Biocgeie | Q 0210 Bil F5 es <0 IPL,» READ READ A CARD 
oan St Eines aE Gia SOD TTAUs "Fie Cone UNTIL DONE. Edt tt cece ° ozs el fi a 61 BOQT2B TIO BOOT2B( »XR2) »X*F1? LOOP UNTIL DONE 
oer a ny ee as Sor tena SGOT ae kiLeeEGs : Tt RROR 0219 El FO OA 62 T190 BOOTZE(,XR2)eX*FO® GO HALT IF ERROR 
nate Covee oe ss ae soo = 60 TO BOOTSTRAP ROUT INE €S ozic 4c 3B 38 0038 63 MVC = § 9160» ¥R19 59 MOVE DATA TG CORE 
0013 CO 87 0200 SS e : 9221 D2 01 3C 64 -LA 60(.XR1) »XR1 INCREMENT POINTER FOR NEXT CARD 
5 Hi *MFCU NOT READY OR ERROR ‘ 0224 AF 00 39 05 65 SLC BOOT22(1_-XR2),800T210,XR2) CONTINUE UNTIL 4 CARDS HANDLED 
0017 FO 36 5D oo ROUTE Ore aera TRY AGAIN '@  ozze £0 01 op 66 BNZ BOOT2A(»XR2) 
BORA BO Oreo - . evnre ites ae "9228 3 40 oBFF 67 MVI X*BFES,CE ¢ CLEAR PRINT FIELO 
F FE O8FF 68 MVC = X* BFE * (255), X*SFFP 
page tee os 34 ee ee i © 0235 co a7 0086 69 - 3 NEXTR : GO TO DIAGNOSTIC LOADER 
OOLF 4007D540F4F2F4F8 0038 35 oc CL29* PN 4248230 EC 827872. u° 506 e Bou eau ae 
i GOzE Cae SE TROL IES40;0 3s @ 0239 03 0239 72 800T22 DC —*rL1°3° . 
cusp eccostegus 023A 0000 0238 73 BOOT23 DC aL2(0? x 
0037 4040404003 35 ' 
5 36 & ; ACTUAL VALUES ARE IN ACTUAL CARD. : : 
e = & , 
e @ : 
& ® : 
: 
© _e 
C: | , _ |@ ; 
DATE - 29AUGT5 OTNOVTS. - WMARTE ti | PROG 10 FFF=2} F 
EC NO. 827806 827805 e2teT2. sae S _ 4 PAGE 1 | @oate 2967S —OTNOVT7S = 1 9MARTE PROG ID FFF—2 
. eo Ot ee Bo Se EL, © | EC NO. 827804 827805 827872 
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PAGE 2 PAGE 2a 
‘FF73 > DISK ERROR RECORDING ANALYSIS PROGRAM FF73> DISK ERPOR RECORDING ANALYSIS PROGRAN 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
53 ERE REEKEEEEREEEREREKTS ROUTINE 2 FeKKERKEEREEREE EEE EERE REEERE OERKE OAPFC 3D DO 2572 113 CLI TEMP, X*DO® 
Sy SERRE EEEREREREERE SEER ERE REEEEERES ERAS EREREEERERER CREE ES BORER RRR ERROR OS 0800 F2 04 14 14 JNH RTNI05 
55 * * * CB03 3C 08 23AD 115 LABEL MVI OBRTYP,8 NOT DISK ENTRY 
OA16 01 OA16 S56 RTNW pc XLVEU# * ROUTINE ¢@ ™ OBO7 OE 07 2522 2522 116 ALC - ENTADD, EXTADD 
OA17 00 OA17) »=—4§7 pc XL1¢08 * FLAG * OB0D OF 014 251A 23AD 117 RTN109 SLC OBRNT@,OBRTYP 
0A18 ODFO OA1S9 = «458 pe AL2 (RTN2) * NEXT ROUTINE * 0B13 CO 87 OAE1 118 B RTW108 
59 * j * * OB17 119 RTN105 EQU. * 
60 KEENE EEREREREREEREREEEREERERERE RE ERRORS ENE REEKE EE EE RREREEREEEROOS OB17 OD 01 251A 238D 120 cCLc OBRNT@, OBRSTA CHECK POR HALP EFTRY 
61 FERRER ERE EERE EERE EER EEE TE AEERERERERERESEREKEESEREREEEEOEEEERER ER ERO ES OBID F2 81 12 121 JE HALFNT 
QATA CO 87 O21A 62 B PRINT PRINT SSW 0B20 32 10 23AD 122 MVI OBRTYP,16 - DISK ENTRY 
QATE 43 OATE 63 pe XL1*43° OB24 OE 07 2522 2522 123 ALC ENTADD, ENTADD 
OA1F 000060FF00 OA23 64 DC XL5*FFOO! OB2A 3A 01 2522 124 SBN ENTADD,1 
OA24 3C AS 134C 65 MVI DSKDRV,X*AS* OB2E CO 87 OBOD 125 B RTN109 
OA28 CO 87 021A 66 B PRINT PRINT 0B32 126 HALFNT EQU) # 
OA2C 07 OA2C 67 pc XL1*07# MESSAGE 0B32 127 RTN106 EQU * 
OA2D 4F OA2D 68 pe AL1 (DSKM33-DSKM32) TO 0B32 OF 01 254A 23aD 128 ALC OBRNTS,OBRTYP ; 
OA2E 0A87 OA2F 69 pc AL2 (DSKM33) LOAD 129 * OBRNT@ NOW CONTAIN THE AD“ PESS 0 BYTES 
0A30 CO 87 0222 70 B HALT DRIVE 2 130 * OP OLDEST ENTRY 
OA34 FFFF 0A35 =o DC XL2*PFFF? THEN START 0B38 OD 01 251A 238F 131 CLC OBRRT@,OBRND@ 
0A36 F2 87 UF 72 J DSKN33+1 JUMP pCcts OB3E CO 84 0D10 132 BR EMPTY CHECK FOR EMPTY TABLE 
OA38 873 DSKM32 EQU *-14 133 * ‘COMPUTE ADDRESS IW BRTBL 
OA39 YOD4CID2C540E2ZEB 0855 74 pc CL29* MAKE SYSTEM PACK CONTAINING * OB42 OC 01 OCDS 2397 138 HVC) 8=—ss BYTE@, ENTADA@ 
OA41 B2E3CS5SD4UUODICIC3 74 ‘0548 3C 01 OCD3 135 AVI MASK,X*G4! 
OAS9 D240C3DE6D5E3C1C9 74 OB4C 136 RTHIO08 EQU. * 
OaS1 DS5C9D5C740 7% OB4C OC SF O8DP 24F8 137 MVC 8 =PRTBUF*S5 (96) , PBUFS9S 
O856 CSDIDSDEDIGOCSDS 0A70 38075 pc CL27* ERROR INFORMATION PFADY ON * 0B52 0C 01 2513 23a1 138 NVC TEMP,ZERO “TO BRANCH ON 
OASE C6D6D9DUCTE3CODE 75 0858 35 01 251A 1393 L OBRNTS,XR1 
OA66 DS4UDICSCICUES4LO 75 OBSC 18 02 2543 09 140 MNZ TEMP,O(,¥F1) 
OAGE D6D540 75 OB61 OF 01 2513 2513 141 aLC) 8F—ss TENP, TERP 
OA71 CEDICIESCS4OF2UB OA8B7 76 DSKS33 LC CL23"*DRIVE 2. DEPRESS START.* 0B67 C2 02 CD95 142 LA BRTBL-2,XR2 
QA79 8OCUCSDTIDOCSE2E2 76 OB6B 36 02 2513 143 A TEMP,XR2 
OA81 SOEZE3C1D9E34B 16 OB6F BS 02 60 14u L 0(,XR2) .XR2 
OA88 77 MODELG FEQU * 0B72 34% C2 OB89 185 st BRO¢3,XR2 
OA88 C2 02 0001 78 LA 1,XR2 SYNC PT 1 146 * HOVE DEVICE @ IRTO HISTORY TBLLE 
OA8B 79 ONE EQU #4 0B76 OE 01 2513 2513 147 ALC }=—«-:r TE SP, TEAP 
Oa8C CO 87 1311 80 B SYNMOV O87C C2 02 ODB3 168 LA DYTBL-1,XR2 : 
0a90 CO 87 OFFS 81 B SCAN 0B80 36 02 2513 149 A TERP,XR2 * 
82 * PRINT HEADERS OF OBR TABLE OB84 7D 89 00 150 CLI 0(,XR1),x*89* CHECK POR DA ENTRY REG 
83 * SET UP COLUMN TABS 0867 F2 01 048 151 INE 647 RO PEW 
84 * READ FIRST HALF OF OBR IN DBUF OBBA C2 02 ODO! 152 LA DACO®,XR2 YEs 
85 * TURN OFF SFLG OB8E 2C 03 0885 00 153 BYC =e PRTBUP*5 (6) ,0(, XR2) 
OA94 OC FF 2622 2722 86 MVC DBUP-1(256}) , DBUF4#255 MOVE FYRST HALF 0893 3C 01 23BB 154 AVI TABIDZ,4 
87 * READ SECOND HALF INTO DBUF OBS7 34 01 2387 155 Sst CRNTOFS ,XR1 COMEUTE COUNT GFFSET 
OASA CO 87 OFF6 88 B SCAN GB9B OF 01 23B7 1354 156 SLC CETOFS, DBUFA@ COULD BE NEGATIVE 
OASE OC SF 24F8 O8DF 89 NVC) 8 =—s- PBUF #95 (96) , PRTBUF#95 SAVE PRTBUP 157 © SAVE O,R,SHSBYTES 0,1 
90 * ROTATE TABLE DOWN UNTIL LAST ENTRY IS AT BOTTUS OBA? 1C 03 24FC 03 158 HVC = ORSNS+3 (4) ,3(,XR1) 
QAA4 OC 014 2513 OD95 91 MVC TEMP,OBR1 PLACE X'OWFF* IN TEMP OBA6 CO 87 1273 159 B HEXHEX Q BYTE 
OAAA OF 014 2513 2524 $2 SLC TEMP, DBUP+1-256 COMPUTE SHIFT COUNT OBAA CO 87 14273 160 B HEXHEX R BYTE 
OABO F2 81 24 93 JZ RTN103 TEMP CONTAIN THE # OF BYTE TO OBAE CO 87 12AP 16% B CYTBIN SENSE BYTE 0 
OAB3 39 07 2513 94 TBF TEMP,Xx*0O7* . 0BS2 CO 87 T2AP 162 B CVTBIN SENSE BYTE 1 
OAB7T CO 90 OD0S5 95 BF ERNSG OBBG6 CO 87 0000 163 BR2 B Sa8 
96 * SHIFT DOWN. 164 
OABB OC 07 252A 2722 97 RTNIO2 MVC DBUF+7-256(8),DBUF#255 SHIFT OBR TABLE DOWM 1 ENTRY 164 
GACT OC F7 2722 271A 98 KVYC DBUF*¢255 (256-8) , DBUF+255-8 {EIGHT BYTES- ONE ENTRY} 16a 
OAC? OC FP 262A 2622 ag MVC DBUF4¢7(256) , DBUF-1 164 
OACD OF 01 2513 2398 100 SLC TEMP,EIGHT Geen Gacneaee OBBA 162 060 peste ; given ; 
GAD3 CO 01 OAB 1 BBR 3 -1, 
: : 02 * a eee OBBE CO 87 1273 167 B REXBEX : COMPLETION CODE 
OAD7 103 RTN103 FQU- * WORK FROM BOTTOM UP TO FIND OLDEST ENTRY OBC2 3C 02 23BB 168 BVI TABIDZ,2 BACKUP 
OAD7 CC 01 251A 238F 104 MVC = OBRNT@ (2) , OBRNDD 169 * ABD ; 
OADD 3c 00 2523 105 MVI  DBUF-256,0 . OBC6 C2 02 2623 176 LA DBUP, XR2 RECONVERT 
QAE1 35 01 2542 106 RTN104 LL OBRNT2, XR1 QBCA 36 02 23B7 17% a CNTOFS,.XR2 BYTE 2 (PFTRY COUNT) 
OAES 1C 60 2513 00 107 SVC TENP(1),0(,XR1) OBCE &C 00 00 24FA 4172 HVC =«0€1,%2R2) ,ORSNS¢1 TO 
O2EA 3B OF 2513 108 SBF TEMP,X*OF® 0BD3 CO 87 711c2 473 B HEXDEC DECIMAL 
OAEE 3D 00 2513 109 CLI. TEMP, x*00# UBD? CO 87 OCA2 178 B PTH 107 
OAF2 F2 81 3p 110 JE RTN106 FOUND STR OF TABLE ae ve a6 oa . 
OAPS 3D AO 2513 111 CLI TEMP,X*AO® CHECK FOR DISK ENTRY DB ; 
OAF9 F2 82 07 112 aL LABEL . OBDB 3A 80 0D990 177 SBN DYPLS-1,x*80° . 5871 - CONSGLE-KEYBOARD 
DATE 29A0G75 O7NOV7S OSMAR76 213AN77 PROG ID PF7-3 DATE 29A0G75 O7KOV75 OSHARTE 2VIANT7 PROG ID PP7-3 
EC WO. 9827804 827805 571871 571989 PAGE 


2 EC NO. 827804 827805 571871 571989. — Eee 3s a 
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PAGE : 3 : PAGE 3A 
4 FF73 DISK ERROR RECORDING ANALYSIS PROGRAS FF73 DISK ERROR RECORDING ANALYSIS PROGRAN 
ERR LOC OBJECT CODE © ADDR STMT SOURCE STATEMENT ~ ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
CRDF 35 01 238F - 178 L OBRND@, XR1 CHECK QO FOR PRINTER OCB6 OD 01 238F 251A 246 cic OBRND@ ,OBRNTO CHECK FOR END 
OBE3 38 08 24F9 279 TBN QRSNS,x'*08! OCBC F2 81 20 247 JE RTNU1X 
OBE7 CO 90 OCA2 180 BF RTN107 OCBF OB 00 OcD3 OcD3 248 ALC = MASK, MASK 
OBEB CO 87 1273 181 B HEXHEX OccS F2 G1 OA 249 JNZ TBN 
OBEF CO 87 OCA2 182 B RTN107 Occ8 OF 01 OCDS5 OA8B 250 SLC BYTE@,ONE 
OBF3 183 050 EQU * 1682 OCCE 3C 01 OCD3 251 MVI MASK, X*O1* 
OBF3 3A 46 0OD90 184 SBN DVFLG-1,x "40! OcD3 252 MASK EQU ea 4 
OBF7 CO 87 OCA2 185 B RTN107 OcD2 38 00 0000 253 TBN TEN #=-3,%-¢ 
186 OCDS OCDS 254 BYTE@ DS OAL2 
OBFB 187 QEFO EOU * 5203 OCD6 F2 90 06 255 oF RTRVVX 
OSFB 3A 04 0D90 188 SBN DVFLG-1,x¢0a OCD9 OE 01 251A 2398 256 ALC OBRNT@,EIGHT 
OSFF 38 20 OADE 189 TBN FLG14,xX*205 TEST FOR 14803 ATTACHED OCDF cO 87 OBSC 257 ROENVIX B RTNI08 
Oc0O3 F2 320 08 190 JF P1403 OCE3 C5DSDSDED940C8CS ODCO 258 MSGX DC CL30*ERROR RISTORY TABLE IS INVALID# 
6C0O6 3C FI 0882 1371 NVI PRIBUFS2,Ciit OCEB EZE3D6EDS9E840E3Ci4 258 
OCOA 3C FU 0883 192 MYVI PRTBUFS3,C? 4? OCP3 C2D3CS5S4HCCSE240C9 258 
OCOE 38 04 24FB 1932 P1403 TBN OQRSNS+2,X'09? CHECK FOR HAMMER ECHO CHECK OCFB D5SESCiID3ICICH 258 
6C12 CO 90 OCA2 194 BF RTN107 0Db01 4Ooc4act40d CD04 259 DACCN DC CL&® DA § 
OCi6 GE 01 23B7 OASB 195 ALD = CNTOFS,ORE LOOK AT LOW BYTE OF LDPAR O0DO05 260 920 EQU * 
@ctc C2 02 2623 196 LA DBUF,XE2 CONVERT LDPAR TO A DECIBAL 6505 261 9390 E£QU * 
6C2G 36 02 23837 197 A CNHTOFS, XR2 HAMMER ¢ ODO0S 262 Q80 EQU * 
0cz8 BD 7c 00 198 CLI O(,XR2) ,X*7C* 0D05 263 960 EQU s 
 OC27 F2 82 65 4199 JL INVALD OD0S 264 Q70 EoU & 
OC2aA 38 20 CADE 200 TBN LG14,x*20° TEST FOR 4803 ATTACHED 9D95 265 990 EQU * 
OC2E P2 719 39 201 JT PT1403 6D05 266 Qaod EQU * 
C31 8F 00 GO 23BC 262 SLC 0€,XR2} -1723.. OD0S 267 QBO EQo * 
0C36 BD 16 00 203 eLi O(, XR2) ,24& 0D0S 268 QCO EQO * 
6C39 F2 8& 22 204% JH $21 0D0S 269 QDdo EQU * 
OC3C BP 710 00 : 205 CLI 0 {, XR2} ,16 0D05 CO 6&7 O21A 270 ERMSG B PRINT 
SC3F P2 84 14 206 JH A107 Ob09 07 opo0o 271 bc XLUO78 
2042 BD Oc 00 207 CLI 0(,XR2) ,12 ODOA 1E ODOA 272 BC IL4* 30° 
OCHS F2 64 06 208 JH A1t9 ODGB O0D0D ODO0C 273 pc AL? (BSGX) 
6C48 BD 05 00 209 CLI 0(,XR2),5 ODOD F2 87 1F 274 d RTWUXX 
0cs9 «210 5 EQU ee? 275 
OC&B F2 02 08 271 JNL R07 OD10 276 EMPTY EQU * 
OCKHE BE 00 00 23BE 242 a119 ALC 0(,XR2) ,1119 ODIO C2 02 0003 277 LA 3,XK2 SYNC PT 3 
0C53 P2 87 OD 213 a DIVBY4 OD14 3A 10 OEFS 278 SBN SCHPLG,SPLG 
$C56 BE 00 90 23BD 278 A107. ALC 0(,XR2) ,3107 0D18 CO 87 OEFE6 279 B SCAN 
OC5B F2 87 05 215 J DIVBY4 Optic c2 02 0004 280 RTN1X LA u,XR2 SYRC PT 48 
OC5Z 8F 00 00 23c0 2416 $21 SLC 0(,XR2),121 OD20 3A 10 OEFS 281 SBN SCHFLG,SFLG 
9C63 CO 87 1199 217 DIVBY4S B RSHIFT OD24 CO 8&7 OEFE 282 B SCAW 
6C67 F2 87 1E 218 . J BOTH 283 * END PRINT OUI OF OBR TBL 
OC6A 219 PTIRG3 EQU * 284 * CHECK SS¥W20 TO RE-INITIALIZE OBR TBL 
OC6A F2 81 OF 220 JE ADD8s OD28 39 80 020C 285 TBF SBYTES ,SS¥20 
OC6D BD 7E 00 221 CcLi 0(,~XR2) ,X*7E* OD2C F2 90 2E 286 JF RTNGXt 
OcTO F2 84& 140 222 JH SUB126 OD2F 287 RTNIXX EOU * 
0C73 BE 00 00 0c49 223 ALC 0(1,XR2),15 ADD § OD2F 3c 00 2722 288 AVI DBUP+255,x°00° 
OC78 F2 87 OD 224 J BOTH 0D33 OC FE 2721 2722 289 MVC DBUF+254 (255) , DBUP¢255 
OC7TB 8E 00 00 23983 225 ADDS ALC 0(1,XR2) , EIGHT 0D39 CO 87 1333 290 B DISKIO 
OCcB8G F2 87 G5 226 J BOTH OD3D 02 OD3D 291 pc XL7*02° WRITE 
0C83 8F GO 00 23BF 227 SUBI26 SLC 0(1,XR2),1126 OD3E 3C IC 134P 292 AVI 8 DSKSEC,Xx*1C* 
228 . OD4S2 OC 03 2626 OD95 293 NVC DBUF¢3 (4) ,OBR1 
ces co 87. 11C2 229 BOTH B HEXDEC OD48 CO 87 1333 294 B DISKIO 
ocec F2 87 13 230 J RTW107 OD&aCc 02 ODsc 295 DC XL1°02° WRITE 
OC8PF 231 INVALD EQU * 296 CESEEREREERRESE SESE ES ESERERETEEES OHSS EREEEESESETEOEED REO REESE 
OC8F CO 87. 12F4 232 B PRTPOS 248 : 297 * IP 3340 ATTACHED, REMIND CE THAT OBR, SDR PRINTED LATER *...- 
6C33 &C 06 00 23C7 233 AVC 0(7,XR1) , INV INVALID KANSER ¢ 298 ERSTE KEES EREESEEESESEEREE ESOS SEEEEESEREREEEEEEREREEOERESOES 
ocss F2 867 07 2348 J RTN107 299 ; 
235 OD4D CO 87 021A 300 RTN334 =i PRINT PRINT --- 3340 --- 
0C9B 236 OFO EQCU * 5424 0D51 02 OD51 301 pc XL1°02* 
OC9B 3a 08 OD90 237 SBN DVFLG-1,x*08* OD52 14 OD52 302 DC AL1 (MSG3-NSG3B) 
OC9OF F2 87 00 reo J RTN107 0D53 13a2 0D54 303 DC AL2 (MSG3) 
304 
OCA2 280 ®87N107 EQU * 0D55 cO 87 021A 305 B PRINT P 
Bere oF 87 O21A ae oe B PRINT PRINT LINE 0D59 06 0D59 306 pc XL1706° Pant een Sonate Ee eeeU EDU E Ee 
A Dc XL1¢21¢ OD5A 50 ODSA 307 pc ALi §- 
OCA7 OD O1 238P 251A 243 CLC OBRND@, OBRNT@ CHECK FOR END OD5B 13F2 OpSc 308 pc aL2qnseay 
CCAD F2 81 6C 244 JE = -RPRAX ODSD 309 RTN1Xi EQN * 
O0C30 OE 01 251A 2398 245 ALC OBRNTS, EIGHT 310 * PRINT OUT MEANINGS OF ENTRIES THAT WERE IN OBR TBL 
DATE 25A0G75 O7TNOV75 O4UMARTG 213AN77 PROG ID FP7-3 DATE 29A0G75 O7NOV7S O4MAR76 213AN77 PROG ID , PP7-3 
EX NO. 827804 827805 571871 571989 PAGE 3 EC NO. 827808 827805 571871 571989 
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IBM MAT 


FF73 
ERR Loc 


OD5D 
0D63 
0D67 
OD6N 
0D70 
OD74 
0D78 
OD7C 
OD82 
ODas 
Cp8C 


DATE 
EC. BU. 


Be a # & e a = e rte onen m “_ 
3 : a aonaed Bk Ba ae e orient RN aa anemic he lade, Seana etoumepipmnned etd aioe nts mee 


NTENANCE DIAGNOSTIC PROGRAM | 


DISK ERROR RECORDING ANALYSIS PROGRAMS 


OBJECT CODE ADDR STMT SOURCE STATEMENT 


OC 01 23AF 23A4 311 


MVC SYNC#, FIVE 
3C 10 2514 312 NVI CNT, 16 
OF 01 0D91 0D91 313 RINT11 ALC DVFLG,DVFPLG 
F2 20 OC 314 JNOL RIN112 
35 02 23AF 315 L SYNC#,XR2 
3A 10 OFFS 316 SBN SCNFLG,SPLG 
CO 87 OEF6 317 B SCAN 
OE 01 23AF OA8B 318 RTN112 RLC SYNC, ONE 
OF 00 2514 OA8B 319 Suc CNT,ONE 
cO 01 0D67 320 BNZ RTWN1171 
CO 87 0216 321 B LINK 
2940875 O7NOV75 OGMARTE 243 AN77 
827804 827805 571871 571989 


PART NO. 4248241 IbM MAINTENANCE DIAGNOSTIC PROGRANS PART NC. 42408241 
PAGE a PAGE GA 
4 FF73 DISK ERROR RECORDING ANALYSIS PROGRAM 
ERF LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
SYNC PT 5 323 *® OBR DEVICE FLAGS 
0D90 0000 OD91 324 DVFLG pvc _ xL2¢08 
0D92 O1FFOIFF 0D95 325 OBR DC —-_« XL&*O1PFOIFF® 
326 * DEVICE BIT BYTE SYNC PT 
327 * 5471 0 1 5 
328 * 1482 1 1 6 
329 * BSCA 2 1 7 
330 * 3 1 8 
331 * 5424 4 1 9 
332 * 5203/1403 5 1 10 
END ROUTINE 14 333 * 6. 1 "1 
334 * 7 1 12 
335 * 8 2 13 
336 * 9 2 14 
337 * 10 2 15 
238 * 1 2 16 
OD96 ORDB OD397 339 BRTBL DC AL2 (Q10) Sa7t, KEYBOARD 
0D98 OD0S oD99 340 pC =—- AL2.(Q20) K/A 
OD9A ODOS ODSB 341 DC =—_- AL. (030) W/A 
Opyc oD0S ODID 342 DC —-_ AL. (040) W/A 
ODIE OBF3 OD9F 343 DC =—-_- AL2. (050) 1442 
ODAO ODO5 ODA1 344 DC —_- AL2. (060) N/A 
ODA2 0D0S ODA3 345 DC =—- AL2. (070) Wea 
ODAY OBBA ODAS 346 pe AL2 (980) BSCA 
ODA6 OD05 ODA? 347 DC —_— AL. (090) W/A 
ODA8 ODOS ODA9 348 DC = AL2 (QAO) N/A 
ODAA ODO05 ODAB 3&9 bc AL2 (QB0} W/A 
ODAC OD05 ODAD 350 pe AL2 (QCO) N/A 
ODAE 0D05 ODAF 351 PC = AL2. (QD0) N/A 
ODBO OBFB GDBt 352. BC AL2 (QEO) 5203/1403 
ODB2 OC9B ODB3 353 Bc AL2 (OFO) 5426 
ODB4 354 DYTBL EQU *#. 
ODBS FSFPF&FTF1 ODB7 355 pc CLO*Su7te 5a71 
ODBB 40404040 ODBB 356 pcs CLE ‘ N/a 
ODBB 357 BLANK EQt *~=1 
ODBC 40404046 CDBF 358 bc cLas i W/A 
ODCO 40404040 opc3 359 on ‘ w/a 
ODCc4e FIFUPar2 opc7 360 pC. CL&*18e2* ahs 
ODCB 40404040 ODCB 361 pc CLat : N/A 
ODCC 40404040 ODCF 362 DCs ‘ w/a 
ODDO C2E2C3C1 ObD3 363 pc CLa*Bscat BSCA 
ODDS &0804040 ODD7 364 Dc CL&¢ : N/A 
ODDB 40404040 ODDB 365 pC «CLG , w/a 
ODDC 40404040 ODDF 366 pc séCLLNS . w/a 
ODEO 4040480480 ODE3 367 DC CLa¢ e N/A 
ODES 40404040 ODE? 368 pc CCL ‘ N/A 
ODES FSF2FOF3 ODEB 369 DC = CL8*5203° - $203 
ODEC FSF4SF2F4 ODEF 370 pe CL4*S42K0¢ 5428 
PROG ID FF7-3 DATE 29A0GT5 O7NCV7TS. O& MARTE  2USAaRTT PROG ID PYT-3 
PAGE 4 EC 8O. 827804 827805 571871 571969 . : PASE aA 





PART NO. 82482401 
IRM MAINTENANCE DIAGNOSTIC PROGRAM . ce No. ange es MAINTENANCE DIAGNOSTIC PROGRAMS | pe is a 
FF73 DISK ERROR RECORDING ANALYSIS PROGRAS ‘ FF73 DISK ERROR RECORDING ANALYSIS PROGRAS 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
372 SHERKKEREEREEEEHREREEEA ROUTINE 2 REESE REEEDEEEE SE + OREEEE EE REKER OEB2 CO 87 OEF6 440 B SCAN . 
373 REKEKKREARAEEEEES SEEKER EERE REE REEEAKEKEEKEEREKEAKEEEREKEKEREKER ERE OEB6 3C 01 23BB aut MVI TABIDX,7 : 
374 * * * OFBA OF 00 23A2 0F26 842 SLC CCNT,TWO CRECK FOR LAST LINE 
ODFO 02 ODFO 37& RTN2 pc XL1¢2¢ * ROUTINE # * OECO 3D 16 23A2 G43 cLI CCNT, 48-26 
ODF1 00 ODF1 376 pc XL1°0* * FLAG * OECH CC 01 OE9B — ae se one SP RES 
: * NEXT ROUTINE * 
ODF2 1770 Pee ee ae pe cee enee?) tetas * OEC8 39 80 020C 446 TBP SBYTE4,SS¥20 
37Q FREAK HRAEEREEKEKEREREERERE EKERERE EE EEE ERERRAEAREEKAERRERKERRERERES EKER KE OECC F2 90 05 44? JF SDRI1 
3B KERR KEREREEEEK KEES ERERERERERESEEEREEETEEEEKEESESEEREREERREEREREEEEERAKE aa S 87 1333 sane as te eta seine 
384 PRINT SSW OED . 
ce Beso teas pee. eed OED4 OF 01 23AF OA8B 450 SDR1 ALC SYNC#, CNE 
ODFE 38 20 OAOE - 384 TBN  FLG14,X*20° 1403 ATTACHED? OEEO OF 00 2514 OA8B 452 SLC CNT,ONE 
OFO2 F2 96 O4 385 JF *+7 No OEE6 CO 01 OE3B 453 BNZ SDR6 
0E05 3C EY OEFO 386 MVI E1,X*E1# YES OEEA CO 87 C216 458 3) LINK 
CEOS 39 20 OAT4 387 TBF D51-1,x* 26! 51 PRESENT? 455 
OEOD F2 10 04 388 JT ae "7 oe Ree 
3c OEEF 389 BVI pp51,x¢5¢ YE 
ae 338 30 OAT1 390 TBW FLGDA,X*206°* DA ATTACHED? OEEE 4&56 SDRTBL EQU * SYKC ¢@ 
OE18 F290 04 391 JF x47 . NO OEEBE 10 OFEE &57 DC XL7*° 1708 5a74 
OEIF 3c ag 134C 393 MYI DSKDRV,X°a8? : CEFO EO OEFO 459 E1 pe XLT*EOS §263/71803 
0E£23 c2 02 0002 394 LA 2,XR2 OEP1 FO OEF1 4&60 pc XLI*FO? 5426 
OF26 395 TWO EQU) ¥*-1 OEF2 80 OEFF2 461 pc XL1°80° BSCA 
O0£27 CO 87 1311 396 B SYNHOV SYNC PT # 2 OEF3 88 OEF3 462 DA89 pc XL1°88° BSCA 2/DA 
OE2B 397 SDRNXT EQU. # OEFG 40 OEFS 463 pc XLV¢ac? 3781 
OE2B 3C 07 2514 398 AVI CNT,SDRLEN-SDRTBL NUMBER OF DEVICES IN SDR TABLE 464 
QE2F 3C 03 23AP . 399 NVI SYNC#,3 OEPS 465 SDRLEN EQS * THIS 2QU BUST AT END OF SDRTAB 
0233 C2 02 OEEE 400 LA SDRTBL, XR2 466 
O£37 34 02 2518 801 ST SDRIDX, XR2 467 * EXD ROUTINE 2 
OPFPIB 35 01 2518 G02 SDR6 L SDRIDX,XRi 
O23F C2 02 0232 403 LA ODT, XR2 
O£42 6D 00 00 00 404 SDR2 CLC 0(1,XR1) ,0(,XR2) SEARCH UDT FOR CODE 
OE87 F2 81 OD 405 JE SDRFND 
JEGA BS 10 01 806 TBN 1(,XR2) -X" 10! CHECK FOR END 
OEUD F2 10 84 407 oT SDR 
GE50 E2 02 03 808 LA 3(,XR2) , XR2 
OF5S3 CC 87 OEK3 809 B SDR2 
410 * 
OE5S7 411 SDRFND EQU * 
0257 35 02 23aF 812 L SYNC#, XR2 
OESB 34 10 OEFS 413 SBN SCIFLG,SPLG 
. SESP CO 87 OFFE6 414 B SCAN 
0£63 3B 02 OEFS 415 = 7 SBF SCNFLG, BSFLG 
OE67 35 01 2518 816 L SDRIDX,XR1 
OE6B 7D 80 00 417 CLI 0 (,XR1) ,xX*80! CHECK FOR BSCA 
QEGE F2 81 26 . 418 JE SDRBSC 
QGE71 7D 88 00 419 CLI 0(,XR1) ,x*88°* 
OE74 F2 81 20 420 . JE SDRBSC 
O£E77 7D 89 00 421 ; CLI 0 (,XR1) ,x*89!* CHECK FOR DA 
OE7A F2 81 1A &22 JE SDRBSC 
OE7D 423 SDRS £QU * 
OE7D CO 87 11¢c2 424 SDR3 B HEXDEC 
OEB1 OF 00 2428 OASB 825 SLC TABTBL (1) ,ONE 
OE87 CO 01 OET7D 426 BNZ SDR3 
O£8B CO 87 O21A 427 B PRINT 
OESF 21 OE8F 4&28 BC XLU*21¢ 
CE90 CO 87 OEF6 429 AR SCAN 
OE94 F2 87 31 430 i J SDR4 
431 * 
OE97 432 SDRBSC EQU * 
. O8E97 30 30 23A2 933 MVI CCNT,48 
' OF9B CO 87 11c2 834 SDRBS B HEXDEC 
OE9F 3C 02 2389 435 NVI CNTLNG,2 
- QO£A3 GE 061 23B7 23a2 836 ALC CNTOFS,CCNT 
OBAI CO 87 11¢C2 437 B HEXDEC 
OQEAD CO 87 O21A 938 iB PRINT 
OEB1 21 OEBY 439 pes XL A*2178 


DATE 29a0675 O7NOV75S O4NARTE6 21J3AN77 


PROG ID | PF7-3 DATE 29AUG75 O7NOVT7S OSMART76 213AN77 PROG ID PP?-3 
EC NO. 827808 827805 571871 571989 PAGE. 5 EC NO. 827804 827805 571871 571989 
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PAGE 6 PAGE 61 
FF73 DISK ERROR RECORDING ANALYSIS PROGRAM FF73 DISK ERROR RECORDING ANALYSIS PROGRAM 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADPR STMT SOURCE STATEMENT 
GEOG FERRER EEREREEEEERREREEREREEEREE EE EEE AKER REE EKE EE EEEE EEE KE EE EEE ERREEERE OFBE 35 02 2502 535 L CSTRO,XR2 
470 * SCAN * * OF92 BD DO 00 536 NXxT2 CLI 0(,XR2),X'DO® 
471 eeetee ee * OF95 F2 81 83 537 JE aSG 
472 * CONTROL CHAR * OF98 8D 4c 00 538 CLI 0(,XR2),ct<* ; 
473 * ( PRINT LINE ?-BLANKS, EXCM-ASTERISK * OF9B F2 81 4C 539 JE DSK 
474 * < DISK INF. * OFOE BD 4a 00 540 CLI 0(,XR2),c*¢e® 
475 * CENT COUNTER INF * OFA F2 81 63 541 JE CNTR 
476 * > TAB INF. * OFA BD 6E 00 542 CLI 0(,XR2),C*>?* 
477 * % RETURN * OFA7 F2 81 28 543 JE TAB 
478 * + LINE SPACE * OFAA BD 6C 00 Say CLI 0(,XR2) ,C*S* 
GTQ KEEREEEEEEERE ER EE ERE RE EER EERERERER ERE EEREEAEE EER EEREREEEEEE EER EE KEEKEEE OFAD F2 81 14 545 JE RETURN 
OFFS 80 OEF5 48C SCNFLG pC XL1*80¢ OFBO BD 4E 00 546 CLI 0(,XR2),c*%¢? 
481 * *BIT* * MEANING * OFB3 F2 81 47 547 JE LINE 
0080 482 FFLG Fou =—s x" 808 0 FIRST FLAG OFB6 D2 01 01 548 LA 1(,XR1) ,XR1 UP PBUF ADDR. 
483 * EQDU) = =x*uos 1 OFBI 6C 00 00 00 549 HVC} 3=—- O(, XR1) ,0(, XR2) HOVE CHAR 
0020 484 NFLG EQU) = x*20# 2 NON-STANDARD PACK OFBD E2 02 01 550 LA 1(,XR2) ,XR2 UP PTR TO DATA CARD CEAR. 
0010 485 SFLG EQU) =x*10# 3 SYNC FLAG OFCO CO 87 OF79 551 B NXT? 
0008 486 ZFLG EQU- x*Oge 4 ZERO FLAG $52 
0004 487 UFLG EQU x'oae -5 USED FLAG OFCX 553 RETURN EQU * 
0002 488 BSFLG EQU) x*02! 6 PRINTER FOR SDR TABLES OFCY OE 01 2502 OA8B 554 ALC CSTR&,ONE UP PTR TO DATA CARD CHAR. 
4e9g * EQU. xfot1? 7 OFCA 3B 10 OEFS 555 SBF SCNFLG,SPLG TORN OFF SYNC PLAG 
OEF6 490 SCAN EQU) # OFCE CO 87 0900 556 B +-¢ SCAN EXIT 
OEF6 34 08 OFD1 491 st SCNEXT, ARR OFD1 557 SCNEXT EQU ¢-1 
OEPA C2 01 23C2 492 LA SYNTBL-6,XR1 553 
OEFE 36 01 23A6 - 493 SC1 A SIX,XR1 OFD2 559 TAB EGU. Ct 
OFO2 36 02 23AA 494 A FPFF,XR2 OFD2 CO 87 116D 560 B PACK 
OF06 CO 01 OEFE 495 BNZ sci OFD6 OC 10 2438 24~a9 561 NVC TABTIDL¢16 (17) ,PBUFe16 
OFOA 38 10 OEFS 496 TBN SCNFLG,SFLG TEST SYNC FLAG ON OFDC 3C 01 23BB 562 BVI TABIDX,1 
OFOE F2 90 60 497 JF sc3 OFEO OE 01 2502 OABE 563 Inc ALC =©CSTRO,ONE 
OF11 38 80 OEFS 498 TBN SCNFLG,FFLG OFE6 7O 87 OFT71 564 B NEXT 
OF15 F2 10 OB 499 or $Cc2 565 
OF18 1D 03 2498 03 500 sYNt CLC CRDNMSE:«;,3(,XR1) OFEA 566 DSK EQU * 
OF1ID F2 81 OB 501 JE SYN2 OFEA CO 87 116D 567 B PACK 
OF20 F2 84 20 502 JH RELOAD OFEE 0C 00 134F 24899 568 MYC DSKSEC (1),PBUP 
0OF23 503 SCc2 EQU- it OFF4 CO 87 7333 569 B DISKIO 
OF23 CO 87 10A9 504 | B READ OFF8 07 OrF8 570 pc XL1°01° READ 
OF27 CO 87 OF18 505 B SYN1 OPPS CC 87 OFEO 571 B INC 
OF2B 58 01 05 04 506 SYN2 MZN 5(,XR1),4¢,XR1) S72. 
OF2F 1C 00 23B1 05 507 MVC) 8 =—6pH28 (1), 5(,XR1) BRING OFFSET TOGETHER OFFD 573 LINE rou. * 
OF34 35 02 23B1 508 L H24,XR2 OFFD 08 03 107D 2499 574 HNN. SPCNT, PBUF 
OF38 36 02 2391 509 A CBUF@,XR2 1003 CO 87 OFEO 575 B Ine 
OF3C 34 02 2502 5106 ST CSTR@,XR2 SET UP COLUMN START ADDRESS 1007 576 CNTR rou) ® 
OF4O F2 87 2E 511 J NEXT 1007 CO 87 176D S77 B PACK 
OF43 512 RELOAD EQU) * 100B OC 00 23B7 2499 578 NVC CNTOFS (1), PBUF SET CRTOPS 
OF4&3 2D C1 0232 513 CLI X*232',x'cit TEST FOR DISK DCP 1011 0C 00 23B9 249A 57S MVC CNTLNG (1), PBUF¢1 SET CNTLNG 
OF47 F2 81 OF 514 JE sca 1017 CO 87 OFEO 580 B rnc 
OF4A CO 87 O21A 515 B PRINT . 381 
OF4E 87 OFUE 516 DC XL1° 878 1018 582 MSG EOD 
OFGF 11 OF4F 517 pc IL1*17* 101B C2 014 0880 583 LA PRTBUF,XR1 
OF50 OF70 OF51 518 pc AL2 (ikLDMSG) 10%P 70 40 SF 584 NVI 95(,XR1),C* ° 
OF52 CO 87 0222 519 B HALT 1922 SC 5E SE 5P 585 MYC) 8=—«- 9.485 (95, X¥R1) , 95 (. XR1) 
OFS6 OOEA OrF57 520 pc XL2°OOEA* RELOAD DATA CARDS 1926 C2 02 2499 586 LA PBUF,XR2 
OF58 521 SC4 -EOU * 102A 587 HSG1 EQ * 
OFS58 3A 80 OEFS 522 SBN  SCNFLG,FFLG 102A BD 6F 00 588 CLI 9 0(,XR2),C*?* 
OF5C CO 87 OF23 523 B sc2 702D F2 8% 68 58S JE SPACE 
CF60 DICSD3PECIC4KHOCK OF7T0 524 RLDMSG pC CL17*RELOAD DATA CARDS* 1030 BD 5A 00 596 CLI = O(,XR2) ,CIE*. 
OF68 C1IE3C1I40C3C1D9C4 524 1033 F2 81 4C 591 JE RSTER 
OF70 E2 524 ; 1036 6c 00 00 00 592 MVC 0O4,XR1),0(,XR2) MOVE CHAR TO PRTBUP 
OF71 525 Sc3 EQU * 103A D2 01 01 593 LA 1(,XR1) ,XR1 INCR. OTR TO PRIEDP 
OF71 526 NEXT EQU * 103D E2 02 01 594 La 1(,XR2) ,X22 INCR. PTR TO PRUF 
OF71 C2 01 2498 527 LA PBUF-1,XR1 1040 34 02 2500 595 MSGCK ST PSTRO,XR2 
OF75 35 02 2502 528 L CSTRO,XR2 10464 OD 01 2500 24FE 596 CLC PSTRO,PENDD 
-OF79 34 01 24FE 529° nNxT1 ST PEND, XR1 104A CO O4 1022 597 BNH #HSG1 
OF7D 34 02 2502 530 ST CSTR@,XR2 TOKE OB 01 2502 OA8B 598 ALC CSTRO,ONE END OF COMMENT 
OFE1 OD 01 2502 2393 531 CLC CSTRO@,CEND@ 1054 OD 07 2502 2393 599 CLC CSTR@,CEND@ CHECK FOR RETURN CHAP 
OP88 532 CHKSW EQU  *+1 1058 600 CHKSW1 END ¥*41 
OF87 F2 82 08 533 JL NXT2 105A CO 82 1068 601 BL NSG2 
OF8A CO 87 10A9 534 B READ 1052 OC 5F 26F8 O8DF 602 MVC «©PBUFS+95 (96) , PRTBUFS95 
DATE 29AUG75 O7NOV75 OSMART76 213AN77 PROG ID FP7-3 DATE 29AUG7S O7NOV75 O&M R76 215 ANT7 PROG ID sie 
EC WO. 827804 827805 571871 571989 PAGE 6 EC NO. 827804 827805 571871 5710389 PAGE 
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1064 
1068 
TO6E 
1072 
1075 
1079 
1O7D 
107E 


1082 
1086 
1989 
108C 
1091 
1095 


1098 
109C¢ 
109F 
TOA2 
10A5 


DATE 
EC NO. 


OBJECT CODE. 


co 
oc 
35 
BD 
co 


CO 


20 
co 


A8 
BC 
B6 
E2 
co 


29A0G75 
827804 


87 
5F 
02 
6C 
81 
87 


87 


01 
5C 
01 
00 
01 
87 


01 
00 
01 
02 
87 


10A9 
O8DF 24F8 
2502 
00 
OF71 
O27A 
107D 
OF71 
1082 
02 01 
00 
01 
02 SABB 
1086 
OA 


1098 
02 01 
07 
02 
03 
7040 


OTNOV75 
. 827805 


603 
6048 
605 
606 
607 
608 
609 
610 
611 
612 
613 
618 
615 
616 
617 
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623 
6248 


MSG2 
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ASTER 
ASTI 


SPACE 


SP1 
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B 
MVC 
L 
cLr 
BE 
B 
pc 
B 
EQU 
NZN 
MVI 
LA 
SLC 
BRZ 
J 


EQU 
MZN 
NVI 
A 
LA 
B 
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571989 


PART NO. 
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ADDR STMT SOURCE STATEMENT 


READ 
PRTBUF+95 (96) , PBUF¢95 
CSTR®,XR2 
0(,XR2),C'S!? 

NEXT 

PRINT 


- XL1*20° 


NEXT 
* 


2(eXR2),1(,XR2) 
0(,XR1) ,Ct*? 
1(, XR1) ,XR1 
2(1,XR2) ,ONE 
AST1 

SP1 


x 
2(,XR2} 1 (,XR2) 
1(,XR2},X*008 
2(,XR2)} ,XR1 
3(.XR2) .XR2 
MSGCK 


PROG ID 
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7 PAGE 7A 
FF73 DISK ERROR RECORDING ANALYSIS PROGRAM 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
626 SHESK EAH EEEKEKEKASESSEKSEKSEREESACE EE SAERERESEREE SSE SAKE TEKKEKEEREEKEEEER ERE 
627 * READ * 1. READS DATA CARDS INTO PRTBUF 
628 t#teees 2. CHECK SEQUENCE OF DATA CARDS * 
629 ¢ 4. MOVES DATA CARD FROM PRTBUF TO CBUF * 
630 + 5. RESETS CSTR® * 
631 * 6. PROVIDE A MESSAGE AND HALT TO USEP IP DATA CARDS ARE * 
632 * NOT IN ORDER * 
633 * * 
634 CLERK EEREREKEE KE SEEERESESERREREAEASEEEEARSETASEEEEEAEERSEECKEREREEERERERERES 
10A9 635 READ EQU. * 
10A9 34 08 1112 636 ST  REXT@,ARR 
10AD 38 80 OEFS 637 RST TBN SCNFLG,PFLG 
10B1 F2 90 25 638 JF RDI 
633 * READ HEADER CARD 
10B4 04 30 2498 239C 640 ZAZ  CRDNMB(4} ,DZERO SET CRDNNB TO 0 
10BA 3D C1 0232 644 CLI X*232",x'C1" TEST FOR DISK DCP 
10BE F2 01 OA 642 INE = RD2 
10C1 CO 6&7 022A 643 B LOAD 
10c5 20 10c5 644 pC 8s XL1#20¢ 
10C6 DOCP 10C7 645 DC —-—saKL2* pocre POSITION DISK HEAD 
10C8 F2 87 05 646 3 RD4 
10CB CO 87 022A 647 RD2 B LOAD 
1OCF 10 ‘OCF 648 DC XL1#108 
10D0 OD 03 O8DF 2498 649 RDS CLC = PRTBUF¢95 (4) ,CRDNNB TEST FOR HEADER CARD 
10D6 F2 01 05 650 INE = RD3 
10D9 651 RDI EOD 
10D9 CO 87 022A 652 B LOAD 
TODD 10 10DD 653 DC XL" 108° 
10DE 654 RD3 ZOU) Ot 
10DE CO 87 021E 655 B UNPACK 
10E2 01 10B2 656 DC XL 1# 018 
10B3 OA01 10E4 657 DC = AL2 (PID) 
10Z5 115B 10E6 658 DC —- AL2 (LEVEL) 
10£7 OD 00 O8DB 115B 659 CLC = - PRTBUF*91(1) , LEVEL CHECK LEVEL OF OCF (DATA CARDS) 
10ZD F2 01 58 660 JNE  NSLEV 
10F0.06 30 2498 239D 661 AZ  - CRDNMB(4) , DONE 
10F6 OD 03 2498 O8DF 662 CLC CRDNMB (4), PRTBUFCOS 
1OFC F201 18 663 JNE  UNORD 
1OFF OC SP 2498 OSDF 664 HVC CBUP¢95 (96) ,PRTBUFS9S 
1105 0C 01 2502 2391 665 MVC ©CSTR@, CBUP@ 
110B 3B 80 OEPS 666 SBF  SCNFLG,PPLG 
110P CO 87 0000 667 B aad 
1112 668 REXT® = EQU #1 
1113 CO 87 021A 669 UNORD 8B PRINT 
1117 87 1117 670 pc 8 XL1°87* 
1118 23 1118 671 DC «IL 19358 
1119 1147 WAIA 672 DC = AL2. (RMSG) 
111B CO 87 0222 673 B HALT 
111" 0O0EC 1120 678 DC =—«- XL2*00EC® DATA CARDS KOT IW ORDER 
1121 CO 87 1113 675 B URORD 
1125 C4C1E3C140C3C1D9 1147 676 RASG DC €CL35‘DATA CARDS NOT IW ORDER, RE-RUN ERAP* 
112D C4E240DS5D6E240C9 676 
1135 D540 DED9CuC5 DIEB 676 
113D D9C560D9END540C5 676 
1145 D9C1D7 676 
1148 CO 87 021A 677 NSLEV iB PRINT 
W14Cc 87 1W4c «678 DC xXL1°878 
114D 12 114D 679 pc CIL4#188 
114B 116C 114F 680 DC —-_—« AL2 (LVLMSG) 
1150 CO 87 0222 681 B HALT 
1154 OOZE 1155 682 DC =—-_- XL2*00EE* 
1156 CO 87 10AD 683 B RST 
115A 0000 145B 684 LEVEL pc xL2"008 
V15C 60D7D9DEDTIC5SD94O 116C 685 LVLHSG DC  CL17*-PROPER LEVEL OCF* 
1164 D3CSESCSD340F0C3 685 
116C C6 685 
FF7-3 DATE  29AUG75 O7NOV7S O4MART6 213ANT77 PROG IN FPT-3 
7 EC NO. 827804 827805 571871 571989 PAGE 
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EKR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


687 TERRA EREREREE ERE S ERE EREER EERE EERE EERE ERE EERE EEK EEEE REE REE R EERE KER ES 725 SERSERERESSSESEESE SEES SEER ESTEE SEES ERO RSEOE SESE RENO R EERE EERE SECEREEEES 
688 * PACK * PACKS DATA IN PBUF BACK INTO PBUF FROM LEFT TO RIGHT * 726 * 





HEXDEC * CONVERTS A HEX ® TO A PRINTABLE DECIMAL @ IN PRTBUP ® 
689 **eeen8s * 727 *teeeresaeees ee WITH LEADING ZEROS SUPPRESSFD * 
690 * * 728 * 2 
691 AN AT AA WH A AR A A RE OE RE EE EEE EEE OER 729 * LENGTH OF HEX @ IS CONTAINED IN CNTLNG * 
692 730 * LOCATION OF RIGHT PYTE POSITION OF THE HEX @ IS * 
116D 34 08 1198 693 PACK ST PEXT@, ARR 731 * @ (DBUP) *CNTPOS*CNTLNG-1 . 
> 1171 35 01 2395 694 L PBUF@,XR1 732 * LOCATION OF PRIKT POSITION(RIGHT MOST) IS * 
1175 35 02 2395 695 L PBUF@,XR2 ; 733 * @(PRTBUF-1) * TARTBL(TABIDX) * 
1179 98 01 00 00 696 PCK1 MEN 0{,XR2) ,0(,XR1) 734 © ON EXIT * 
117D 98 03 00 01 697 MNN 0€,XR2),1(,XR1) 735 * HEX @ WILL BE ZERO * 
1181 D2 01 02 698 LA 2(,XR1} ,XR1 736 * CXTOFS IS INCREASED BY (CNTLNG) * 
1784 £2 02 01 699 LA 1¢,XR2) ,XR2 737 * TABIDX IS INCREASED BY 1 * 
1187 34 01 2513 700 ST TEMP,XR1 738 HFSREEHEE SEES EE REE RE STEREO TREE EEE ERAESERSREREEEREROES EEE EERESRRRERERRE 
118B OD 01 2513 24FE 701 CLC TEMP, PENDA@ -191C2 739 HEXDEC EQU + 
1191 CO 82 1179 702 BL PCKi 11C2 34 08 12F3 740 ST CVTXS,ARR SAVE RETURN & 
1195 CO 87 0000 703 B ent 11C6 C2 02 1266 Tat LA LNGTBL-1,XR2 
1198 704 PEXTAa EQU t—4 11CA 36 O02 23B9 742 A CNTLNG,XR2 
705 TICE 2C 00 1252 v0 7&3 NVC MVCL (1) .9(,XR2} SET LNG OF DEC ¢ 
705 , 74a © SET LOOP COUNT (CNTLNG*9) 
705 11D3 C2 01 23B5 7a5 LA CVTCNT,XR1 
705 11D7 4¢ 01 00 2389 746 NVC 0(2,XR1) ,CNTLNG 
705 17BC 5E 01 00 00 747 ALC 0(2,XR1) 60 (,XR1) 
705 11EO SE 01 00 00 748 ALC 0(2,XR1) ,0(,XR1) 
705 11E4 5E 01 00 900 749 ALC 0(2,XR1) -0(,XR1) 
705 750 * SET LENGTH OF HEX # INSTR. 
705 T1E8 OC 01 2513 23B9 751 MYC TESP,CNTLNG 
705 11EE OF 01 2513 OASB 752 SLC TENP, ONE 
706 FREER ERAN ERES EE ER EREEE EERE REL AEA EREE REE ERA EE EEE RES AEE RE RARER EEE KERR 11F4 0C 00 1227 2543 753 NYC ALCL (1) , TEMP 
707 * RSHIFT * SHIFTS A BYTE 2 BINARY PLACES TO THE RIGHT * TIFA OC 00 1213 2513 754 HVC CLCL (1) , TENP 
708 *xeeeee ees END OFF ™ 755 * SET XP2 TO RGHT POS OF HEX #¢ 
709 * * 1200 C2 02 2623 756 LA DBUF,XR2 
- 710 FREER REEEEERERA EER REEERRA SEER ES EEE EEE EEE RE EEE EE EE RER EAS EREEEEEE EER ERE 1204 36 02 2387 757 A CNTOPS,XR2 
1199 711 RSHIFT EQU * 1208 36 02 2533 758 A TENP,XR2 
1199 34 08 11Cc1 742 st RSHF Xd, ARR 120C 04 EO 2511 239C 759 ZAZ DEC, DZERO ZERO DEC ¢ 
119D C2 02 2623 713 LA DBUF,XR2 760 * 
TIA1 36 02 23B7 714 A CNTOPS, XR2 1213 761 CLCL EQU *e7 
T4IA5 C2 01 0006 715 LA 6,XR1 1212 8D 00 00 1272 762 CLC 0(1,XR2} ,SZERO TEST FOR ZEFO 
11A9 AE 00 00 00 716 RSHF1 ALC 0(1,XR2),0(,XR2} 1217 F2 81 4S 763 JE HEXDO . 
TIAD F2 20 03 717 JNOL RSHF2 121A 06 OF 25117 2511 764 HEXD1 AZ DEC, DEC DOUBLE DEC ¢ 
T1BO BA 01 00 718 SBN O(,XR2),x°0"* 7221 765 ALCL EQU *o4 
11B3 36 01 23AA 719 RSHF2 A PFFF,XR1 1220 AE 00 00 00 766 ALC 0(1,XF2) ,0 (,XR2) SHIFT HEX NUS 
- 11B7 cO 01 11A9 720 BN2 . RSHF1 1224 F2 20 06 767 JNOL HEXD2 TEST POR OVERFLOW 
11Bb BB CO 00 721 SBF 0(,XR2),X*CO! 1227 06 EO 2511 239D 768 AZ DEC, DONE ADD 1 TO DEC # 
11BE CO 87 9000 722 B. *—% 122D OF 01 23B5 OAS8B 769 HEXD2 SLC CVTCHT, ONE _ TEST POR EVD 
J1C1 723 RSHFX@ EQ +—4 41233 CO OF 427A 770 BNZ REXD1 
1237 OB OE 2503 ODBB 779 BEXDS Itc DEC~14 (15) , BLANK 
123D 38 08 OEFS5 772 TBN SCNPLG, ZFLG 
1241 CO 390 1249 773 BF HEXD3 
1245 3C FO 2511 774 BVI DEC,C*O? 
1249 3B 08 OEPS5 775 HEXD3 SBF SCNFLG,ZFPLG 
776 * SET XR1t TO RIGHT POS OF PRINT POS. 
124D CO 87 12F4 777 B PRTPOS 
1252 778 MVCL EQU +1 
725% 4C 00 00 2511 779 nvc 0(1,XR1) ,DEC MOVE DEC @ TO PRTBUF ee 
1256 OF 01 23B7 2389 780 ALC CNTOFS,CNTLNG 
125C F2 87 8B 781 J CVTX 
125F 3A 08 OEFS 782 HEXDO SBN SCNFLG, ZPLG 
1263 CO 87 1237 783 8 HEXDS 
1267 788 LNGTBL ZQU * CNTLAG 
< ; 1267 02 1267 785 pc ILié2¢ 1 
1268 048 1268 786 pe ILTtae 2 
1269 07 1269 787 DC ILit7& 3 
126A 09 126A 788 DC IL1*98 a 
126B 0C 126B 789 nc ILt#t2¢ 5 
126C OF 126c 790 DC ILt*1G8 6 
126D 000000000000 1272 791 $ZERO pc XLE*00* 
792 
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793 FREER EREE SERENE RARE EEREERERR ERE KE REREEKEREEARARAREAEAR AK RAKE KEE EERE REE RE 817 HE REREEER SEES EEE EET EERSTE SEREEREEEEEREETEREEEHEAEEREREREEEEE ROOD ERE 
794 * HEXHEX * CONVERT HEX BYTE TO A PRINTABLE HEX NUMBER % 818 * CYTBIN * CONVERTS A HEX BYTE TO PRINTABLE BINAPY NOMBER IW * 
FOS ERKRRKEERE * a? TLEKKEKREE ORE SED PRTBUP : 
* . * 20 * 
ae SRE EEEREREEEEEEEREEEREAEE REESE ER EERE RARAE EER ERE KEKE RARE REAKERE ES EEK EE 821 * LOCATION OF HEX BYTE IS @(DBUF}) ¢ CNTOFS : 
MED adage ae : tas ‘ Pp T PCSITION (LEFT HOST POSITION) IS * 
1273 34 08 12F3 799 ST CVTX@, ARR 823 LOCATION OF PRIN c I ( 
1277 C2 02 2623 800 LA DBUF, XK2 824 * @(PRTBUF}-1 ¢ TABTBL(TABIDX) - 7 i 
127B 36 02 23B7 801 A CNTOFS, XR2 825 *® : 
127F CO 87 12F4 802 B PRT POS 826 * ON EXIT : 
1283 36 01 23AA 803 A FFFF,XR1 827 * HEX BYTE WILL BE ata : 
1287 3B 04 128C 804 SBF SWITCH, X'OT? FORM NZ 828 CNTOPS IS INCREASED BY 1 Z 
128C 805 SWITCH EOU *+1 829 * TABIDX IS INCREASED BY 14 
128B 68 02 00 00 806 HEZ MNZ 0(,XR1} 20{,XR2) 830 FREEESELEREE EES HERSTERSES EEE ESE SEER ES EOREEHESTEAEREEESERERES RESKEREEEREOES 
128F 7A FO 00 807 SBN 0¢,XR1) ,X° FO! J2AF 831 CVTBIN EQU * : 
1292 7D F9 00 808 CLI 0(,XR1) ,X* F9# T2AP 34 08 12P3 832 ST CV¥TXA,ARR SAVE EXIT @ 
1295 F2 06 05 © 809 JIN HEX3 12B3 C2 02 2623 833 LA DBUF,XR2 COMPUTE POSITION OF HEX BYTE 
1298 4F 00 00 12A0 810 SLC 0(1,X%R1) ,X39 1287 36 02 23B7 834 A CNTOFPS, XR2 
129D D2 01 01 811 HEX3 LA 1(,XR1) ,XR1 835 * COMPUTE POSITION OF PRINT POS, 
12A0 39 01 128C 812 x39 TBF SWITCH, X'O1* 12BB co 87 V2F4 836 B PRTPOS 
12A4 F2 90 3A , 813 JF CVTX1 12BF 36 01 23AB oh ‘ A NEG7,XR1 
WITCH, X'O1® FROM M2Z 
ie a se teen oe a aes ms 12¢3 3C 08 23B5 839 HVT CYTCRT,8 SET LOOP CHT 
12C7 7c FO 00 840 CVTB2 SVI 0{,XR1),c°0* SET PRINT CHAR 0, BY DEFAULT 
12CA AE 00 00 00 841 ALC 0(,XR2) ,0(,XR2) 
12CE F2 20 03 842 JINOL CVTE1 TEST FOR BIT ON 
12D1 7c Fi 00 843 NVI O(,XR1) ,C*1* BIT ON,SET PRINT CHAR 1 
we 12D4 D2 01 01 8&4 CVTB1 LA 1(, XRT) ,XR1 
12D7 OF 01 23B5 OA8B 845 SLC CVTCNT,ONE 
12DD CO 01 12C7 846 BNZ CYTB2 
12E1 8&7 CYTX1 EQU * 
12E1 BC 00 00 848 NVI 0(.XR2),0 
12E4 OF 01 23B7 OAS8B 849 ALC CNTOPS ,ONE 
850 * 
T2EA 851 CVTX EQU * 
. 12EA OF 01 23BB OA8B 852 ALC TABIDX,ONE 
12F0 CO 87 0000 853 B t-t 


12F3 854 CVTXa EQU +-4] 
12F4 855 PRIPOS EQU * 


12F4 34 08 1310 956 ST PRTXA, ARR 
12F8 C2 01 2428 ' 887 LA TABTBL, XR1 
12FC 36 01 23BB 858 A TABIDX,XR1 
1300 1¢ 00 23B1 00 859 HVC = H249 (1) ,0(, XR1) 
1305 C2 01 O87F — 860 LA PRTBUF-1,XR1 
1309 36 01 23B1 861 A H24,XR1 
130D CO 87 0000 862 B t<# 
1310 863 PRTtxa EQU  _ #= 
B64 
864 
864 
864 
864 
1311 865 SYNMOV £QU0. * 
866 * LOAD SYNC PTS FOR RTNX 
: 1311 38 08 1332 867 ST SYNMX], ARR e, 
1315 868 SYNR EQD. * olin 
1215 3c 82 1058 869 NVI CHKSW1,x°82° 
1319 3c 82 OF88 870 MVI CHKSW,x*82¢ 
131D 3A 10 OFFS 871 SBN SCNFLG,SPLG 
1321 CO 87 OEF6 . 872 B SCAN 
1325 0C 53 2427 248D 873 NVC «=. SYNTBL* 12483 (84) , CBUF¢84 
132B CO 87 10A9 874 B READ 
132PF CO 87 0000 875 B +-* 


1332 876 SYNMxa EQS 4 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
878 13AB 4OC5D9D9D6DE40CB 937 
879 KEKEEKKEKEKSE FREER REE REE E EEE ERE EERERERE ERE EES EO ERE RREKAREEERS ERE ER 13B3 CI9EZE3SD6D9EB40CI 937 
880 * DISKIO * CALLING SEQUENCE * 13BB DSCULOD6E3C8CS5D9 937 
881 * B DISKIO * 13C3 4OCSD9D9DED940CY 937 
882 * DC XL?" xxt XxX=01 - READ * 13CB CIE3C1I40E6C9D3D3 13F2 938 SGU pc CLUO*ATA WILL BE PRINTED BY LATER ROUTINES. °¢ 
683 * XX=02 - WRITE * 13D3 40C2C540D7D9C9DS5 938 
884 * DISKIO *RFAD OR WRITP A SECTOR ON CYL 0 OF DRIVE THAT IS * 13DB E3SCSC4ULOCZEBN0D3 938 
885 * CONTAINED IN DSKDRV, THE SECTOR NUMBER IS CONTAINED * 13E3 C1IE3C5D94ODIDEEY 938 
886 * IN DSKSEC. * 13EB ESCOIDSCSE2Z&B4040 938 
887 * *A FX (X=1-4) HALT WILL OCCUP IF DISK IS NOT READY OR FRROR* Coot 939 DROP XR 
888 * OCCURS ON A READ OR WRITE. TEN RETRYS ARE MADE BEFORE * 
889 * A HALT IS GIVEN. A RESET HALT WILL RETRY THE FUNCTION. * 
890 * * 
891 * * 
892 BEER EREEE REESE ERE REEEE EEE EEE RE ES REEEE SAREE EEEEEE RES EEEKEEREEAEER ERE EE * 
1333 893 DISKIO EQU) *® 
1333 C2 01 1333 894 LA DISKIO,XR1 
1333 895 USING DISKIO,XR1 
1337 74 08 16 896. st DISKXO(,XF1.,ARR STORE ARP ADDRESS INTO DISKX@ *GC* 
. 133A 75 02 16 897 L DISKX@(,XR1) ,XR2 LAOD ARR VALUE INTO xXR2 *GC® 
133D 6C 00 13 00 898 HVC) =6DSKFCT(1,XR1),0(,XR2) MOVE (READ/WRITE) FUN N BITS *6C# | 
1341 CO 87 13F3 899 B DISK33 BRANCH TC 3340 SECTION 7OR TEST *GC# 
1346 900 DSKFCT EQU *¢#1 
1345 F3 00 00 901 S102 SIO 0,0 READ OR WRITE DATA 
1348 0000 1349 902 DISKxd vc AL2 (*-%) SAVE CALLERS ARR VALUE 
903 
904 FREESE RE REEEE EEE EEE SERRE REESE REESE EERE EREEEESEREERESEENS OEEKKEEREE REESE 
905 * DISK FLAG IN SEEK 
906 * BIT 0 = 0 HEAD 0 UPPER SURFACE 
907 * = 4 HEAD 1 LOWER SURFACE 
908 * BIT 1 - 6 NOT USED 
909 * BIT 7 = 0 SELECT DIRECTION TOWARD DECPEASING CYL # 
910 * = 4 SELECT DIRFCTION TOWARD INCREASING CYL # 
911 * DISK FLAG FOR ALL OTHER OPERATIONS 
912 * BIT 0 - 5 «HOLD THE BINARY PEPRESENTATION OF THE SFCTOR 
913 * ID NUMBER 
~ 944 * BIT 6, 7 NOT USED ** MUST BE 00 ¥* 
915 ERRREEERE EERE EE EEREEEAEEEEEEEEEES EHEEEEAEEERSEEEEERES EEEKE KEREEREEEEERSE 
134A 0000 134B 916 STATUS DC XL2*°0° 
134C 917 DSKDRV FOU) * 
134C AB 134C 918 pc XL1°a88 DA & M BIT FOR DISK 
134D 00 138D 919 DSKFLG pc XL1°08 FLAG CHEEEREEEEEER EERE EKEE EEE EE 
1343 00 134E 9206 DSKCYL pc XL1°O? CYLINDER * DISK CONTROL FIELD * 
134F 00 134F 921 DSKSEC pc XL1*°0# SECTOR * * 
1350 00 1350 922 DSKNOM DC XL1°08 # TO MOVE *##* eee EEE REE ERERE RR REN ER 
1351 134D 1352 923 DCR pe AL2 (DSKFLG) DISK CONTROL ADDRESS REG FOR RD/WRT 
1353 2623 1354 924 DBUFA@ pc AL2 (DBUF}) START ADDRESS OF DATA BUPFER 
1354 925 DAR EQU) _*=-1 
926 * 
1355 927 HLTTBL EQU  * HALT CODE VOLUME DEVICE ADDR. 
1355 F2 1355 928 DC XLI*F2¢ 2 AO 
' 49356 F1 1356 929 pc XL1° Pte 1 A8 
1357 F4 1357 930 DC XLI°Fae rT BO 
1358 F3 1358 931 pc XLI*F3¢ 3 B8 
1359 4OCB8CIDZE34060C6 138A 932 pc CL50* HALT -FX- X=%7-4, VOL X IS NOT READY OR ERROR OW Vt 
1361 E760 40E77EF160F48 932 
1369 6BY0E5D6D340E740 932 
1371 CIE2ZUODSDEE34OD9 932 
1379 CSCICUEB4OD6D940 932 
1381 CSDIDIDEDI“ODEDS 932 
1389 4OE5 932 
138B D6D340E7 138E 933 DSKMSG pc CLOM*OL x* 
138E 934 MSG3B EQU)#=1 
138P SOKOGO6CEO4OP3F3 13A2 935 NSG3 pc CL20* --= 3360 ~-- " 
1397 P4FO406060604040 935 
139F 40404040 935 
' 3A2 936 HSG4uB EQU) ¥=1 
13A3 SO404040F3F3F4FO 13CA 937 pc CcL4Ot 2340 ERROR HISTORY AND OTHER ERROR Dt 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LGC OBJECT CODE ADDR STMT SOURCE STATEMENT 
QUT REE EAREE EERE EERE EEE ERA EER KEREREEES EE RAEKERES ERERKERE RES RRERS *GC* - 1WOC 996 USING TABLES, XR2 
942 ***** TITLE * DISK TYPE 3340 T/C ROUTINE eker kee hee *GC* 7472 C2 02 140C 997 LA TABLES, XR2 LOAD REG 2 WITH ADDRESS OF TABLE 
QUZ TRAREE AREER ERE EERE REESE EERE EATER EASE RTARARREAEE RRR KR REE KE xOC% 1476 78 10 03 998 TBN IOBCHN (,XR1) -X* 10? Q CODE FOR SPINDLE 72? 
944 1479 F2 90 03 999 JF CKFIXD JUNP IF PEG 2 YS OF 
Q84 1470 E2 02 O44 1000 LA &(,XR2} ,.XR2 BOMP TO POINT TO SECOND HALP 
944 T47PF 78 08 03 “10C1 CKFIXD TBR JOBCHN(,XR1) ,X7 088 Q CODE POR FIXED DRIVE? 
944 7482 F2 10 03 © 1002 JT NEWDRYV JONP IF FOR FT OR P2 
1485 EB2 02 Q2 1003 LA 2 (eXR2) .XR2 BUNP IF FOR PEMOVABLE 
S44 ° g 
i3F3 0€ 09 1704 1725 945 DISK33 HVC DDCFE(10) ,DDCFE INITIAL DOCK FYELE *GC* 1008 
13F9 30 CD 1348 9u6 SNS STATUS, X‘'cb¢ RESET HISTORY UNIT CHECK BITS *GCc* 1004 
13PD C1 C8 15aP 947 TIO DKWR,X'Cc8! NOT READY/ONIT CHECK EPROR TEST *GCce 1064 
7401 3C 00 16FB 948 NVI DDCF,X*OOF CLERR FLAS RYTE SOC 1005 * * * x* @¢ ee e#eee te es e¢ #€#e¢ &@ &@ ¢ @ @ 6 &€ ee & G $e & @ &6& © & © t @ 
949 1006 * REGISTER 2 NOW POINTS TO THE TABLE ENTRY COORESPONDING TO THE * 
945 1007 * REQUESTED SU4u DRIVE. * 
949 1008 * ** #e @ este ee eae eee ens 2 e & *&¢ e# ¢ ¢ @ &© k BR & w & & 
9506 FREER E RE ER EER EAE ER ERE ER RAEE RHE EE TREES SAG RRERKERRERER GARE HE SERRE 1009 
354 eee eae SUB-ROUTINE TO CONVERT MSRAS RARER EES RERRE KH 1688 2C 00 189E 07 1070 NERDRY #¥C CYSTRT(1),7(,¥YR2} SET MOVE INSTRUCTION “> PICKUP START 
952 *«eeeee eK S444 ADDRESS INTO 2346 ADDPESS FRESE SAKE RRS REE KE 1044 # CYLINDEP OF SIFULATED AREA 
953 REEEEE ERERRER ERASER ESSA REESE EEE ES ES REECE EERERE SEAS SER ERR ERR AEE RR REE t48dp 68 00 O04 GE O72 AZZ TOBQB(, XR1},0(,XR2} MOVE IN THE ZONE OF OPERATION CODE 
954 * * 7494 B88 OB OO 1073 TBN O(,X%R2} ,x*08* FOR 33&0 DRIVE 2 OR &? 
955 * INPUT: DSKDRY --> ICBOB $ 14634 7R 08 O08 O14 SBH ICBOB(,XR1y>,2'O8! ASSUME 3340 DRIVE 2 OR 4 
956 * DSKCYL ~=> IOBCHN-? * 1497 F2 16 02 1645 JT CvTCctTa GO START THE CONVERSION 
957 * DSKSEC --> IOBCHR-4 # 149A 7B O8 O08 1016 SBP TFOBQB(,XR7},x?0R¢ CORRECT A BAD ASSUFPTION 
958 * CUTPUT: DDCP FIELD CYLINDE® ,HERD.RECGRD NOMEBER FOR 3386 SYSTER * 749D Fe GO OO 1017 CYTCTH BYEZ LTOBCHN-3(,XR1j},0 POVE IN STAPT OP SIFULATION ARER 
959 « * 149P 1078 CYSTRT EOD e< 2 
960 * * * * & ee ke Fee ae ee Ee Ree eRe oF = ££ & 2 St £€ e Re He wR THAG FD O48 OF 1045 Cur IOBCHN-2(,X¥R1),X°O4* CHECK FOP 5Suau CYL 0,i,2, OR 3 
961 * THE FOLLOWING AREA IS Sf ASTDE FCR USE AS CONSTANTS IN THF 5468 * J4A3 F2 82 26 1020 JL CKCYLO IP LOW GO CHECK FCR CYL 0 
962 * CONVERSION ROUTINE. * 1HA6 7D CB OF 1024 CLI TOBCHN-2{,ZP1},X"CP* CHECK FOR CYLINDER 203? 
963 * * Stee eRe Re Re ee Reh Re a € ee es THA9 CO O02 4K 1022 BNL ERRASG CYLINDER 203 OR GREATER IS INVALID 
968 T4AD GPF GO ut 7408 1023 SLC LTOBCHN-2¢(7,2R1) ,SYNTEN SUBTR NUMBER OF 44 TRACKS 
1405 F2 87 57 965 3 GPcs 1024 POSSIBLE ON FIRST 3340 CYLIRDER 
1468 20 1408 966 BREXK2G pec XLYT*2G¢ Cs T4B2 P2 82 29 1025 JA ALDBAK JUSP IP 4& CYLINDER IS ON PIRST 
#09 O84 1409 967 FOUR DC XL1°Ou! = 1026 *% SIMULATED 3240 CYLINDER 
THGA 44 180A 968 FORTEN DC XLit age % ¥485 7D 00 01 1027 CKZERO CLI IOBCHN-2¢,2R1j,X¥°0C* SEE IP CYLINDER WENT ZERG 
V408 17 140B 969 SVNTEN DC XLitt7* 74B8 F2 81 15 1028 JE UPCYLN IF ZERO CONVERSION OF CYL 15 
140C 970 TABLES EQU * 1029 # ALSOST DOWE. 
¥40C COAO 40D 9717. pc XLZ2°cCOage TABLE ENTRY POR A FP REQUEST 74BB &8E OG 00 OABB 1030 ALC TOBCHN-3(%,XP1),O85 ADD ONE TO 3340 CYLINDER 
140E COB} 140F 972 pc XL2*COB3E TABLE ENTRY FOR A RY REOUEST 7400 YF 00 01 T40A 1031 SLC YOBCHN-2(4,XR1),PORTEN SOBTPACT RUBBER OF G& CYLIEDERS 
3879 CBA 1411 «973 Dc XL2*C8A9° TABLE ENTRY FCR A P2 REOUEST 1032 * POSSIBLE ON NEXT 3360 CYLINDER 
W142 CBB3 T4732 974 DC XL2'*C8B3e TARLE ENTRY POR A R2 REQUEST T4CS P2 82 16 1033 JN ADDBAK JUMP IP RESOLT WENT NFGATIVE 
14148 00 1474 975 HEADWA pc XL1*008 WORK AREA 78C8 CO 87 16B5 1034 B CKZERO LOOP BACK AND CHECK AGAIR 
1415 976 STARTN EQU * - 1035 
4415 30000000 1418 977 IOBCHN DC XL? "O08 BUFFER AREA FOR SUB-ROUTINE 1035 
1419 00 1419 978 IOBOR onc X¥L7*'008 BUFFER WORK AREA i4ct 7d 00 O01 3036 CKCYLO CLI ITOBCHN-2 (,XR45,X*00" IS THE REQUEST FOR CYLINDER ZERO? 
979 ICP CO O11 1HTR 1037 BNE ERRASG IP NOT FOR ZERO, ERROR 
980 SERESSERAEEEAEERERES ESE EREERS EERE REAE SASSO SEES EE CEE RE ME SORE REE RE EES 14D3 F2 87 OD 1038 J CVTSTR GO TO CONVERT SECTOR TO RECORD 
414A CO 87 OZIA 981 ERRMSG B PRINT PRINT THAT ROUTINE UNABLE TC CONVERT 1039 
THTE 87 T&1E 982 Dc XLi* 87? THE 5644 ADDRESS INrO A 3340 ADDRESS 1039 
VAIF 33 141F 983 Dc IL@USte T4D6 GE OO 00 OABB 1040 UPCYLN ALC TOBCHN-3(1,KR1),ONE UPDATE TO NEXT 3240 CYLINDER 
1420 T4H5R 14241 984 DC AL2 (ERRMSL) WDB F2 87 05 1041 J CVTSTR GO CONVERT SECTOR TO RECORD 
1822 CO 87 0222 985 B HALT 1042 
1426 FFOF W827) 986 DC XL2*YFOF® 14DE WE 00 OF 140A 1043 ADDBAK ALC IOBCHN~2(1,X81),FORTEN ADD BACK POURTEEN WHEN RESULT 
1828 CO 87 0216 987 B LINK *GC* 1044 * GOES MINUS. 
T42C5 EYDSCICZD3C5SUOE3 14SF 988 ERRMSL DC CLOT UNABLE TO CONVER™ Sguy ADDRESS INTO A 3380 ADDRESS. ?* 1045 
1434 DEYOC3IDEDSESCSDI 988 TUE3 3C 01 1414 1046 CYTSTR #8YVI HEADWA,X'048 INITIALIZE WORK AREA WITH A 4 
183C E3I40F5F4FUFUNNCI 988 T4EB7 7D 00 02 1047 CLI TOBCHN-1(,XF14,X'00" REQUEST POR A 544g SECTOR ZERO? 
1884 CUCUDSCSE2E240C9 988 TUEA F2 81 21 1048 JE EXIT CONVERSION IS DONE 
T88C DSEZDE4NOCI“OF3F3 988 IWED 78 80 02 1049 TBN IOBCHN-1(,XR1),X*80" TRACK 2 OF Sauy REQUESTED? 
1458 FUPOUOCTICEC4aD9gcs 988 T4PO F2 90 05 71050 JF BUMP JOMP IP TRACK 1 WAS REQUPSTED 
185¢ E2E2uB 988 14F3 UF 00 02 1408 1051 SLC IOBCHN-1(1,XR1) ,HEX20 MAKE TRACK 2 AND 1 CONTIGIOUS 
989 1052 
989 14F8 7D FC 02 1053 BUMP CLI IOBCHN-1(,XR1),X*PC* DID SECTOR NUMBER GO MINUS? 
14SP 990 EGPCS EQU * T4FB CO 84 141A 1054 BH ERRMSG ERROR IP SECTOR IS M1NUS 
1815 991 USING STARTN,XR1 J4FF OF 00 1414 OABB 1055 ALC HEADWA (1) ,ONE ADD ONE TO RECORD NUMBER 
VSP C2 01 1415 992 LA STARTN,XR1 1505 4F 00 02 1409 1056 SLC IOBCHN-1(1,XR1), FOUR DECREMENT SECTOR COUNT 
1863 OC 01 1417 134F 993 MYC IOBCHN-1(2) ,DSKSEC 150A CO 01 14F8 1057 BNZ BUMP LOOP BACK IF NOT ZERO 
1469 4C 00 O04 134c 994 MVC TOBQB(1,XR1),DSKDRV SAVE THE 5444 Q CODE 1058 
T46GE SC 00 03 O04 995 MVC ss TOBCHN (1, XR1) , IOBOB(,XR1) SAVE THE S484 Q CODE 1658 
DATE 29A0G75 O7NOV7S5 OUMART6 Z213AN77 PROG ID FF/-3 DATE 29AUG7S O7TNOV7S5 OGMART76 21JAN77_ PROG ID FP7-3 
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PART NO. 8248241 
PAGE 12 PAGE 2A 
DISK ERROR RECORDING ANALYSIS PROGRAM j FF73 DISK ERROR RECORDING ANALYSIS PROGRARA 
OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
4C 00 02 1414 1059 EXIT MVC IORCHN-1(1,XR1),HEADWA MOVE RECORD COUN" TO IOB 15CD 0C 13 16A0 16F0 1218 DKERA MVC PD31(20),PD4uS * MOVE AFTER READ DIAG CAD *Gce 
OC 00 16FD 1475 1060 MVC DDCF+2(1) , IOBCHN-3 MOVE CYCLINDER NUMBER 1199 
OC 00 16PF 1416 1061 MVC DDCF#4(1), IOBCHN-2 MOVE HEAD NUMBER 1119 
0c 00 1700 1417 1062 MVC =©DDCF#5(1), IOBCHN-1 MOVE RECORD NUMBER 15D3 CO 87 021A 1120 PRTINR 8B PRINT * PRINT THAT UNIT *Gce 
1063 *** *@ & e# & ee KK eee Re RR ER Re OR OR RK OR KR OR Oe & 15D7 87 1SD7 11921 pC XLits7e * NOT READY / UNIT CHECK CCCURRED *Gce 
1064 * END OF 5444 TO 3340 SIMULATION CONVERSION ROUTINE * 15D8 3A 15D8 1122 DC AL1(PD31-PD30) = DRIVE , *Gcs 
1065 * * *# &*e# eee eee Ke KK KR KK eK ee Kh Rh KE EE OR KR OH fF 15D9 16A0 ISDA 1123 DC AL2(PD31} * Is *GC* 
1066 15DB 3C 40 16A0 1124 MVI PD31,x*40! * PLACE * © *Gc* 
1066 15DP OC 12 169F 16a0 1725 MVC PD31-1(19),PD31 * BLANK PD31 WORK AREA *Gce 
1066 15E5 30 CD 134B 1126 SNS STATUS,X*°CD® SENSE STATUS BYTES 0,1 *Gct 
0c 00 1575 1346 1067 MVC RDWRT¢1(1),DSKFCT MOVE DISK FUNCTION READ/WRITE INTO SIO*GC* 1559 CO 87 0218 1127 B  UNPACK * UNPACK *Gc* 
OE 00 157B 171B 1068 ALC RDWRT#1(1),DRV32 INSERT DRIVE NUMBER INTO SIO *GC* ISED 02 15ED 1128 DC X1L1°02¢ * STATUS *ccs 
C1 CA 1531 1069 TIO *,X*CAt ATTACHMENT BUSY (WAIT) *6C* ISEE 1348 ISEF 1129 DC AL2{STATUS) * BYTES *6c* 
31 CE 16F2 1070 LIO LDCF,X*CE® LOAD DDCR WITH ADDRESS OF DDCF *GC* 1SFO 1649 ISP? 1130 DC AL2{STATOT) + 0,1 *cc* 
31 CC 16F4 1071 LIC LDDF,X*CC?* LOAD DDDR WITH ADDRESS OF DDDF *G6C* 15F2 CO 87 O21A 1731 B PRINT * PRINT *sce 
F3 ce 00 1072 SIO 0,x*cs8* SEEK COMMAND PRIMARY TRACK *GC* ISF6 82 ISP6 1132 DC XLt*82¢® * STATUS *sce 
C1 C9 1540 1073 TIO *,x'c9? SEEK BUSY (WAIT) *GCe 15F7 1A 15F7 17133 DC ALV(STATOT-STATST) * BYTES *Gct 
C1 CA 1544 1074 TIO *,X*CA® ATTACHMENT BUSY (WAIT) *GC* IS¥F8 1649 ISF9 1134 DC AL2(STATOT) * 0,1 *cc* 
ct c8 15¢c4 1075 TIO DKER9O,X'C8* NO? READY / UNIT CHECK AFTER SEEK CMD *GC* ISFA C1 CA 15PA 1135 TIO *,X*CA* ATTACHMENT BUSY (WAIT) *cce 
Oc 09 4718 1704 1076 MVC DDCZ(10) -DDCFE *G6C* 15PE 31 CC 16PA 1136 LIO LSNS,X*CCt LOAD DDDR WITH ADDRESS OF DSHS *cce 
OC 01 1717 171A 1077 MVC DDCZ-1(2) , DDZL *GC* 1602 F3 C9 07 1137 SIO 7,X*C9? RD DIAG BYTES *Gc® 
31 CE 16F6 1078 LIO LDCK,X"CE® LOAD DDCP WITH ADDRESS OF DDCX (DDCF) *GC* 1605 Ci CA 1605 1138 TIO *,X*Cat ATTACHMENT BUSY (WAIT) *cce 
31 CC 16F4 1079 LIO LDDF,x‘*cc! LOAD DDDR WITH ADDRESS OF DDDF *GC* 1609 C1 C8 15CcD 1139 TIO DKERA,X*C8* NOT READY / UNIT CHECK AFTER READ DIAG CBD *GC*® 
F3 C9 01 1080 SIO33 SIO X*01%,x'*C9® RD HA & RO EVEN COMMAND *GCe 160D CO 87 G21E 4740 B  UNPACK * UNPACK *Gc* 
C1 CA 1563 1081 TIO *,X*CA® ATTACHMENT BUSY (WAIT) *G6C* 1611 18 1677 1741 DC IL1*2u2 * READ DIAG *G6Ce 
C1 CB 15B2 1082 TIO DKER2,X'C8' NOT READY/UNIT CHECK 27? *GC* 16412 173F 1673 4142 DC AL2(DSNSE} * BYTES *GCcs 
1083 1614 I76F 4615 4143 DC AL2¢€PSRS} * 0-23 *cce 
1083 1616 CO 87 O21A 1744 B PRINT * PRINT HEADING POR *cc* 
38 02 1705 1084 TBN DDDF,X*02°* CHECK FOR DEFECTIVE PRIMARY TRACK *GC* 161A 83 161A 7185 DC X1L1°83* * READ DIAG *Gce 
F2 10 1A 1085 JT PRIDEF JUMP TO ALTERNATE TRACK *GCe 161B 1D 161B 1146 DC ALU(RDDGE-RDDGS} * BYTES *Gc* 
1086 161C 1666 167D 1187 DC AL2€RDDGE) * 9-23 *GC* 
1086 161E CO 87 O21A 1748 B PRINT * PRINT *GcCe 
1572 1087 LIO033 ECU * *GC# 1622 82 1622 1149 DC XL1*82¢ ® READ DIAG *Gct 
31 CE 16F2 1088 LIO LDCF,X*CE* LOAD DDCR WITH ADDRESS OF DDCF *GC* 1623 30 1623 1150 pc ILiase * BYTES *cc* 
31 CC 16F8 1089 LIO LBUF,x*CCt LOAD DDDR WITH ADDRESS OF DBUF *6C# 162k 176F 1625 1151 DC AL2(¢(PSNS) * 0-23 *Gct 
F3 c9 00 1090 RDWRT SIO 0,x'c9? RD/WRT KEY DATA (C9/CA) *GC* 1626 CO 87 9222 1152 5B HALT *ect 
C1 CA 157D 10947 TIO *,X'CA* ATTACHMENT BUSY (WAIT) *GC# 162A FFOF 162B 1153 DC XL2*FPOF* *Gc* 
C1 C8 15BB 1092 TIO DKERS,X'C8* NOT READY/UNIT CHECK *GC# 162C CO 87 0216 1758 B LINK 
35 02 1349 1093 L DISKX@,XR2 SET-UP XR2 FOR RETURN TO CALLER *GC* 1155 
EO 87 01 1094 B 1(,XR2) RETORN TO CALLER *GC* 1155 
1095 162F 1156 STATST EQU *-1 *6c* 
158C 1096 PRIDEF EOU * *G6C* 1630 4OE2ZE3C1E3E4E280 1649 1157 STATOT DC CL26* STATUS BYTES 0,1 ARE XXX¥* *Gct 
3C 01 1705 1097 MVI DDDF,x*01* SET-OP FLAG BYTE FOR ALTERNATE *GC* 1638 C2E8E3CSE240P063 1157 
3C 01 16FB 1098 MVI DDCF,X*01" SET-UP FLAG BYTE FOR ALTERNATE *GC# 1640 FI#OCIDSCS4UOETET 1157 
C1 CA 1594 1099 TIO *,X'CAS ATTACHMENT BUSY (WAIT) *GC* 1648 EVE? Vis? ears 
31 CE 16F4 1100 LIO LDDP,X*CE* LOAD DDCR WITH ADDRESS OF DDDF *GC* 1649 1158 RDDGS EQU *-1 GC 
F3 c8 00 11014 SIO 0,x'c8t SE=K COMMAND OW ALTERNATE *GCK TEGR HODICSCICU4LOCKCS 1666 1759 RDDGE DC CL29* READ DIAG STATUS BYTES ARE * *Gc* 
C1 C9 159F 1102 TIO *,x*c9? SEEK BUSY 7??? (WAIT) *GC* 1652 CICTHOE2ZE3SCIE3E4 1159 
C1 CA 15A3 1103 TIO *,X°CAE ATTACHMENT BUSY (WAIT) *GC* 165A E24O0C2EB E3CSE2R0 T159 
C1 c8 15c4 1104 TIO DKERO,X*C8* NOT READY / UNIT CHECK APTER SEEK CMD *Gc* 1662 CIDSTSHORD 1159 eces 
cO 87 1560 1105 B $1033 GO TO RD HA & RO ALTERNATE *GC* 1666 1160 PD30 . EQU *-1 ee 
1106 1667 B8OCUCSE2ZD24UGCUDS 1674 1161 DC CLiu* DISK DRIVE 2° GC 
1106 166F CS9ESCSHOK0F2 4161 i 
F2 87 21 1107 DKNR J PRINR * PRINT NOT READY / UNIT CHECK *GC* 1675 4ODSDEE34OD9CSC? 168C 7162 DC CL24* NOT READY / UNIT CHECK * *GC 
1108 167D C4ES406T4U0E4 DSCI 4162 
1108 1685 E340C3C8C5C2D240 1162 4s 7 
0C 13 16280 1634 1109 DKER2 MVC PD31(20), PD35 * HOVE AFTER READ HA & RO *Gc* 168P 4O404G4040408040 1620 2163 PD31 DC CL20¢ : 6c 
F2 87 18 1110 J  PRTNR * NOT READY / UNIT CHECK *GC* 1695 404040404 0604040 17163 
4111 169D 40404040 1763 
1111 16AT 4OCTICE6E3CSDINODE 1684 1164 PD35 DC CL20* AFTER READ HA & RO.* *Gc* 
OC 13 16A0 16C8 1192 DKERS MVC PD31(20), PDY3 * MOVE AFTER READ RD/WRT CMD *GC* 16A9 C5C1C&4OCB8C14050 1164 
F2 87 OF 1113 J  PRTNR * NOT READY / UNIT CHECK *G6C* 16B1 4OD9FOG4B 1164 eEce 
1174 16B5 4OCTCEE3SCSDONODS 16C8 7165 PD43 DC CL20* APTER RD/WRT DATA .* 
11748 16BD CH61ESD9ESSOCECI 1165 
OC 13 16A0 16DC 1115 DKERS MVC PD31(20), PD46 * MOVE AFTER SEEK COMMAND *GC* 16C5 ESCIGO4E 1165 
F2 87 06 1116 J eras ne * NOT READY / UNIT CHECK *oc*: 16C9 4OCIC6ESCSDS4OE2 16DC 1166 PD&6 DC CL20" AFTER SEEK COMMAND. *¢ *Gc* 
1117 ‘15D1 C5SCSDZ240C3D6D4D4 1166 
1117 16D9 CipsSca4gs 1166 
29A0675 O7NOV7S OGMART6 «243 ANT7 PROG ID FF7-3 DATE 29a0G75 O7NOVT5 OGHART6 273AR77 PROG ID - ae 
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IBM MAINTENANCE DIAGNOSTIC PROGRAH | oe wo. eee oe IBM MAINTENANCE DIAGNOSTIC PROGRAM oe NO. nore eee 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
16DD 4OCIC6E3CSD9OSODO I6FO 1167 PDUB DC C120" APTER READ DIAG CHD® *GC* T2711 FREER EERE EERE EHEEESAEEREREESEERERREREEEEEKEEEESESEEEARTREERERERERRRERERE 
1212 * * 
Ae ec ae on * ROUTINE 3 = PRINT 3340 USAGE AND ERROR SUMMARY TABLE : 
, Bae 4 * 
Ales 1215 FERERREREEERESEEEEEEKE SHECREEREEEEREEREEREEREEREREEEES EERE EEREEERERERERE 
16F1 T6FB 16F2 1169 LDCF bc AL2 (DDCF) ADDRESS LEFT-MOST BYTE OF DDCP *G6C*; 1216 * 
16F3 1705 T6F4 1170 LDDF DC AL2 (DDDF} ADDRESS LEFT-"OST BYTE OF DDDF *GC* 1217 * ROUTINE PREFACE 
16F5 170F 16F6 1171 LDCX pg AL2 (DDCX) ADDRESS LEFT-MOST BYTE OF DDCX (DDCF) *GC* 1218 * 
16F7 2623 16F8 1172 LBUF DC AL2 (DBUF) ADDRESS LEFT-MOST BYTE OF LBUP *GC*! 1770 03 1770 1219 $RTN3 DC XL1°03" ROUTINE NUMBER 
16F9 1728 16FA 1173 LENS DBC AL2 (DS NS) RDDRESS LEFT-MOST BYTE OF DSNS *GC# 1771 0C 1771 1220 pc XL1*00" ROUTINE FLAGS 
V17TQ €HEREEREREEREEESESEREAD/HFITE KEY-DATAS##SE SSS £8 EEREESEEE EEE EEEEEEREGCE 1772 1BOE 1773 1221 DC AL2 (SRTNG) ADDRESS OF NEXT ROUTINE 
1175 * DDCF * FP * CC * HH * RF * KL * PL * WN # DISK DRIVE *GC*. 1222 * 
1176 EHERREEEEERES ES EHEEEERERERERSSOESEEREEEREEESEEREEE CONTROL FIELD *Gc* 3223 fee eee coer ere Sa a Oe - 
16FB 1177 DDCF EQU * 1224 © ROUTINE INITIALIZATION 
16FB 00 16FB 1178 pc XL1°O8* FLAG R w *GC*. 1225 * 
16FC 0000 16FD 1179 pe XL2* 008 - CYLINDER E R *G6C* 1774 3¢ 00 2188 1226 MVI SIND,O RESET ALL PROGRA~ INDICTORS 
16FE 0000 16FF 1180 pc XL2*00* HEAD ADDRESS A I *GC* 1227 * 
1700 00 1700 1181 pc XL1°O?* RECORD D 7 . *GC*% 1778 CO &7 1D2D 1228 $RS B SBEGIN PERFORM COMMON INITIALIZATION 
1701 00 17014 1182 Dc XL1*°O* KEY LENGTR E *GC* 1229 * 
1702 0000 1763 1183 pc XL2*00° DATA LENGTH CONTROL *GC® 177C 9C 01 218C 21A9 1230 HVC SCYL (2},$P209 INITIALIZE 3340 CYLINDER ADDRESS 
1704 00 1708 1184 pc XL1*08 COUKT FIELD *GC* 1782 0C 01 218E 24k6 1231 MVC SHD(2),$P1 INITIALIZE 3340 HEAD ADDRESS 
1704 1185 DDCFE E00 tf *GC* 1788 3C 00 278P 1232 NVI SPTR,O INITIALIZE LOG RECORD POINTER 
1186 SHARE SERERSESERESEESSS READ BA & RO EEE REESE EEE EE EE EEEREKE EERE CE 1233 * 
1705 1187 DDDF EOU * *GC* 178C CO 87 IDDS 1234 B $I0 READ FIRST LOG RECORD FROS 3380 
1705 0000000000000000 170E 1188 DC XL10*O* * DISK DRIVE DATA FIELD FOR READ HA & RO *GC* 1235 * 
170D 0000 1188 1790 C2 01 2201 1236 LA SPBOF,SXR1 PRINT BUFFER ADDRESS TO INDEX REG 1 
T1899 £44 SESSESEEEESSEESE SEEKS SEES EEREEREREER ECE 1237 *# . 
170F 1190 DDCX EQU * * DISK DRIVE *GC* 1228 Stas Here erase Pree eres eae ea ae St oe ee 
i T70F 90 T70F 1191 pc XL1I*O?* FLAG c *GC* 1239 * PRINT SUMMARY TABLE TITLE AND INPUT DPIVE IDENTIFIER 
1710 0000 1714 «#1192 DC XL2*008 CYLINDER 0 *GC* 1240 * 
1712 0000 1713 1193 DC XL2*°O008 HEAD ADDRESS R F *G6C*® 179% 4C 23 23 20C2 1241 AVC 35(36,5XR1) ,SHOUN BUILD 
1714 00 1718 11948 DC XL14*o8# RECORD T I *GC* 1799 uc 15 39 20EE 1242 MVC 57 (22,$XR1) ,- SHOGN TITLE 
1715 00 41715 1195 DC XL1°Q° KEY LENGTH R z *GC* 179E 4¢C 00 39 2189 1243 MVC 57(1,$XR1) ,SDRVID LINE 
1716 0000 1717 1196 pc XL2*00* DATA LENGTH oO L *GC*® 1244 * 
1718 00 1718 1197 pc XL1°O* couNrT L D *GC* 17A3 CO 87 O21A 1245 B SPRINT PRINT 
1718 1198 DDcCZ EQU 4 * ° FOR READ HA & RO *GC# T7A7 42 T7IAT 4246 Dc XL1¢429 TITLE 
1719 0008 IVWIA 1199 DDZL bc XL2°0008* **DATA LENGTH** FOR READ HA & RO *GCcs 17A8 3A I7A8 1247 pe IL1*58* LIWE 
1200 FFEEEERERE TEESE EEEEEEEESERESS OEEEERESEEEREAES EEE EEEEERESEEEEE EES ERESGCE I7A9 223A ITAA 1248 dc AL2 ($PBUF+¢57) 
171B C8 171B 1201 DRV32 DC xXL1*c8e * DISK DPIVE ADDRESS BITS DRIVE 2 *6C* 17AB FFOO V7IAC 1249 pe AL2 (SHLTOO) 
171C 0000000000000001 1725 1202 DDCFB DC X1L10*00000000000000010000" * INITIAL VALUE FOR DDCF *GC* 1250 * 
17248 0000 1202 1251 #----<-- wore eren Pewee wee em ee enw ween ene orem em ew nen ewe Pee em eer me wm mewn 
7726 170A . 1727 1203 AREC# npc AL2 (DDDFe¢5) * ADDRESS POR ALTERNATE RECORD # USEN.*GC# 1252 * PRINT SUMMARY TABLE HEADING ZINES 
12040 FAEREREERESEEES SESERERERE SEES ESEESEEES SEEEEEERESE EEEEE SESE EEREEEEEEEECCE 1253 .* 
1205 17AD 7C 5C 68 1254 avVI 106 (,SXR1) ,Ceee BUILD FIRST 
1205 17380 5C 67 67 68 1255 NYC 103 (104,$XR1),108(,$XR1) LINE OP SUMGARY TABLE 
1205 1256 * 
1728 1206 DSNS £QU * *GC* 17B4U CO 87 O21A 1257 B SPRINT PPINT FIRST 
1728 173P 1207 DSNSE Ds XL28 *G6C*} 17B8 01 17B8 1258 pc XLVU¢Ot1! LINE OF SUMMARY TABLE 
_ 1740 T76P 1208 PSNS DS XL&8 *G6cC* 1789 69 17B9 1259 DC ILU* 105¢# 
1209 #4#44444480%4%% END OF DISK I/0 FOR 3380 PESREREEESEEEEEESEEEEE ED KEEEGCE 17BA 2269 17BB 1260 © pc AL2 (SPBU Fe 104) 
; : 1261 * 
17BC 7C 4O 67 1262 AVI 103(,$xXR1),c* ¢ CLEAR 
17BF 5C 65 66 67 aSer MVC 102 (102,$XR1),103(,$XR1) PRINT BUFFER 
1264 * 
17¢3 7C SC 06 1265 MVI 6 (,$XR1) ,C* et BUILD 
17C6 7C SC OF 1266 NVI 15(,$XR1) ,C*## SECOND 
17¢c9 7¢ SC 18 1267 NVI 24 (, SXR1) Cee? LINE OP 
17cC 7c 5c 32 1268 NVI 50(,SXR1) ,Ce#! SUMMARY 
17CF 7C 5C 3P 1269 MVI 63(,$XR1) ,C*#? TABLE 
17D2 7c SC 52 1270 MVI 82(,-35XR1) ,Cee! 
17D5 7c 5c 5c 41271 MVI 92(,SXR1),Cce#? 
17D8 4c 04 15 203 %272 “VC 21(5,$XR1) , SHOTH 
17DD 4C OF 2C 2103 1273 MVC 44(16,$XR1) , SHO6N 
I7TE2 4C 03 3A 2107 1274 MVC 58(4,$XR1) -$809¢3 
T7E7 4c 03 WA 210C 1275 HVC 74 (4, SXR1) , SH 10N 
ITEC 4c 04 59 2111 1276 AVC 69(5,$XR1) ,SH1IIN 
17FT 4c 0% 64 2711 1277 MVC 100(5,$XR1) ,$m118 
1278 * 
DATE 29A0G75 O7NOVTS OSHART76 217AN77 PROG ID FF7-3 DATE 29A0G75 O7NOV75 OGMART6 Z1IAN77 PROG ID T= 
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FF73 DISK ERROR RECORDING ANALYSIS PROGRAMS FF73 DISK ERROR RECORDING ANALYSIS PROGRAS 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
17F6 CO 87 021A 1279 B SPRINT PRINT SECOND 1347 * 
17FA 01 17PA 1280 pc XL1¢018 LINE OF SUMMARY TABLE 18A1 3D F2 2193 1348 CLI SDRV.C*2? CONTINUE PRINTOUT IP DRIVE & 
17FB 69 17FB 1281 pe IL1*105¢ 18A5 F2 04 10 1349 INH $RSB SUMMARY HAS NOT YET BEEN PRINTED 
17FC 2269 17PD 1222 DC AL2 ($PBUF¢104) 1350 * ; 
1283 * 18A8 SC 66 67 68 1351 NVC 103 (103, $XR1),104(,$XR1) BUILD LAST LINE OF SUMMARY TBL 
W7FE 4c 02 04 2114 1284 MVC =64(3,$XR1) ,$M12N BUILD 1352 * 
1803 4c 05 OD 211A 1285 MVC =. 13 (6, SX¥R1p ,$M13N THIRD 18AC CO 87 O2TA 1353 B SPRINT PRIKT LAST LINE 
1808 4¢ 05 16 2120 1286 MVC 22(6,$XR1),SM14N LINE OF 18B0 06 18B0 1354 pe XL1°06° OF SU™"ARY TABL® 
180D 4c 16 30 2137 1287 MVC 48(23,$XR1),$M15N SUMMARY 18B1 69 18B1 7355 pc IL?*705¢ 
1812 4C 05 3B 2103 1288 rvc «59(6,$XR1) ,$MO8N TABLE 18B2 2269 18B3 1356 pe AL2 (SPEBUPFe 104) 
1817 "ic 05 4B 2103 1289 MVC =. 75 (6, $XR1) , SMOSN 1357 * 
181C 4C U4 59 2168 1290 MVC 8=—«_- 89. (5, $SXP1), FMOON 18B4 CO 87 1778 1358 B $R5 GO CHECK FOR MORE INPUT DRIVES 
1821 4C 08 66 2140 1291 MVC 102(9,$XR1) ,SM16N 1359 * 
1292 * 1360 *--~------- weenee ween een nnn ew e+ wen ee meen n nee eee wee nnn e 
1826 CO 87 O21A 1293 B SPRINT PRINT THIPD 1361 * LOCATE AN UNOSED LOG ENTRY FIELD 
V82A 01 182A 1294 pc XL1°018 LINE OF SUMMARY TABLE 1362 * 
182B 69 182B 1295 pc IL1*105¢ 18B8 3C 00 218F 1363 $R5B AVI $PTR,0 POINT TO FIRST LOG EXT.) PIELD 
182C 2269 182D 1296 DC AL2(SPBUF4¢104) 1364 * 
1297 * 18BC CO 87 1IDDS 1365 $R5B17 B $10 READ LOG ENTRY 
182E SC 02 04 05 1298 MVC 4 (3,3XR1) ,5(,$XR1) BUILD 1366 * 
1832 SC 05 OD OF 1299 MYC 13 (6,$XR1) ,14(,$XR1) FOURTH 18CO 3D 00 21c1 1367 CLI SREC,0 BRANCH IP 
1836 4C 05 16 2146 1300 MVC =.22(6,$XR1),$M17N LINE OF 18C4 F2 81 12 1368 JE $R5C ENTRY iS URUSED 
183B 4c 09 23 2156 1301 MVC 35(10,$XR1),$M18N SUMMARY 1369 * 
1840 4c 09 30 2156 1302 MVC 48 (10,$XR1) ,$N18N TABLE 18C7 OF 00 218F 24A6 1370 ALC =$PTR(1),$P1 ADVANCE LOG ENTRY POINTER 
1845 GC 09 2p 2156 1303 MVC 61(10,$XR1),SM1BN 1371 * 
184A UC OF 50 2156 1304 MVC =. 80 (16, $XR1), SM18N 18CD 3D BF 218F 1372 CLI $PTR, 191 BRANCH IF WOT 
184F 4C 06 SA 245D 1305 MVC 90(7,$XR1),SM19N 18D1 CO 82 18BC 1373 BL $R5B1 YET END OF LOG AREA 
1854 SC 08 66 67 1306 MVC =6. 102 (9, $XR1) ,103(,$XR1) 1378 * 
1858 4c 03 63 2161 1307 MVC 99(4,$XR1),$M20N 18D5 3c 00 2t°F 1375 BVI $PTR,0 ASSUME LCG AREA IS PULL 
1308 * 1376 © 
185D C0 87 O2TA 1309 B SPRINT PRINT POURTH 1377 a ee ea i en ee ee eee ee OE ROO Me OEE EOE eee 
1861 01 18617 1310 pc XL1¢01! LINE OF SUMMARY TABLE 1378 * LOCATE OLDEST LOG ENTRY 
1862 69 1862 1311 DC IL1*105' 1379 * 
1863 2269 1864 1312 pc AL2($PBUF+104) 18D9 3C 00 2198 1380 $R5C VI $CTR,O IWITIALIZE LOG EXTRY COUNTER 
1313 * 1381 * y 
1865 5C 66 67 68 1314 NVC 103(103,$XR1) ,104(,$XR1) BROUILD LAST HEADING LINE 18DD CO 87 1DD5 1382 $R5C1 B $10 READ LOG ENTRY 
1315 « 1383 * 
1869 CO 87 O21A 1316 B $PRINT PRINT LAST LINE 18E1 3D 00 21¢1 1384 CLI SREC,0 BRANCH IF 
186D 01 186D 1317 Dc XL1°018 OF SUMMARY TABLE HEADING 18E5 P2 01 30 1385 JNE $R5C3 EKTRY IS USED 
186E 69 186E 1318 pc IL1°105* 1286 * 
186F 2269 1870 1319 pc AL2($PBUF+104) 18E8 OF 00 218F 24A6 1387 ALC $PTR(1),$P1 ADVANCE LOG ENTRY POINTER 
1320 * 18EE OF 00 2198 27A6 1388 ALC =—s- SCT R(1) , SPT ADVANCE LOG ENTRY COUNTER 
1871 3C F1 2193 132% MVI  $DRV,Ct1? INITIALIZE DRIVE IDENTIFIER 1389 * 
1322 * 18P4 3D BP 218F 1390 CLI $PTR,191 BRANCh IP NOT 
1323 *-~-------+------- were ne ee ee woe eran nee eee ee enn ene 18FP8 P2 82 048 1391 JL $R5C2 YET EXD OF LOG APFA 
1324 * PRINT SUMMARY TABLE SPACE LINES 1392 * 
1325 * 18FB 3C 00 218F 1393 “VI SPTR,0O WRAP BACK TO PIRST LOG ENTRY 
1875 7C 40 67 1326 $RSA MVI 103(,$XF1),c" ¢ CLEAR 1394 * 
1878 5C 65 66 67 1327 MVC =. 102 (102, $XR1) , 103 (, $XR1) PRINT BUFFER 18FP 3D BP 2198 1395 $R5C2 CLI S$CTR,191 GO TO CEECK NEXT LOG IP ALL 
1328 * 1903 CO 82 18DD 13°26 BL $RS5C1 : ENTRIES HAVE ROT YET BEEN CRECKED 
187C 7C 5C 06 1329 MVI 6(€,$XR1),Ce*? POSITION 1397 * 
187F 7C 5C OF 1330 MVI 15(,$XR1),ce#e ASTERISKS 1907 4c 05 OD 2167 1398 MYC 13(6,$ZR1) -$N27B BUILD *O LOG MESSAGE 
1882 7c 5c 18 1331 MV1 0-26. (, $XR1),C'*? IN PRINT 4399 + 
1885 7c 5c 25 1332 MVI 37(,$XR1),Ce*? BUFFER 190C CO 8&7 CTR 1460 B SPRINT PRINT *KO LOG* 
1888 7c 5¢ 32 1333 MVI 50 (,$XR1),c'*t 1910 01 1910 1401 c XLI°O4* MESSAGE IN TABLE 
788B 7C SC 3F 1334 MVI 63(,$XR1),Ct#t 49171 69 1911 14602 pC XL1°105° 
188k 7c Sc 52 1335 NVI 82(,SXR1),Ce*s W912 2269 1913 tee BC AL2 ($PBUF¢ 104) 
1891 7¢ 5c 5 ame W408 
abs a * oe Seer 1914 CO 87 1AFS 1405 B SES GO TO PPOCESS DATA FOR NEXT DRIVE 
18°98 CO 87 O27A 1338 SPRINT PRINT SPACE LINE 1806 * 
1698 01 1898 1339 e XL1'07! a 1918 Oc 00 2198 218F 14607 $R5C3 #YC SPTRF (1) -SPTR SAVE POISTER TO OLDEST LOG ENTRY 
1899 69 1899 1340 DC IL1*105* 1608 * snatches lgletenes 
189k 2269 189B 1341 DC AL2 (SPBUF+104) 102 ee sees Sates renee Sass Sees Sm or Teo er ree kp ee ars 
1342 * 1410 * CHECK FOR NEW VYOLUBE IDENTIFIES 
1343 Ree ow meme wwe meme eee OO Oe Ree Se ee ee ee me me a me Ter emer we mmo Watt * 
1344 * BEGIN / END SUMMARY PRINTOUTS ISTE Oc 00 2195 218FP 1412 $R5D MVC S$PTRX(1),2PTR SAVE CURSENT LOG ENTRY POINTER 
13485 * 1473 * 
189C 4C 00 03 2193 1346 MVC =. 3 (1, SX¥R1) , SDRV MOVE DRIVE ID TO PRINT BUFFER 1928 4&C OS OD 214C6 14748 FIC 1346, $XR4) -SRECCS MCVYE VOLUNE ID TO PRINT BUFFER 
DATE 2900675 O7NOV7S O4MARTE 243 AN77 PROG ID FF7-3 DATE 29AUGT75 O7NOVTS O4MART6 215A877 PROG ID eee 
co NO. 827808 827805 571871 571989 PAGE 14 EC NO. 827804 827805 571871 571989 PAGE ‘ 
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FF73 DISK ERROR RECORDING ANALYSIS PROGRAS FF73 DISK ERROR RECORDING ANALYSIS PROGRAM 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
115 * 1483 * 
1929 0c 00 218F 2194 1416 MVC $SPTR (1), SPTRF POINT TO OLDEST LOG ENTRY 19D9 38 B80 2%D2 1484 $R5E3 TBN $REC#17,$BITO CHECKED LOGGED SNS BYTE 1 
1417 * 19DD F2 90 03 1485 JP SRSEG BRANCH IF NOT PFPMAERENT EPROR 
192F OD 00 218F 2195 1418 $R5D1 CLC SPTR (1) , SPTRX BRANCH IF 1486 * 
1935 F2 81 23 1419 JE $R5E NEW VOLUME ID 19EU E2 02 O€ uae LA 6 (e $XR2) -SXR2 ADVANCE POINTER TO *PERMN* CONNTER 
1420 * 1486 * 
1938 cO 87 1DDS 1421 B $10 READ LOG ENTRY 1923 86 30 00 21AD 1489 $R5EG AZ 0(4,$XR2),£D1(1) INCREMENT ERROR COUNTER 
1422 * 1490 
193C &D C5 OD 21C6 1423 CLC 13(6,$XR1) ,SREC#S BRANCH IF VOLUME 19E8 OF 00 218F 2126 1491 $RSES ALC $PTR(1),$P1 ADVANCE LOG ENTRY POINTER 
1941 CO 31 1ABB 1424 BE RSF WAS PREVIOUSLY PROCESSED 1492 * 
1425 * 19EE 3D BF 218P 1493 CLI $PTR,191 BRANCH IP NOT 
1945 OF 00 218F 2146 1426 ALC $PTR(1),$P1 ADVANCE LOG ENTRY POINTER 19F2 F2 82 04 see JL SRSEG YET END OF LOG AREA 
1427 ® 1495 * 
194B 3D BF 218F 1428 CLI $PTR,191 BRANCH IP NOT 19F5 3c 00 218F 1496 M¥I $PTR,O WRAP PACK TO FIRST LOG ENTRY 
194F CO 82 192F 1429 BL S$R5D1 YET END OF LOG AREA 1497 ® 
1430 * 19F9 OD 00 218F 2194 1498 $RSE6 CLC $PTR(1),$PTRF BRANCH YP ALL LOG 
1953 3c 00 218F 1431 NVI $PTR,O WRAP BACK TO FIRST LOG ENTRY 19FF F2 81 19 1499 JE $RSE7 ENTRIES HAVE BEE: CHECKED 
1957 CO 8) 1°2F 1432 B $R5D1 GO TO CHECK NEXT LOG ENTRY 1500 * 
1433 * 1A02 CO 87 1DD5 1501 B $IO READ NEXT LOG ENTRY 
TU 3Y Henne mem nnn nn en ee ee ee ee ee ee ee 1502 * 
1435 * COMPILE AND PRINT SUMMARY DATA LIWE 1A06 3D 00 21C1 1503 CLI $REC,0 BRANCH IF 
1436 * 1aA0A CO 81 19E8 1504 BE SRSES UNUSED ENTRY 
195B 7C FO 64 1437 $R5E MMVI 100(,SXR1},C'O® INITIALIZE 1505 * 
195B 5c 03 63 64 14 38 MVC 99(4,$X81),100(,$XR1) ALL SUMMARY TAOE 4D 05 OD 21c6 1506 CLC 13(6,$XR1) ,SREC45 BRANCH JP ENTRY CONTAINS 
1962 5C 04 59 64 1439 MVC =. 89 (5, $XR1) , 100(, $XP1) LINE COUNTERS 1A73 CO 01 1988 1507 BNE $RSES A DIFFERENT VOLUME ID 
1966 5C 03 50 64 1440 MVC = 80 (4, $XR1) , 1000, $XR1) TO ZEROS 1508 * 
196A 5C 03 UR 50 1484 MVC = 74 (4, SXR1) ,80(, $XR1) 1A17 CO 87 1992 1509 B SRSE1 GO TO UPDATE SUMMARY COUNTERS 
196E 5c 03 44 50 1442 MVC ©68(4, $XR1) ,80(,$XR1} 1510 * 
1972 5c 09 3D 5 1443 MVC = 6 110, , $XR1) ,80(, $XR1) 1A1B 1511 $RSE7 EQU *® 
1976 5C 16 30 4A 1444 MVC =—«- &8 (23, $XP1) 5 74(, $XR1) 1A1B 3C OF 2428 1512 NVI TABTBL,15 SETUP TABLE FOR OUTPUT 
197A 5C 03 15 50 1445 MVC =. 221 (4, SXR1) ,80 (, $XR1) VAIF OC 01 23BB 23A1 1513 MVC = TABIDX (2) , ZERO 
1446 * 1A25 3c 048 23839 1514 MVI CNTLNG, X04? SEEK COUNT IS & HEX BYTES LONG 
197E CO 87 1DD5 1447 B $10 READ LOG ENTRY TA29 OC OF 23B7 23A1 1515 MVC = CNTOFS (2) , ZERO 
1982 3C 00 2198 1448 MVI SRDCNT,0 CLEAR TA2F 34 01 1A6A 1516 ST SSAVR1¢3,XR1 SAVE XR1 
1986 OC 04 219D 2195 1449 NYC S$RDCNT-1(5),SRDCNT READ AND SEEK 1A33 34 02 TA6E 1517 ST SSAVR2¢3,XR2 SAVE XR2 
198C OC 03 21A2 219E 1450 BYC $SKCNT(4),$RDCNT USAGE COUNTERS 1A37 OC 03 2626 21A2 1518 MVC DBUF¢3(&),$SKCNT PUT SEEK COUNT INTO BUFFER 
1451 * 1A3D CO 87 11C€2 1519 B REX DEC FOR THE HEX TO DEC SUBROUTINE 
1992 OF 05 2198 21cc 1452 $RSE1 ALC SRDCNT(6),$REC+1" UPDATE READ AND 1A41 0C 04 1B08 086B 1520 MVC =o SAVSEK (5) ,PRTBUF#11 DIVIDE SEEK COUNT BY 1000 
1998 OF 03 21A2 21D0 1453 ALC = SSKC NT (4) , SREC#15 SEEK USAGE COUNTERS 1521 
1454 * 1A47 3C 06 23B9 1522 MVI «= CNTLNG, X*06* PEAD COUNT IS 6 HEX BYTES LONG 
199E 3B OF 21D8 1455 SBF $REC#23,Xx"OF* CLEAR MSG BITS IN SNS BYTE 7 TAUB OC 01 23BB 23A1 1523 NVC TABIDX(2),ZERO 
1456 * 1A51 0C 01 23B7 23A1 1524 AVC CNTOFS (2) ,ZERO 
19A2 D2 02 15 1457 LA 21(,$XR1) ,$XR2 POINT TO "PNT O* COUNTER 1A57 OC 05 2628 2198 1525 MVC =DBUF*5 (6) , $RDCNT READ COUNT IS WOW CONVERTED TO DEC 
1458 * 1A5D CO 87 11C€2 1526 B HEXDEC 
19A5 3D 10 21D8 1459 CLI sREC#23,x°10! CHECK LOGGED SENSF BYTE 7 1A617 0C 04 1B0D 0888 1527 MVC =e SAVRD (5) , PRTBUF¢8 DIVIDE READ COUNT BY 1000000 
19A9 F2 82 37 1460 JL SRSEG BRANCH IF SNS FORMAT 0 1528 
19AC F2 84 10 1461 JH SR5SE2 BPANCH IF NOT SNS FORMAT 1 1A67 C2 01 0000 1529 $SAVR1 LA *-*,XR1 RESTORE XR1 
1462 * 1A6B C2 02 0000 1530 $SAVR2 LA *-* ,XR2 PESTORE XR2 
19AF D2 02 2A 1463 LA 42(,$XR1) ,$XR2 POINT TO *SQUIP CK* COONTER 1A6F 4C G4 59 1808 1531 MVC 8=—. 889. (5, X21) , SAVSEK POT THE SEEK COUNT IN MSG BUFFER 
1464 * 1A74 4C O48 64 1B0D 1532 MVC 100 (5,XR1) ,SAVRD PUT THE READ COUNT IN MSG BUFFER 
19B2 38 01 21D1 1465 TBN $REC#16,$BIT7 PRANCH IP NOT 1A79 7D 40 59 1533 CLI 89(,XR1),X*40* IF THERE IS A BLANK 
19B6 F2 90 20 1466 JF $RS5E3 SEEK CHECK 1A7C P2 01 03 1534 JNE *46 IN THE SEEK COUNT, 
1467 * 1A7F 7c FO 59 1535 NVI 89(,XR1),X*PO? PUT A ZERO THERE 
1959 D2 02 37 1468 LA 55 (,$XR1) ,$XR2 POINT TO ‘SEEK CK* COUNTER 1536 * 
19BC P2 87 1A 1469 J $RSE3 GO TO INCREMENT COUNTER 1A82 7D 4O 64 1537 CLI = 100 (, XR1) ,x*G08 CHECK THE READ FYIELD FOR BLANKS ALSO 
1470 * 1A85 F2 01 03 1538 JNE *46 
19BF D2 02 44 aan $R5E2 LA 68 (,$XR1),$XR2 POINT TO *CORR DATA CK* COUNTER 1A88 7c FO 64 1539 MVI =: 100 (, XR1) ,X*FO! 
4a7y2 * 1540 * 
19C2 3D 50 21D8 1473 CLI $REC4#23,x"50° CHECK LOGGED SENSE BYTE 7 1541 * 
19C6 F2 81 1A 1474 JE SR5EG BRANCH IF SNS FORMAT 5 1542 * 
19C9 F2 84 1C 1475 JH SRSES BRANCH IF SNS FORMAT 6 1543 © NOTE THAT THE FIRST 15 LOCATIONS OF PRTBUF FIRST CONTAIN DECISAL 
19Ce-0905- an sass : ; ; 1544 * VALUE FOR THE SEEK CCUNT AND THEN IT WILL CONTAIN THE READ 
* saad LA 29(,$XR1) , $XR2 POINT TO ‘EQUIP CK* COUNTER vee VALUE~~THUS THE MVC INSTRUCTIONS MAY BE USED FOR THE DIVIDE. 
19CF 3D 40 21D8 1479 CLI S$REC#23,x*u0° CRECK LOGGED SNS BYTE 7 1547 * 
19D3 F201 03 1480 JNE $R5SE3 BRANCH IF NOT SNS FORMAT & 1A8B CO 87 1AB3 1548 B $R5E9 SKIP THIS FOR DEBUG 
ane woo RE ano * a diieiiiics ; TAGF OF 03 2142 2182 1549 SLC $SKCNT (4) ,$KILO CONVERT SEEK 
; ) ,SXR2 POINT TO "DATA CK* COUNTER 1A95 F2 82 09 1550 aM SRSEB : USAGE COUNT TO 
DATE =» 29R0G75— OTNOW75 = OMMART6 =. 29.3 AN77 PROG ID FP7-3 DATE 29A0G75 O7NOV75  O4MART6 213ANT7 PROG ID PPT-3 
EC NO. 827804 827805 571871 571989 PAGE 15 EC NO. 827804 827805 571871 571989 
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FF73 DISK ERROR RECORDING ANALYSIS PROGRAM FF73 DIS ERROR RECORDING ANALYSIS PROGRAS 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1A98 46 4O 59 21AD 155% AZ 89(5,$XR1),$D1(1) DECIMAL AND MOV. T6000 FERRERO HEE ER EREEER EEE EREEE SE EE EEE TESS OONECERERES OHEREREEEEEEESOREE 
TASD CO 87 1A1B 1552 B SRSE7 TO PRINT BUFFER 1601 * * 
1553 * 1602 ® ROUTINE & - PRIRT 3340 ERROR HISTCRY TABLE * 
1AA1 OF 05 219E 2188 1554 $R5E8 SLC $RDCNT(6),$MEG CONVERT READ 1603 * * 
VAA7T F2 82 09 1555 JM SR5E9 USAGE COUNT TO L604 SECS HESHEEE ERE ESEREREESEEREREREEEEEEES SEREKEEKEEREEREREEERESRSEREEEE 
TAAR 46 4O 64 24AD_ 1556 AZ 100(5,$XR1) ,$P1(1) DECIMAL AND MOVE 1605 * 
1AAF CO 87 1AA1 1557 B $R5E8 TO PRINT BUFFER 1696 * ROUTINE PREPACE 
1558 * 1607 * 
1AB3 CO 87 O21A 1559 $RSE9 B SPRINT PRINT TBOR 04 TBOE 1608 S$PTNY DC XL1*Oa8 ROUTINE NUMBER 
1AB7 01 1AB7 1560 pe XL1°O1* SUMMARY LINE 1BOF 00 TBOF 1609 DC XL1*°008 ROUTINE PLAGS 
1ABB 69 1ABB 1561 pc IL1*105¢ 1B10 PFFP 1B11 1610 DC XL2*FFFP* LAST ROUTINE 
1AB9 2269 1ABA 1562 Dc AL2 (SPBUF¢ 104) 1611 * 
1563 * 1612 *----------~--~-------- +--+ ween e~ ee ee ee wae nen e eee woe eee 
1S6N, See eccccccws We tSteieaummnetowes pe Demo etee eee ono Cove ce a 1613 * ROUTINE INITIALIZATION 
1565 * SEARCH FOR NEXT VOLUME ID TO BE PROCESSED 1614 * . 
1566 * 1B12 3c 00 2188 1615 MvVI S$IND,O RESET ALL PROGRAM IN?-SCTORS 
1ABB OC 00 218F 2195 1567 $R5F VC $PTR(1),$PTRX RESTORE LOG ENTRY POINTER 1616 * ‘ 
1568 * 1B16 CO 87 1D2D 1677 $R6 B SBEGIN PERFORM COMMON INITIALIZATION 
VACY OF 00 218F 21A6 1569 $R5F1 ALC $PTR(1),$P1 ADVANCE LOG ENTRY POINTER 1618 * 
1570 * 1B1A OC 01 218C 21A9 1619 MVC $CYL(2),$P209 INITIALIZE 3340 CYLINDER ADDRESS 
1AC7 3D BF 218F 1571 CLI $PTR,191 BRANCH IF NOT 4B20 OC 01 218E 21A6 1€20 HVC $HD(2),$P1 INITIALIZE 3340 HEAD ADDRESS 
VACB F2 82 04 1572 JL SRSF2 YET END OF LOG AREA 1B26 3c 00 218P 1621 AVI $PTR,C INITIALIZE LOG RECORD POINTER 
1573 * 1622 © 
TACE 3c 00 218F 1574 SVI SPTR,0 WRAP BACK TO FIRST LOG ENTRY 1B2A CO 87 1IDDS 1623 B $z0 PEAD FIEST LOG RECORD FROM 3380 
1575 * 1624 © 
1AD2 OD 00 218F 2194 1576 SRSF2 CLC $PTR(1),SPTRF BRANCH IF ALL LOG 1B2E C2 01 2201 1625 LA SPBUF,SXRY PRINT BUFFER ADDRESS TO INDEX REG 1 
1AD8 F2 81 19 1577 JE $RSN ENTRIES HAVE BEEN CHECKED 1626 * 
1578 * 1627 #-------- o------- wenn en = = + wo enn eee ee weet nee -e 
1ADB CO 87 1DD5 1579 B $10 READ NEXT LOG ENTRY 1628 * PRINT HISTORY TABLZ TITLE AXD INPUT DRIVE IDENTIFIER 
1580 * 1629 * 
TADF 3D 00 21¢1 1581 CLI SREC,0 BRANCH IF 1B32 4C 15 15 20D8 1630 HVC 27(22,$XR1),SH05N BUILD 
1AE3 CO &1 1AC1 1582 BE $RSF1 UNUSED ENTRY 1B37 4C 15 2B 20EE 1631 MVC =: © 3 (22, SXR1) , SHOOK TITLE 
1583 * 1B3C 4C 00 2B 2189 16 32 MVC 43(1,$XR1),$DRVID LIFE 
1AE7 4D 05 OD 21C6 1584 CLC 13 (6, $XR1) ,$REC#S BRANCH IF ENTRY 1633 * 
1AEC CO 81 1AC1 1585 BE SRSF1 CONTAINS SAME VOLUME ID 1B41 CO 87 O21A 1634 B SPRINT -PRINT 
1586 * 1B45 42 1B45 1635 pc XL1¢420 TITLE 
1AFO CO 87 191E 1587 B $RSD GO TO CHECK IF NEW VOLUME ID 1B46 2C 1B46 1636 pc IL1*ags LIE 
1588 * 1B87 222C 1B4S 1637 pc AL2 (SPBUF¢G@3) 
45899 #---------.- cebee ete weweae it iota aie eons eevinewactcaskoSseesnteeeees 1B49 FFOO 1BUA 1638 Dc RKL2 (SHLTOO}) 
1590 * PREPARE TO PRINT SUMMARY FOR NEXT DRIVE ID 1639 * 
1591 * 1640 #--------- eee eee Sco scs Sacesoae Kometeceeawetee sews aosoes den teae 
TAF4Y JE 00 218E 2126 1592 $RSN ALC $HD(1),$P1 ADVANCE HEAD ADDRESS 164% * PRINT HISTORY TABLE HEADING LINES 
TAFA 06 00 2193 21AD 1593 AZ SDRV (1) ,$D1(1) ADVANCE DRIVE IDENTIFIER 1642 * 
1594 * 1B4B 7C 5C 5D 1643 MVI «= 93(, $XR1),C%#* BUILD PIRST 
1B00 CO 87 1875 1595 B SRSA GO TO COMPLETE SUMMARY TABLE {B4E Sc Sc SC 5D ae HVC =692(93,$XR1) ,93(,$XR1) LINE CF HISTORY TABLE 
1596 * 1645 * 
1B04 0000000000 1B08 1597 SAVSEK DC xXLS5*008 4B52 CO 87 021A 1646 B SPRINT PRINT PIRST 
1B09 0000600000 1B0D 1598 SAVRD DC xXL5*o008 1556 01 1B56 1647 pc XL1°O%# LINE CF HISTORY TABLE 
1857 SE 1B57 1666 pc ILI*94¢ 
1B58 225E 1B59 1649 pc AL2 (SPBUP+93) 
1650 * 
1B5A 7C 40 Sc 1651 NVI 92(,$XR1),C* ° CLEAR 
1B5D 5C 5A 5B 5C 1652 MVC 91(91,$XR1),92(,$XR1) PRIET BUFFER 
1653 * 
7B61 7C SC 06 1654 NVI 6(,$XR1) ,ce#e BUILD 
1B64 7C 5C OF 1655 NVI 15(,$XR1},Ct#? SECOND 
1B67 7C 5C 1A 1656 MVI «=: 26. (, SXR1p, Cee LINE OF 
TB6A 7C 5C 25 1657 HVI 37(,S$XR1},c'#? HISTORY TABLE 
1658 * 
1B6D CO 87 O21A 1658 B SPRINT PRINT SECOND 
1B71 01 1B71 1660 pc XL1°O18 LINE CP HISTORY TABLE 
1B72 5E 4B72 1661 pc IL1*9g¢ 
1B73 2252 1B74 1662 pc RL2(SPBUFt9 3) 
1663 * 
1375 uc 02 04 2118 1664 M¥C 4&(3,$XR1),S$H12N BUILD 
4B7A 4C OS OD 278 1665 HVC «13 (5, SXR1} ,SM13N THIRD 
1B7F 4&C 03 16 216B 1666 SVC 22(4,$XR1),$H22N LIN OF 
1B84 4C 03 21 216¥ 1667 "VC 33¢4,$XR1) ,SM23N HISTORY 
DATE 29A0G75 O7NOV75 O4MART6 213ANT7 PROG ID FF7-3 DATE 29A0G75 O7NOV75 OSMAR76 243AR77 PROG ID PF7-3 
TC NO. 827804 827805 571871 571989 PAGE 416 EC NO. 8278048 827805 571871 571989 PAGE 16A 
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FF73 DISK ERROR RECORDING ANALYSIS PROGRAM 2 FF73 DISK ERROR RECCRDING ANALYSIS PROGRAM 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1B89 4C 1A 4E 2069 1668 FVC 78 (27,$XR1) ,$MO2N TABLE 1cO08 F2 81 12 set . JE SR6C ENTRY IS UNUSED 
1669 * 
1B8E CO 87 O21A 1670 B SPRINT PRINT THIRD 1COB OF 00 218F 21A6 1738 ALC $PTR(1),$P1 ADVANCE LOG ENTRY POINTER 
1B92 01 1B92 1671 pc XL1°O18 LINE OF HISTORY TABLE 1739 * 
1B93 5E 1B93 1672 pc IL1#Qu¢ 1C11 3D BF 218F 1740 CLI SPTR, 194 BRANCH IF not 
1B94 225E 1395 1673 DC AL2 (SPBUF493) 1C15 CO 82 1c00 17414 BL $R6B1 YET END OF LOG AREA 
1674 * 1742 «* 
1B96 5c 02 04 05 1675 MVC 4 (3,$XR1) ,5(,$XR1) ROILD 1€19 3C 00 218F 1743 MVI $PTR,0 ASSUME LOG AREA IS FULL 
1B9A 5C 05 OD OE 1676 MYC 13(6, $XR1), 14(,$XR1) FOURTH 1744 * 
1B9E 4C 07 18 217F 1677 MVC) =—«. 24 (8, SXR1), SM25N LINE OF 1745 *--------~ TSS S ese ae es See ae Seo See SS Si inne as oe ie! 
1BA3 4C 07 23 2187 ' 1678 MVC 35/8, $XR1) , SM26N HISTORY 1746 *& LOCATE OLDEST LOG ENTRY 
TBAB 4C 34 5B 209E 1679 NVC 91(53,$XR1) ,$MO3N TABLE 17407 * 
1680 * 1C1D 3c 00 2198 1748 $R6C AVI $cTR,O INITIALIZE LOG ENTRY CCUNTER 
12AD CO 87 O2TA 1681 B SPRINT PRINT FOURTH 1749 * 
1BB1 01 1BB1 1682 pc XLI¢'9t8 LINE OF HISTORY TABLE 1€21 CO 87 IDDS 1750 $RGC1 B $IO READ LOG PNTRY 
1BB2 5E 1BB2 1683 Dc IL1*94¢ 1751 * 
1BB3 225k TBB4G 1684 pc AL2 (SPBOF+493) 1C25 3D 00 21C€1 1752 CLI SREC,O BRANCH IF 
1685 * 1C29 F2 01 30 1753 JNE $R6C3 ENTPY IS USED 
1BB5 5c 5B Sc 5D 1686 MVC = - 92 (92, $XR1),93(,$XR1) BUILD LAST HEADING LINE 1754 * 
1687 * 1C2C OE 0O 218F 2126 1755 ALC $PTR(1),$P1 ADVANCE LOG ENTRY POINTER 
1BB9 CO 87 O21A 1688 B SPRINT PPINT LAST LINE 1C32 OF 00 2198 24:6 1756 ALC $CTR(1),$F1 ADVANCE LOG ENTRY COUNTER 
1BBD 01 1BBD 1689 DC XL1¢°O18# OF HISTORY TABLE HEADING 1757 * 
1BBE 5E 1BBE 1690 pc IL1*°9q4¢ 1C38 3D BF 218F 1758 CLI $PTR, 191 BRANCH IF NOT 
1BBF 225k 1BCO 1691 Dc AL2 ($PBUF+93) 1C3C F2 82 OW 1759 JL $REC2 YET END OF LOG AREA 
1692 * 1760 * 
1BC1 3C F1 2193 1693 MVI SDRV,C'18 INITIALIZE DRIVE IDENTIFIER 1C3F 3C 00 218F 1761 AVI SPTR,O WRAP BACK TO FIRST LOG ENTRY 
1694 * 1762 * 
1695 *----- Wt ren nn eee eee ee wwe wn en ee ee 1C43 3D BF 2198 1763 $R6C2 CLI $cTR,191 GO TO CHECK NEXT LOG IP ALL 
1696 * PRINT niewone TABLE SPACE LINES 1C47 CO 82 1¢€21 1764 BL $R6C1 ENTRIFS HAVE KOT YET BREN CHECKED 
1697 * 1765 * 
1BC5 7¢ 40 5c 1698 $R6A MVI 92(,$XR1),c* * CLEAR 1C4B 4C 05 OD 2167 1766 HVC = =13(6,$XR1) ,$M21N BUILD *NO LOG* MESSAGE 
1BC8 5C 5A 5B 5c 1699 MVC =—- 91(91,$XR1),92(,$XR1) PRINT BUFFER 1767 * 
1700 * 1050 CO 87 O21A 1768 B SPRINT PRINT "NO LOG* 
IBCC 7c 5c 06 1701 NVI 6(,$XR1) Cet POSITICN 1054 01 1054 1769 DC XL1*0178 MESSAGE IN TABLE 
WBCF 7C 5C OF 1702 MVI 15 (,$XR1) ,Ctet ASTERISKS 1€55 SE 1055 1770 pc IL1*94y8 
1BD2 7C SC 1A 1703 MVI 26 (,S$XR1),Ce*e IN PRINT 1056 225E 1057 1771 pc AL2 ($PBUF+493) 
1BD5 7c Sc 25 1704 MVI 37(,$XR1) ,cr# BUFFER 1772 * ; 
1705 * 1¢58 CO 87 1DOD 1773 B SRON GO TO PROCESS DATA FOR NEXT DRIVE 
1BD8 CO 87 O21A 1706 B SPRINT PRINT SPACE LIWE 1774 © 
1BDC 01 BDC 1707 pe XL1°*C18 1C5C OC 00 2194 218F 1775 $R6C3 MVC SPTRP (1) ,$PTR SAVE POINTER TO OLDEST LOG ENTRY 
1BDD SE 1BDD 1708 pc IL1*9ye 1776 * 
1BDE 2255 IBDF 1709 pc AL2 ($PBNF+93) W717 #--+-----~- wree-- ween errr owen wee remem meee a deaetatetaeteteateted weet meee een 
1710 * 1778 * FORMAT ARD PRINT LOG ENTRY 
1794 @eeccceacs ween ne ee Pte re teen mewn pene eee 1779 * 
1712 * BEGIN / END HISTORY PRINTOUTS 1C62 3D 60 21D8 1780 $R6D CLI $REC#23,x°608 BRANCH IF ONLY 
1793 * 1C66 CO 81 1CE3 1781 BE SR6E USAGE DATA IN LOG ENTRY 
1BEO 4C 00 03 2193 1714 MVC 3(1,8XR1) , S$DRV BOVE DRIVE ID TO PRINT BUFPEK 1782 * 
1715 * 1C6A 4C 05 OD 21¢6 1783 MYC 13(6,$XR1) ,SREC#S MOVE VOLUME ID TO PRINT BUFFER 
1BE5 3D F2 2193 1716 CLI SDRV,C*2¢ CONTINOE PSINTOUT IF DRIVE 4 1784 * 
1BE9 F2 04 10 1717 INH $R6B HISTORY HAS NOT YET BEEN PRINTED 1C6P 4C 07 18 2177 1785 MVC 24 (8,$XR1), $N2GN INITIALIZE DATE AND 
1718 * 1C74 4C 07 23 2177 1786 . MVC 35(8,$XP1),$m2GN TIME FIELDS IN PRINT BUFFER 
TBEC 5C 5B Sc 5p 1719 MYC 92(92,$XR1),93(,$XR1) BUILD LAST LINE OF HISTORY TABL? 1787 * 
1720 * 1C79 3D 00 21EA 1788 CLI $REC+U1,0 BRANCH IF NO 
1BFO CO 87 O21A 1721 B SPRINT PRINT LAST LINE 1C7D F2 81 OF 1789 JE SR6D1 DATE WAS RECORDED 
1BFY 06 IBF4Y 1722 DC XL1*068 OF HISTORY TABLE 1790 * 
1BF5 SE 1BF5 1723 pe IL1'9q¢ 1C80 4C 01 12 21EB 1791 MVC 18 (2,$XF1) ,SREC+42 MOVE DATE 
IBF6 225E IBF? 1724 pc AL2(SPBUF¢ 93) 1C85 4c 01 15 21ED 1792 MVC =. 21(2, $XR1) , SREC OKA TO PRINT 
1725 * 1C8A 4C 01 18 21EP 1793 MVC =. 28 (2, $XR1) , SRECAUG BUFFER 
iBF8 CO 87 1B16 1726 B $R6 GO CHECK FOR MORE INPUT DRIVES 1794 * 
at : 1C8F 3D 00 21F0 1795 $R6D1 CLI SREC+47,0 BRANCH IF NO 
1726 @eeeecccc Tetra eww nee Peete eee ene wre wenn ee eee 1093 F2 81 OF 1796 JE $R6D2 TINE WAS RECORDED 
gee * LOCATE AN UNUSED LOG ENTRY PIELD 1797 * 
* 1C96 4C 01 1D 21F1 1798 MVC =. 29 (2, $XR1) ,SREC#UB MOVE TINE 
1BPC 3C 00 218F 172) SREB NVI SPTR,O POINT TO FIRST LOG ENTRY PIELD ie ue a Zo aie 1799 ‘MVC «332 (2, $XR1) ,SREC#50 TO PRINT 
AO 4c F 1800 MVC 35 $XFR1) ,SRECe 
1€30 CO 87 IDDS5 1733 $R6B1 8B $10 READ LOG ENTRY 1801 * eee pa EROS, PUREE 
1734 * 1CA5 CO 87 024E 1802 $R6D2 8B SUNPK U 
NPACK 
1CO& 3D 00 27c1 1735 CLI $REC,0 BRANCH IF 1CA9 OW 1CA9 1803 DC ILttgqe FOUR SENSE 
Qn 
ee ie Sean pith addy PROG ID FP7-3 DATE 29A0G75 O7NOV7S OUMAR76 - -249AN77 PROG ID PP7-3 
89 PAGE 17 EC NO. 827804 827805 571871 571989 
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IES MAINTENANCE DIAGNOSTIC PROGRAM 


FFT73 
PRR LOC 


1CAA 
1ICAC 


ICAE 
1CB2 
1CB3 
1CBS 


1CB? 
1CBB 
ICBC 
1CBE 


1cco 
iccy 
1¢c5 
cc? 


1cc9 
1cCcD 
1CCE 
ICBO 
1CD2 
1CD6 
1CD7 
1cD9 
1CDB 
ICDF 


1CEO 
1CE1 


1CE3 


1CE9 
ICED 


icFO 


TCG 
1CPA 


ICFD 


1D01 
1D05 


1D09 


1no0D 


iD 
D145 


1D19 


DID 


1D23 


DATE 
EC NO. 


OBJECT CODE ADDR 
21D4 1CAB 
222F ICAD 
CO 87 021E 

04 ICB2 
2108 1CB4 
2238 1CB6 
CC 87 O21E 

Ou 1CBB 
27pc 1CBD 
2241 1CBF 
CO 87 O21E 

04 Icc4 
2120 1CC6 
224A 1Cc8 
CO 87 0218 

04 ICCD 
21848 1CCF 
2253 1CD1 
CO 87 0218 

04 1CD6 
2168 icD8 
225¢ ICDA 
CO 87 021A 

01 1CDF 
5E 1CEC 
2255 1CE2 
OF 00 218F 21A6 

3D BF 218F 

F2 82 04 

3c 00 218F 

OD 00 218F 2194 

P2 81 10 

cO 87 1DD5 

3D 00 21C1 

CO 81 1CE3 

CO 87 1062 

3A 08 2188 

38 80 020C 

CO 90 1DD5 

3B 08 2188 

OE 00 218E 21A6 

06 00 2793 21AD 
29a0G7S O7NOV75 
827804 827805 


' DISK ERROR RECORDING ANALYSIS PROGRAM 


STMT SOURCE STATEMENT 


1804 DC 
1805 oc 
1806 *. 

1807 _ B 
1808 Dc 
1809 pc 
1810 oc 
1811 * 

1812 B 
1813 DC 
1814 DC 
1815 DC 
1816 * 

1817 B 
1818 pc 
1819 bc 
1820 DC 
1821 * 

1822 B 
1823 pc 
1824 pe 
1625 pc 
1826 * 

1827 B 
1828 DC 
1829 bc 
1830 pc 
1831 * 

1832 B 
1833 pc 
1834 pc 
1835 Dc 
1836 * 

1837 

1838 * 

1839 * 

1840 SR6EE ALC 
1841 * 

1842 CLI 
1843 JL 
1644 * 

1845 NVI 
1846 * 

1847 $R6E1 CLC 
1848 JE 
1849 * 

1850 B 
1851 * 

1852 CLI 
1853 BE 
1854 * 

1855 B 
1856 * 

1857 

1858 * 

1859 * 

1860 SR6N SBN 
1861 * 

1862 TBN 
1863 BF 
1864 * 

1865 SBF 
1866 * 

1867 

1868 * 

1869 * 

1870 ALC 
1871 AZ 
O4MAR76 213AN77 
5718714 571989 


AL2($REC+#+19) 
AL2 ($PBUF #46) 


SONPK 
IL1¢ge 
AL2 (S$REC4+23) 
AL2 ($PBUF455) 


SUNPF 

IL7*t* 

AL2 ($REC#27) 
AL2 ($PBUF+64) 


$UNPK 

ILiye 

AL2 (SREC+#31) 
AL2 (SPBUF+73} 


SUNPK 
ILisae 
AL2 (S$REC#35) 
AL2 ($PBUF+82) 


SUNPK 

ILitae 

AL2 (S$REC+#39) 
AL2 (SPBUF+#+91)} 


SPRINT 
XL1*°018 
IL1*94¢ 
AL2 ($PBUF+93) 


PART NO. 
PAGE 18 


4248241 IBM MAINTENANCE DIAGNCSTIC PROGRAS 


BYTES TO 
PRINT BUFFER 


UNPACK 
FOUR SENSE 
BYTES TO 
PRINT BUFFER 


UNPACK 
POUR SENSE 
BYTES TO 
PRINT BUFFER 


UNPACK 
FOUR SENSE 
BYTES TO 
PRINT BUFFER 


UNPACK 
FOUR SENSE 
BYTES TO 
PRINT BUFFER 


UNPACK 
POUR SENSE 
BYTES TO 
PRINT BUFFER 


PRINT 
LOG ENTRY 


FF73 DISK ERROR RECORDI!G ANALYSIS PROGRARB 


ERR LOC OBJECT CODZ ADDR STMT SOURCE STATEMENT 


SEAPCH FOR NEXT LOG ENTRY TO BE PROCESSED 


SPTR(1) ,$P1 


SPTR, 191 
SR6EE1 


SPTR,0 


$PTR(1),$PTRF 
$RON 


$I0 


$REC,0 
SROE 


$R6D 


BDVANCE LOG ENTRY 


BRANCH IF NOT 
YET END OF LOG A 


WRAP BACK TO FIRST 


BRANCH IF ALL I0G 


ENTRIES HAVE BEEN PROCESSED 


READ NEXT LG ENTR 


BRANCH IF 
UNUSED ENTRY 


GO TO FORMAT AND PRINT LOG ENTRY 


CLEAR LOG AREA IF REQUIRED 


SIND, SCLEAR 


SSBYT4,$SSH20 
$I0 


SIND, $CLEAR 


SET "CLEAR LOG* IN 


CLEAR LOG AREA IF 
SENSE SWITCH 20 


RESET ‘CLEAR LOG! 


Ke eee www mee ee we we wm me em ew wae wwe wm ewe eens cece eee 


PREPARE TO PRINT HISTORY FOR NEXT DRIVE ID 


$HD(1),$P1 
SDRV(1),$D1(1 


) 


ADVANCE HEAD ADDRESS 
ADVANCE DRIVE IDENTIFIER 


1872 * 
1D29 CO 87 1BC5 1873 B SROA 

1874 * 

POINTER 

REA 

LOG ENTRY 

Y 

DICATOR 

IS OFF 

INDICATOR 

PROG ID FF7-3 DATE 29480675 O7NOVTS C&MARTEG 2tIANT7 

PAGE 18 EC NO. 827808 827805 S71871 571989 


PART NO. 
PAGE 


GO TO COMPLETE HISTORY TABLE 


PROG ID 
PAGE 





U248241 
T8A 


FPT7-3 
18A | 





t 
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FF73 DISK ERROR RECORDING ANALYSIS PROGRAS _ *FFT3 DISK ERROR RECORDING ANALYSIS PROGRAS 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


1876 EEKSEEEREERRERESEEEREREESEREEREKEEEEEREEEEEEREEEEEREREREEEAREEKES ERE EH 1pc9 3C DS 298A 1944 NVI $LRVAD, X*D8* DRIVE ADDRESS, AND ERROR 
1877 * * IDCcD 3c 171 2192 1945S MVI SCKMSK,X*11¢ SENSE BYTE MASK FOR DRIVE & 
1878 * ROUTINES 3 AND & - COMMON INITIALIZATION PROCEDURES * 1946 * 
1879 * * 1DD1 cO 87 0000 1947 $BGNX PB _ ot RETUENR TO CALLING ROUTINE 
1880 KEREERERESEREEKEREREKCRERERECR EERE EERE EERE ERAREEEEREEESEERAEEREREKEREEREERE 1948 * 
1881 * 
1D2D 34 08 i1DD4. 1882 SBFGIN ST SBGNX¢3, SARR SAVE RETURN ADDPESS 
1883 * 
1D31 3c 00 2273 1884 NVI SHN,O CLEAR 
1D35 0C GB 2272 2273 1885 HVC SNN-1(9) , SNN DDCF AREA 
1886 * 
1D3B C2 01 OAO7 1887 LA SUDT-3,$XRY POINT TO SECTION UDT 
1888 * 
1D3P D2 01 03 1889 $BGNO1 LA 3(-SXR1) -$XR1 LOCATE ’ 
iD42 7D C1 00 1890 CLI 0(,$XR1) ,X*cit 3340 UDT ENTRY : 
1D45 cO 01 ID3F 18914 BNE SBGNC1 
1892 * : 
1D49 78 20 01 1893 TBN 1(,$XR1) ,$BIT2 FND ROUTINE IF 3340 : 
1pD4ac CO 90 0216 1894 BF SLINK NOT DEFINED IN DCP UDT 
1895 * 
1D50 39 78 O20A 1896 $BGNO2 TBF SSBYT2,$SSW114$SSW124$SSH134SSSH14 SKIP IF ANY SNS 
1D5& F2 90 OW 1897 JF SBGNO3 SW 11 THRO 14 ON 
1898 * 
1D57 3A 20 O20A 1899 SBN SSBYT2,$SS812 SET SNS SW 12 (DEFAULT TO DRV 2) 
1900 * 
1D5B 38 40 020A 1901 $8GNO3 TBN SSBYT2,$°5S811 BRANCH IP DRIVE 1 NOT 
1D5F 39 80 2188 1902 TBF SIND, S$DRV1 SELECTED OR IF DATA FROM 
1D63 FZ 90 13 1903 JF SEGNOG DRV 1 HAS ALREADY BEEN PRINTED 
1904 * 
1D66 3A 80 2188 1905 SBN SIND, $DRV1 SET *DRV 1 USED" INDICATOR 
1906 * 
1D6A 3C F1 2189 1907 MVI SDRVID,cC*1* SETUP DRIVE IDENTIFIEP, 
ID6E 3C CO 218A 1908 AVI SDRVAD, X*CO! DRIVE ADDRESS, AND ERROR 
1D72 3c 81 2192 1909 SVI SCKMSK, X*81° SENSE BYTE MASK FOR DRIVE 1 
1910 * 
1D76 F2 87 58 1911 J SBGNX RETURN TO CALLING ROUTINE ‘ 
1912 * 
1D79 383 20 O20A 1913 $BGNOS TBN SSBYT2,$SSW812 BRANCH IF DRIVE 2 NOT 
ID7D 39 40 2188 1914 TBF SIND, S$DRV2 SELECTED OR IF DATA FROM 
1D81 F290 13 1915 JF SBGNO5 DRV 2 HAS ALREADY BEEN PRINTED 
1916 * 
1p84 3A 40 2188 1917 SBN SIND, SDRV2 SET *DRV 2 USED" INDICATOR 
1918 * 
1B88 3C F2 2189 1919 AVI SDRVID,C*2* SETUP DRIVE IDENTIFIER, 
1D8C 3c CB 218A 1920 NVI SDRVAD,X*C8! DRIVE ADDRESS, AND ERROR 
1p90 2¢ 41 2192 1921 eVI SCKMSK,X*4ate SENSE BYTE SASK FOR DRIVE 2 
1922 * ‘ 
1D94 F2 87 3A 1923 | J SBGNX RETURN TO CALLING ROUTINE : 
1924 * 
1D97 38 10 020a 1925 $BGNO5 TBN SSBYT2,$SSW13 BRANCH IF DRIVE 3 NOT ‘ 
1D9B 39 20 2188 1926 TBF SIND, SDRV3 SELECTED OR IF DATA FROS 
1ID9P F2 90 13 1927 JF SBGNOG DRV 3 HAS ALREADY BEEN PRINTED 
1928 * 
IDA2 3A 20 2188 1929 SBN SIND, SDRV3 SET *DRV 3 USED* INDICATOR 
1930 * 
IDA6 3C F3 2189 1931 AVI SDRVID,C*3* SETUP DRIVE IDENTIFIER, 
IDAA 3c DO 218A 1932 AVI SDRVAD, X* DO! DRIVE ADDRESS, AND ERROR 
{tDAE 3C 21 2192 1933 avi SCKMSK,X*21° SENSE BYTE MASK FOR DRIVE 3 
1934 * 
1DB2 F2 87 1C rege J SBGNX RETURN TO CALLING ROUTINE 
1936 * 
1DB5 38 O08 020A 1937 $BGNO6 TBN SSBYT2,$SSW14 END ROUTNE IF DRY & NOT 
1DB9 39 10 2188 1938 TBF SIND, SDRV4 SELECTED OR IF DATA FROM 
IDBD CO 90 0216 soee : BF SLINK DRV 4 HAS ALREADY BEEN PRINTED 
pct 3A 10 2188 aa SBN SIND, SDRV4 SET *DRV & USED' INDICATGR 
1942 «* 
tpocS 3c Fa 2189 1943 AVI SDRVID,ctye SETUP DRIVE IDENTIFIER, 
DATE 29AUGT75 O7NOV75 OUMART6 213AN77 PROG ID FP7-3 DATE 29A0G75 O7NCV75 OUMARTE 213A N77 . ; 
-3 J PROG ID FF?7-3 
EC NO. 827804 827805 571871 571989 PAGE 19 EC NO. 827804 827805 571871 571989 
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IBA MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4288241 IBM MAINTENANCE DIAGNOSTIC PROGRAMS PART NO. 424882401 
ex PAGE 20 PAGE 20A 
FF73 DISK ERROR RECCRDING ANALYSIS PROGRAM FF73 DISK ERRCR RECORDING ANALYSIS PROGRAN 
4 
ERR LOC CBJECT CODE ADDR STMT SOURCE STATEMENT | ERR LOC OBJECT CODE ' ADOR STMT SOURCE STATEMEKT 
1950 RERERERERERERREEEREEE EAE EER EEE EEE EE EREEERE EOS ERE EREKERERAKEED EERE ER RER EES 20718 ®* 
1951 * * 1£87 C2 01 228C 2019 SRDKD2 LA SDDDF,$XR1 LOCATE REQUIRED 
1952 * ROUTINES 5 AND 6 - COMMON 3340 I70 SUBROUTINES * 1E8B 3C 00 21A3 2020 AVI SRDWK,O LOG ENTRY VIA OFFSET 
1953 * * 1E8F 36 01 21A48 2021 A SRDWK¢1,$XR1 DEVELOPED FROM LOG ENTRY POINTER 
1954 SERRE EEEEERE EERE ERE EERE REE ERE ESE EE EERE EERE REESE REESE EERE EER EEE 2022 * : 
1°55 * 1E93 1C 3F 2200 3F 2023 MVC $RECN(64) ,63(,$XR1) GET REQUIRED LOG EXTRY 
1956 * READ OR CLEAR 3340 LOG ENTRIES 2024 * 
1957 * 1E96 F2 67 22 2025 J $IOx1 PETURN TO CALLING ROUTINE 
1DD5 34 08 1EC4 1958 $I0 ST SIOX+3,$ARR SAVE RETURN ADDRESS 2026 * 
1pDe 34 01 1ECO 1959 ST $IOX1¢3,$XR1 SAVE INDEX REG 1 1E9B 3C 0% 226F 2027 $WRREP MVE S$RR,1 SETUP RR AND NN VALUES 
1960 * 1E9F 3C 2P 2273 2028 NVI $HN,47 IN DDCF TO WRITE RECORDS 1 THRO 48 
1DDD 3c OA 2196 1961 MVI $RETRY, 10 INITIALIZE ERROR RETRY COUNT 2029 * 
1962 * 1EA3 3C 00 2388 2030 NVI $DDDF+¢255,0 CLEAR 
IDET OD 01 218C 226C 1963 CLC $CYL(2),$CC RRANCH IF ACCESS TEA7 OC FE 2384 2385 2031 MVC) 8=—s- SDDD F# 2254 (255) , SDDDP4+255 DDDF AREA 
IDE? F2 01 OD 1964 JNE $RECAL NOT YET AT REQUIPED CYLINDER 2032 * 
1965 * 1EAD 3c 02 2190 2033 MVI = $0,x*02* SETUP Q AND R BYTES 
IDEA OD 01 218E 226E 1966 CLC $HD(2),$HEH BRANCH IF ACCESS TEBT 3C 03 2191 2034 BVI $R,xX*03* FOR WRITE REPEAT COMMAND 
IBFO F2 81 42. 1967 JE SRDWR ALREADY AT REQUIRED LCCATION 2035 * 
1968 * 1EB5 CO 87 1ECS 20 36 B $XEQ GO TO EXECUTE WRITE REPEAT COMMAND 
IDF3 3C 00 226F 1969 MVI $RR,O RESET RECORD NUMBER 2037 © 
1970 * 1EB9 3B 08 2188 2038 SBP $IND,SCLEAR RESET "CLEAR LOG* INDICATOR 
IDF7 3c 00 2190 1971 SRECAL HVI  $0,0 SETUP Q AND R BYTES 2039 * 
IDFB 3C 01 2191 1972 MVI $k,1 FOR RECALIBRA1 ° COMMAND TEBD C2 01 0000 2040 S$IOX1 LA #-*, SXR1 PESTORE INDEX REG 1 
1973 * 1EC%? CO 87 0000 2041 SIOX 8B t-2 RETURN TO CALLING ROUTINE 
IDPF CO 87 ECS 1974 B $XEQ GO TO EXECUTE RECALIBRATE COMMAND 2042 * 
1975 * 2083 #-+------~~------------- ++ ween nnn wr en nn nnn He nee ee eee wer ee nen 
1203 0C 01 226C 218c 1976 MVC ©©$CC (2), $CYL MOVE CYLINDER AND 2044 * COMMOK 3340 1/70 COMMAND EXECUTION SUBROUTINE 
1209 OC 01 226E 218E 1977 MVC $HH(2),S$HD HEAD VALUES TO DDCF 2045 * 
1978 * 1EC5 34 08 1F23 2086 $XEQ st SXEQX+3, SARK SAVE RETURN ADDPESS 
1EOP 3c 00 2190 1979 $SEEK VI $0,0 SETUP Q AND R 2047 * 
1213 3c 00 2191 1980 MVI $R,0 BYTES FOR SEEK COMMAND 1ECS CO 87 0212 2048 B $TEST CEFCK FOR USER INTERVENTION 
1984 * 2049 © 
TEV? CO 87 1EC5 1982 B SXEQ GO TO EXECUTE SEEK COMMAND TECD OC 00 1EFA 218A 2050 NVC $SIO0#1(1),$DRVAD SETUP 
1983 * 1ED3 OF 00 TEPA 2190 2051 ALC = $ST0414(1) , £0 Q AND R BYTES 
FEIB 3c 01 2190 1984 S$RDHA VI  $0,1 SETUP Q AND R BYTES FOR 1ED9 OC 00 IEFB 2191. 2052 MVC $STO#2(1),$R IN SIO INSTRUCTION 
VE 3c 01 2191 1985 MVI $R,1 READ HA (EVEN) COMMAND 2053 * 
1986 * ; TEDF 30 C5 2275 2054 SNS $SHS#1,xX°C5* SENSE ATTACHMENT STATUS 
1823 CO 87 1EC5 1987 B $XEO GO TO EXECUTE READ HA COMMAND 2055 * 
1988 * 1EE3 OC 00 1EEA 2192 2056 MVC ©€47¢14),$CKHSK GO TO ERROR 
4227 0C 03 226E 2290 1989 MVC = SHH (4) , SDDDP +4 MOVE RECORD 0 CCHH TO DDCF TEES 39 00 2274 2057 TBF $SKS,*-* HANDLING SUBROUTINE IP 
1990 * TEED CO 90 1F24 2058 BF SERR ADAPTER OR UNIT CHECK 
1E2D 38 02 226A 1994 TBN $FF,S$BIT6 GO TO SEEK TO ASSIGNED 2059 * 
1E31 CO 10 1EOF 1992 BT SSEEK ALTERNATE IF DEFECTIVE TRACK VEF1 31 C6 21BC 2066 LIO 8 $DDCR,xX*C6® LCAD DDCR 
1993 * 1EF5 31 C& 21BE 2061 LIO 8= SDDDR, X* CG? AND DDDR 
tE3S OC 01 226C 218¢c 1994 $RDWR NVC $CC (2) ,SCYL MOVE CYLINDER AND 2062 * 
TE3B OC 01 226E 218E 1995 MVC $HH(2),$HD HEAD VALUES TO DDCF 1EF9 F3 00 0O 2063 $SIO SIO %-#,4#-% EXECUTE 3340 1/0 COMMAND 
1996 * 20648 * 
VEai OC 02 2272 21AC 1997 MVC $DL(3),$P256 MOVE KL APD DL TO DDCP TEFC OC 00 1F0B 218A 2065 MVC $TI041(1),SDRVAD — BUILD "SEEK BUSY?* 
1998 * 1FO2 3A O01 1FOR 2056 SBN $TI0¢1,$BIT7 TIO INSTRUCTION 
1£97 38 08 2188 1999 TBN SIND, SCLEAR GO TO CLEAR LOG AREA 2067 * 
129B F2 10 4D 2000 JT SHRREP IF "CLEAR* INDICATOR IS OK TFO06 C1 C2 IF0E 2068 TIO 8 8=—6*, X*C28 LOOP ON "ATTACHMENT BUSY®* 
2001 * 2069 * 
1E%B 3C 04 21A3 2002 $RDKD MMVI $RDWK,4& DEVELOPE TFOA Ct OO YFPOA 2070 $TIO TIO #,%~-* LOOP ON ‘SEEK BUSY® 
1252 0C 00 21A4 218F 2003 MVC S$RDWK41(1),$PTR RECORD NUMBER 2077 * ; 
1258 O£ 00 21A4 21A7 2004 ALC SRDWKE1(1) ,SP5 FROM LOG AREA POINTER TFOE 30 C5 2275 2072 SRS SSWS¢1,x¢cS* SENSE ATTACHBENT STATUS 
VESE OF 01 27A4 21A8 2005 $RDKD1 ALC $RDWK4+1(2),$RDWK+1 2073 * 
1EB6& CO 20 1ESE 2006 BNOL $RDKD1 TFi2 OC OC IF19 2192 2074 BY¥C *¢7 (1) ,SCKBSK GO TO ERROR 
2007 * TP18 39 00 2274 2075 TBF SSWS,*-* HANDLING SUBROUTINE IF 
1E68 OD 00 2143 226F 2008 CLC $RDWK(1),$RR BRANCH IF REQUIRED 1FIC CO 90 1724 2076 BF SERR ADAPTER OR UNTT CHECK 
1Z6E F2 81 16 2009 JE $RDKD2 RECORD IS ALREADY IN MAIN STORE 2077 * 
2010 * TF20 CO 87 0000 2078 $KEQX 8B tos RETURN TO CALLING ROUTINE 
1E71 OC 00 22€F 21A3 2011 MVC $RR(1),SRDWK MOVE RECORD NUMBER TO DDCF 2073 * 
TET? 3C 00 2273 2012 MVI «= $NN, 0 SETUP YN VALUE TO READ ONE RECORD 2080 #--~---~~---~----~--~~ +--+ ~~ +--+ -- +--+ ono--- = ee a------ 
2013 * 2087 «© 3340 ERROR HANDLING SUBRCUTINE 
JE7B 3C 01 2190 2074 MmVI $0,xX*01" SFTUP Q AND R BYTES 2062 * 
1E7F 3C 00 2191 2015 MVI $R,xX*OO! FOR READ KEY-DATA COMMAND 1F24 34 96 1PC3 aces SERR ST SERRXE3, $SARR SAVE RETURN ADDRESS 
2016 * 2084 + 
1E83 CO 87 1ECS 2017 B $XEQ GO TO EXECUTE READ KEY-DATA COMMAND 1F28 38 61 2275 2085 TBR $SNS+¢1,$BIT? BRANCH IF XOT 
DATE 2940675 O7NOV75 OUMARTE 21JAN77 PROG ID FF7-3 DATE 29R0G75 O7NOV75 OUMARTS 21JAN77. PROG ID. FP7-3 
EC WO. 827804 827805 571871 571989 PAGE 20 EC NO. 8278048 827805 571871 571989 PAGE 20A 
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PAGE 21 PAGE 2A 
FF73 DISK ERROR RECORDING ANALYSIS PROGRAB FP73 DISK ERROR RECORDING ANALYSIS PROGRAM 
ERR LOC OBJECT ‘CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1F2C F2 90 1A 2086 JF SUCK ADAPTER CHECK CONDITION ‘IFDE 1B 1FDE 2154 pc AL1 ($MO2N~-$N0241) 
: 2087 * 1PDF 2069 1FEO 2155 pc AL2(SHO2N) 
1F2F 3c 00 2288 2088 $ACK NVI $SNS*#23,0 BUILD 2156 * 
1F33 0C 14 228A 228B 2089 NVC $SNS422 (21), $SNS+23 FORMAT 3 1FE1 CO 87 O21A 2157 B SPRINT PPINT 
1F39 31 C7 27BA 2090 LIG $SNS23,X'C7* READ DIAG IFES 81 TFES 2158 pc XL1°8it SNS BYTE 
1F3D 30 C7 2277 2091 SNS S$SNS+3,X'C7! SENSE BYTES TFE6 35 1PFE6 2759 DC AL1($M03N-$603¢1) HEADING 
1F41 3C 30 2278 2092 MVI $SNS*+7,X*30! 1FE7 2095 1FE8 2160 DC AL2($m03%) 
2093 * 2161 * 
1F45 CO 87 1FC4 2094 B ‘SERRP GO TO PRINT ERROR MESSAGE AND HALT 4FEO 3C 40 2237 2162 AVI SPBOF*¢S4u,ct ¢ CLEAR 
2095 * 1FED OC 35 2236 2237 2163 MVC SPBUF¢53 (54), $PBUF¢S4 PRINT FUPPEP 
1F49 OC 00 1F58 218A 2096 $ucCK AVC SSNSIO#¢1(1) ,SDRVAD BUILD * READ DIAG 2164 * 
IFSP 3A 01 1F58 2097 SBN $SNSIO+¢1,$BIT7 SENSE DATA* COMMAND 1FF3 CC 87 O21E 2165 B SUNPK UNPACE 
2098 * 1FF7 04 1FP7 2166 pc ILitue POUR SENSE 
1P53 31 C4 21c0 2099 LIO = =$SNSDR,X*Cu! LOAD DDDR VFP8 2277 1FF9 2167 pc AL2 (SSNS 3) BYTES TO 
2100 * IFFA 2208 1FPB 2168 DC AL2 (SPBUF+7) PRINT BUFFER 
y+ + PST P3 00 67 2101 $SNSIO SIG X*07*, +-# READ DIAGNOSTIC SENSE DATA 21€9 * 
2102 * 4FFC CO 87 O21E 2170 B SUNPK - UNPACK 
IP5A C1 C2 1F5A 2103 TIO *,x'c2¢ LOOP ON ATTACHMENT BUSY 2000 04 2000 2171 pc ILU¢ge POUR SENSE 
2104 * 2001 2278 2002 2172 pc AL2 ($SNS¢7) BYTES TO 
TFSE OF 00 2196 2146 2105 SLC $RETRY(1) ,$P1 DECREMENT RETRY COUNTER AND GO TO 2003 2211 2004 2173 Dc AL2 (SPBUF¢16) PRINT BCFFER 
1F64 CO 81 IFCY 2106 BZ SERRP ERR PRINT AND HALT IF LAST RETRY 2174 * 
2107 * 2005 CO 87 0218 2175 B SUNPK UNPACK 
1F68 3B OF 2278 2108 $ERP SBF $SNS*#7,X*OF* RESET MSG BTS IN SENSE BYTE 7 2009 04 2009 2176 pc ILt¢ge FOUR SENSE 
2109 * 200A 227F 200B 2177 pc AL2 ($SNS411) BYTES TO 
1F6C 3D 50 2273 2110 CLI S$SNS#7,X*50! BRANCH IF 200C 221A 200D 2178 pc AL2 (SFBUP425) PRINT BCFFER 
1F70 CO 81 4F8A 2111 BE $ECC CORRECTABLE DATA CHECK 2179 * 
2112 * 200E CO 87 O21E 2180 B SUNPK UNPACK 
TF74 3cC 00 2273 2113 NVI $NN,O CLEAR 2012 04 2012 2181 DC IL1*ye FOUR SENSE 
1F78 OC 08 2272 2273 2114 HVC SNN-1(9) , SNN DDCF AREA 2013 2283 2014 2182 pc AL2 ($SNS4+15} BYTES TO 
2115 *# 2015 2223 2016 2183 BC AL2 (SPBUP434) PRINT BUFFER 
TF7E 3D &O 2278 2116 CLI $SNS¢7,x°408 BRANCH IF 2184 * 
1FP82 CC 81 1835 2117 BE ERDWR DATA CHECK 2017 CO 87 O21E 2185 B SUNPK UNPACK 
2118 * 201B 04 201B 2186 pc ILi*ye POUR SEKSE 
1F86 CO 87 1DF7 2119 B SRECAL GO TO RECALIBRATE AGAIN 201C 2287 201D 2187 pc AL2($SNS419) BYTES TO 
2120 * 201E 222c 201F 2188 | pc AL2 ($ PBUF +443) PRINT BCFYFER 
1F8A OE 01 2285 21BE 2121 SECC ALC $SNS*17 (2) ,$DDDR DEVELOPE 2189 * 
1F90 OF 01 2285 2287 2122 SLC $SNS¢17(2) ,$SNS€19 ADDRESS OF 2020 CO 87 O21E 2190 B SUNPK UNPACK 
1F96 35 01 2285 2123 L $SNS417,$XR1 FIRST ERROR BYTE 2024 O4 2024 2191 pc ILi¢ge FCUR SENSE 
2124 * 2025 228B 2026 2192 pc AL2 ($SNS#23) BYTES TO 
IF9A 3C 18 2197 ae - MVI SBITCT, 24 INITIALIZE ERROR BIT COUNTER 2027 2235 2028 2193 pc AL2 (SPBUF¢52) PRINT BCYPER 
2194 * 
1TF9E OF 02 228A 228A 2127 $ECCO1 ALC $SNS¢22 (33 , S$SNS+22 EXCLUSIVE OR 2029 CO 87 O21A 2195 B SPRINT PRINT SEKSZ BYTES 
IFA F2 20 05 2128 JNOL $ECCO2 ERROR PATTERN 202D 86 202D 2196 pc XL1*°86* 
IFAT RE 00 00 21AR 2129 ALC 0(1,$XR1) ,$X80 WITH ERROR BYTES 202E 35 202E 2197 DC IL1*53¢ 
‘FAC SE 02 02 02 2130 $ECCO2 ALC 2(3,5XR1) ,2(,$XR1) 202F 2235 2030 2198 Dc AL2 ($PBUF¢52) 
T°BO F2 20 03 2131 JNOL $ECCO3 2199 * 
1FB3 7A 01 02 2132 SBN 2(,$XR1) , $BIT7 2031 CO 87 0222 2200 B SHALT ERROR HALT F6 
TFB6 OF 00 2197 21A6 2133 $ECCO3 SLC $BITCT(1),$P1 2035 FFF6 2036 2201 pc AL2 (SHLTP6) 
1FBC CO 01 1F9E 2134 BNZ $ECCO1 2202 * 
2135 * 2037 CO 87 1IDD1 2203 B SBGRX GO TO RESTART POUTIKE 
1FCO CO 87 9000 ee SERRX B +—% RETURN TO CALLING ROUTINE 2204 « 
2138 #----~-~~~-_. wr tween nnn ee ween - Hee wero eee e+e 
a2 : UNRECOVERABLE 3340 ERROR ~ PRINT ERR NESSAGE AND HALT 
IFC4 CO 87 O21A~ 2141 S$ERRP B SPRINT SPACE PRINTER 2 LINES 
1FC8 92 1FC8 2142 pc XL1¢'92¢ ; 
2143 * 
1FC9 OC 00 203F 2189 a MVC) =—« $ M0. 144 (1) , SDRVID MOVE DRIVE ID TO ERROR MESSAGE 
x 
IPCF CO 87 O21~2 2746 B SPRINT PRINT ERROR SESSAGE 
1FD3 C2 IPD3 2147 DC XL1‘c2¢ 
1PDS 14 1FD4 2148 DC AL1 ($H01N-$H01¢1) 3 
1FD5 2082 1FD6 2149 Dc AL2 (SMO 18) ° 
IFD? FFF6 IFD8 2150 DC AL2 (SHLTF6) 
2151 * ) 
1FD9 CO 87 021A 2152 B SPRINT PRINT 
1FDD 81 TFDD 2153 pc XL1°g1° "READ DIAG SNS DATA® 
ec nb pee eee onaaee 213AN77 PROG ID PF7-3 DATE 29A0G75 O7NOV75 O“MAR76 213 AN77 PROG ID PPT-3 
1 571989 PAGE 21 EC NO. 827804 827805 571871 571989 PAGE 271A 
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; PAGE 22a 
FF73 DISK ERROR RECORDING ANALYSIS PROGRAM FF73 DISK ERROR RECORDING ANALYSIS PROGRAB 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC GBJECT CODE ADDR STMT SOURCE STATEMENT 
2206 EHEREREEE EERE ERE E REE ER SEER REESE TR REE ER EERE THEE EE REE EERE EERE EERE EEE EE 2254 * 
2207 *# * 2121 2255 $815 EQR-” ® 
2208 * ROUTINES 5 AND 6 ~ PRINT MESSAGES * 2121 CIE3E3C1C3CB8DUCS 24137 2256 SMISN DC CL23* ATTACHMENT * SUB-SYSTER? 
2209 * * 2129 DSEZ4OSCUOE2ZEUC2 2256 
2210 CER EEE EEE REE ERE EEE EERE KERR EEE EKA EAE EEE EK EERE AERA EEE EKER RAERE REE EE 2131 60F2EB8E2E3C5D4 2256 
2211 * 2257 * 
203B 2212 $M01 EQU * 2138 2258 $16 EFQU * 
203B C4YDS9ES5SYCE740D5D6 204E 2213 $MO4N DC CL20"DRV X NOT RDY OR ERR* 2138 D&C5C7ICICZEBE3C5S 2140 2259 $M16N DC CL9O* MEGABYTES* 
2043 E340 D9CKHEBU0DEDS 2213 2760 E2 2259 
2043 4OCSD9DI9 2213 2260 *® 
2214 * 2141 2264 $617 Zou. 
204F 2215 $m02 zon * 2141 CSDIDIDEDIEZ 2446 2262 $M17N DC CL6*ERRORS? 
204F DSCSCIC&4OC4HCIC1 2069 2216 $NO2N DC CL27"*READ DIAGNOSTIC SENSE DATARS 2263 * 
2057 C7D5 D6EZ2E3C9C340 2216 2147 2268 $818 EQU # 
205F E2CSDSE2C540C&C1 2216 2147 C3D6D9D9S4O4OE3CS 2156 2265 $M18N DC CLI6*CORR TEMP PERAS* 
2067 E3C140 2216 214P D&D7T4OUCD7ICSD9DY 2265 
2217 * 2266 * 
206A 2218 $403 EQU * 2157 2267 $819 rou) ® 
206A FOFO60606060F0F3 2084 2249 pc CL27*00----03 04----07 08----11 ° 2157 60E7PIFOFOFO60 215D 2268 $M19N DC CL7*-x1000-" 
2072 4OFOF4E0606060F0 2219 2269 * 
207A F740 FOF860606060 2219 215E 2270 $420 EQU * 
2082 F1F140 219 215E pscs5c1ca 2161 2271 S$M20N DC CL&*READ® 
2085 PIFZ60606060F1F5 209F 2220 $MO3N DC CL26"12----15 16----19 20----238 2272 * 
208D 4OFTFE60606060F1 2220 2162 2273 $21 EQU 8 
2095 F940 F2F060606060 2220 2162 DSD640D3D6C7 2167 2274 $M21N DC CL6* HO LOG® 
209D F2FP3 2220 2275 * 
2221 * : 2168 2276 $822 EQU * 
209F 2222 S$MO4u EQU * 24168 C&CTE3C5 216B 2277 $mM22N BC CL&* DATE* 
209F 60606040P3F3F4UPO 20C2 2223 SMOUN DC CL36*~-- 3340 USAGE AND ERROR LOG SUMMARY? 2278 * 
20A7 4SOESE2C1C7C540C1 2223 : 216C 2279 $823 EoU * 
20AF DSCH 4OCSD9SD9IDEDI 2223 216cC E3C9D&CS5 276F 2280 S$M23R DC CLa*TIAEt 
20B7 40D3 DECTUOEZEU DY 2223 2281 * 
20BF D&C1D9EB8 2223 2170 2282 $m26 Rou ot 
2224 * 2170 FOFOSBFOFOSBFOFO 2177 2283 $H2UN DC CL8*00.00.00* 
20C3 2225 $805 EQU- * 2284 * 
20C3 60606040F3F3F4UFO 20D8 2226 $MOSN DC CL22*--- 3340 ERROR HISTORY'® 2178 2285 $825 EQU. #* 
20CB 40C5D9ODIDEDS40C8B 2226 2178 D&DNSBCUCKGKBESEB 277F 2286 SH25N DC CL8* AN. DD.YY® 
20D3 C9E2 E3D6D9E8 2226 2287 * 
2227 * 2180 2288 $m26 EQU) * 
20D9 2228 $M06 EQU* 2180 C8CB84BDED44BEZE2 2187 2289 SH26N DC CL8* BH. MH.SS* 
20D9 4060606040C4C1E3 20EE 2229 S$MOE6N DC CL22* --- DATA FROM DRIVE x? 2290 * 
‘20E1 C1I40CED9ODED4 LOCK 2229 
20¥9 DSCOESCSHOE7 2229 
2230 * 
20EF 2231 $M07 EQU- * 
20EF C6D4 E340F0 20F3 2232 SMO7N DC CLS'rst oF 
2233 * 
20F4 2238 $08 FQU) * 
20F4 CSDSESCOD7TD4CSDS 2103 2235 $MNOBN DC CLI6* EQUIPMENT CHECKS* 
20FC E340 C3C8C5C3D2E2 2235 
2236 * 
2104 2237 $109 £00 * 
2104 E2C5CS5D2E£2 2108 2238 $MOON DC CLS" SEEKS* 
; 2239 * 
2109 2280 $10 EFQU * 
2109 C4&C1E3C1 210C 228% $M10N DC CLU*DATA* 
2242 * 
210D 2283 $m11 EQU)* 
220D E3D6E3C1D3 2111 2248 $H11N DC CLS*TOTAL® 
2285 * 
2112 2286 $H12 EQU) * 
2112 C4&D9ES 2118 2247 $N12N DC CL3*DRV! 
2248 * 
2115 2249 $"13. EQU * 
2115 ESD6EDZENDACS 211A 2250 $H13N DC CL6* VOLUME? 
2251 * 
211B 2252 $414 EQU) * 
211B 60E4 E2C5D960 2120 2253 SN14N DC CL6'-USER-" 
DATE  29R0G75  —«O7NOV75 OGMART76 213AN77 PROG ID FF7-3 DATE 29A0G75 O7NOV7S O4MARTE 213A N77 | PROG ID FFT-3 
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PART NO. 4248741 IBM MAINTENANCE DIAGNOSTIC PROGRAN 
PAGE 23 
FF73 DISK ERROR RECORDING ANALYSIS PROGRAS FF73 DISK ERROR RECORDING ANALYSIS PROGRAN 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 
2292 SHEKEAKREKEREEEEEAKEEEREERRAKCARAEEEERAKAKEREEKEEAERRAKERAEKEEE KEES KAKEKEKESE 228C 238B 2360 
2293 * * 2361 * 
2294 * FOUTINES 5 AND 6 ~ CONSTANTS AND RESERVED STORAGE AREAS * 
2295 * * 
2296 SEEERREREREEKEEEKAEAEREAEREREREKREREEEEEEREEE EE EER AKEERE ERE KEES R CK EKEKE EH 
2297 * 
- 2188 2188 2298 SIND DS x1 PROGRAM INDICATORS : 
2299 * 
2189 2189 2300 SDRVID DS cL1 INPUT DRIVE IDENTIFIER 
218A 218A 2301 SDRVAD DS x11 INPUT DRIVE ADDRESS 
2302 * 
218B 2718C 2303 $CYL DS XL2 CURRENT CYLINDER ADDRESS 
218D 218E 23048. $HD DS XL2 CURRENT HEAD ADDRESS 
218F 218F 2305 $PTR DS XL CURRENT LOG ENTRY POINTER 
2306 * 
2190 2190 2307 $9 DS x11 SIO "OQ" BYTE 
2191 2191 2308 $R DS XL1 SIO *R* BYTE 
2309 * 
2192 2192 2310 SCKMSK DS x11 ATTACHMENT SENSE BYTE ERROP “SASK 
2311 * 
2193 2193 2312 $DR¥ DS XL1 DRIVE IDENTIFIER (TABLE PRI NWTODT) 
2313 * 
2194 2194 2314 $PTRF DS X11 POINTER TO FIKST (OLDEST) LOYG FNTRY 
2195 2195 2315 SPTRX DS X11 CURRENT POINTER TEMP STORAGE 
2316 * 
2196 2196 2317 S$RETRY DS XL! EPROR RETRY COUNTER 
2197 2197 2318 $BITCT DS x11 ECC BIT COUNTER 
2198 2198 2319 SCTR DS x11 GENERAL PURPOSE COUNTER 
2320 * 
2199 219E 2321 SRDCNT DS XL6 READ USAGE COUNTER 
219P 21A2 2322 $SKCNT DS XL4 . SEEK USAGE COUNTER 
2323 * 
21A3 2328 S$RDWK £EQU * READ SUBROUTINE 
2TA3 21A8 2325 DS XL2 WORK AREA 
2326 * 
21A5 0001 21A6 2327 S$P1 pc IL2¢*1° 
21A7 05 21A7 2328 $P5S bc ILt5¢t 
27A8 O0D1 21A9 2329 $P209 DC IL2* 209° 
27AA 000100 21AC 2330 $P256 DC IL3*256! 
21AD Ft 21AD 2331 $D1 Dc CcLieits 
21AE 80 21AE 2332 $x80 bc XLT*80° 
21AF 000003E8 21B2 2333 $KILO DC IL&*1000° 
2783 O0GO0000F4240 21B8 2334 SMEG pc XL6* 000N000F4&240° 
21B9 0002 21BA 2335 $SNS23 DC XL2*0002°8 
2336 * 
21BB 226A 21BC 2337 $DDCR DC AL2(S$DDCF) DDCF ADDRESS (INITIAL DOCR) 
27BD 228C 21BE 2338 $DDDR DC AL2 (SDDDF) DDDF ADDRESS (INITIAL DDDR) 
21BF 2274 21C0 2339 $SNSDR DC AL2 (SSNS) DDDF ADDF2ZSS FOR READ DIAG SWS 
2340 * 
21C1 2341 SREC EOU * LOG ENTRY 
21C1 2200 2342 $RECN DS XL64 FROM SYSTEM ERROR LOG 
: 2343 * , 
2201 2344 $PBUF £EQD * PRINT BUFFER 
2201 2269 2345 DS XL105 
2346 * 
226A 2347 $DDCF £EQU * DISK DRIVE CONTROL FIELD 
226A | 226A 2348 SFF DS xL1 FLAG BYTE 
2268 226C 2349 $CcC DS XL2 CYLINDER ADDRESS 
226D 226E 2350 $HH DS XL2 HEAD ADDRESS 
226F 226F 2351 SRR DS xL1 RECORD NUSBER 
2270 2270 2352 $KL DS XL1 KEY LEWGTR 
2271 2272 2353 $DL Ds XL2 DATA LENGTH 
2273 2273. 2358 SNN DS x11 RECORD COUNT 
2355 * 
2274 2356 $SNS EQU * SENSE DATA FIELD 
2274 228B 2357 DS XL24 \ 
2358 * 
228C 2359 SDDDF £EQU * READ / WRITE DATA FIELD 
DATE 29A0G75 O7TNOVTS OSHART6 © 213AN77. PROG ID FF7-3 DATE 29A0G75 O7NOV75 O4MARTE 
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PART NO. 4248241 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 8248281 
PAGE 2GA PAGE 24 
FF73 DISK ERROR RECORDING ANALYSIS PROGRAS PF73 DISK ERROR RECORDING ANALYSIS PROGRAS 
4 . e 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STNT SOURCE STATEMENT 
2396 2522 2397 2431 ENTADS pc AL2 (ENTADD) 2363 SHREK OESERETEEEREERSESEREESESESEES SOREREEAREREERSE CEES COEEEEEESESENEREEE 
2398 0010 2399 2432 SIXTEN pc IL2* 16# 23648 * * 
239A 0008 239B 2433 EIGHT Dc IL2¢*8¢ 2365 ROUTINES 5 AFD 6 = SYHBOL DEFINITIONS * 
239C FO 239C 2434 DZERO pc DL1*0? 2366 * * 
239D FT 239D 2435 DONE pc DLI4t 2IGT SHeeeEESEEHESEEEESEEREESEESE REESE SR EEEEKEEEEEE EEEEERECEREEEEESEREREEERER 
239E 00000000 23A1 2436 ZERO pc XL4'08 2368 * 
23A2 00 23A2 2437 CCNT pc XL7*0° MUST FOLLOW ZERO 2369 © LOCAL STORE REGISTERS 
23A3 0005 23A4 2438 FIVE pc IL2*5t 2370 * 
23A5 0006 23A6 2439 SIX pc IL2*6¢ 0001 2371 $xR1 EOU xo INDEX REGISTER 1 
23A7 OOOER 23A8 2440 XOE pc L2*000E! 0002 2372 $xR2 EQU x*02¢ INDEX REGISTER 2 
2389 FF. 23A9 2441 pc XL1'FF¢ 0008 2373 SARR FOU x*oe* ADDRESS RFCALL REGISTER 
23AA 2442 FFFF EQU * 2374 * 
23AA FFF9 23AB 2443 NEG? pc IL2*-78 2375 Be mew wwe nw nn oe en on ee ee ere oe ewe een ee ee ee ee ee we meme ee ewe wn 
23aC 0008 23AD 2444 OBRTYP pc XL2°8* 2376 « SECTION SENSE SWITCHES 
23AE 0000 23AP 2445 SYNC# pc XL2°0°' 2377 * 
24u6 * H24 XS AWAYS x*OOxx! 0040 2378 $sswi1 EQU x*aoe LOG DATA ON DRIVE 1 
23B0 0000 23B1 2447 #24 pc XL2'0! ; 6020 2379 $sSHw12 ZOU x*20° LOG DATA ON DRIVE 2 
23B2 0000 23B3 2448 DSKOFS pc XL2'"0¢ 0010 2380 $ssSW13 ECD x*10° LOG DATA ON DRIVE 3 
23B4 0000 2385 2449 CVTCNT pc XL2¢08 COUNT OF # OF BIT TO BE CONV. 0008 2381 $sSWwt4 EOU x*08¢ LOG DATA ON DRIVE & 
23B6 0000 23B7 2450 CNTOFS pc XL2'0¢ COUNTER OFFSET FROM @(DBUF) 0080 2382 $SS¥20 EQU x*80° CLEAR LOG AFTER PRINT (IF OFF) 
23B8 0000 23B9 2451 CNTLNG pc XL2'08 COUNTER LENGTH IN BYTES 2383 * 
23BA 0000 23BB 2852 TABIDX pc XL2°0? 2300. €-secceen ne Shrew eee eee ee teeta aside Seale tenet eee cneee Lccmawnne maleic aw 
23BC 7B 23BC 2453 1123 pc IL1*423° 2385 * MESSAGE / HALT IDENTIFIERS 
23BD 6B 23BD 2454 1107 pe IL1*107¢ 2386 * 
23BE 77 23BE 2455 1119 pc IL4°119# FFOO 2387 $HLTOO EQU X*PPOO? WO HALT 
23BF 7E 23BF 2456 1126 pc IL1°1268 . FFF6 2388 S$HLTF6 EQU X*PPFG* 3340 NOT READY OR ERROR 
23C0 15 23c0 2457 121 Dc IL16249° 2389 * 
23C1 CODSESCID3C9CK 23C7 2458 INV pc CL7*INVALID?® 2390 Bown nnn nw nnn en nn nn an ern een ee ee teen remem ene eene 
23C8 2459 SYNTBL EQU * 2391 * PROGRAH INDICATORS (SIND) 
23C8 FOFOFOFIFOFO 23CD 2460 DC DL6 "0001008 RTN1 SYNC PT CARD 1 COL C 2392 * 
23CE FOFOFSF7FOFO 23D3 2461 pc DL6"0057008 RTN2 SYN PT 0080 2333 $MPRV1 EQU x*sor - DRIVE 1 INPUT USED 
23D4 (2427 2462 DS TUXLE CARD #, COL # 0040 2394 $DRY2 EOU X*gor DPIVE 2 INPUT USED 
2428 2463 TABTBL EOU * 0020 2395 $DRV3 £EQU x*20° DRIVE 3 INPUT USED 
2428 2438 2464 DS V7XLI CNT,TAB1,TAB2,..-, TABI6 0010 2396 $DRVG EQU x*108 DRIVE & INPUT USED 
2439 2465 CBUF FOU * 0008 2397 $CLEAR EQU) x*O08* CLEAR ERROR LOG 
2439 2498 2466 . DS 96XL1 CONTROL CARD BUFFER 2398 * 
2499 2868 PBUF EQU * CONTROL RECORD BUFFER 2400 * BIT POSITION SYHBOLS 
2499 24F8 2469 DS 96XL1 2401 * 
24F9 2870 ORSNS EoU) * 0086 2402 $BITO FQU x*80F 
24F9 24FC 2871 ps XL& 0020 2803 $BIT2 EQU x*#208 
24FPD 24PFE 2072 PENDA@ DS AL2 0002 2408 $BIT6 EQUD x*02* 
2uFF 2500 2473 PSTRA DS AL2 0001 2405 SBIT7 EQU x*O01* | 
2501 2502 2474 CSTRA bs AL2 2406 * 7 
2503 2508 2475 DS XL6 * NOTE THAT TEIS DS MUST CHANGE ZEOT free m nnn nn mee ne mm mm em meee cea ereey ae mt an ae we Se me On en me en mosey eo aa ew ae ae oe eae a 
2509 250A 2876 PROG# DS XL2 * YF THE LENGTH OF DEC CHANGES Sane : DCP SECTION REFERENCE TABLE 
2508 250B 2877 PROGC DS 11 * BECAUSE LENGTH OF DEC EQUALS 
250C 2511 2478 PROGI DS XL6 * PRGCESOROCCE ERO CE CENT ne 020A 2810 $SBYT2 EOU x°O20a¢ SECTION SENSE SWITCHES 10-17 
2512 2511 2879 DEC Ds ODL15 020c 2411 $SBYTS EOD ¥*O20C* SECTION SENSE SWITCHES 20-27 
2512 2513 28 2812 * 
2514 oo ones aa ri 0212 2613 STEST EQU xX*02128 CHECK CE CONSOLE SWITCBES 
2515 . 4 2514 2482 CNTR ps OxLt 0216 241% SLINK £00 X*0276° LINK TO NEXT ROOTIRE OR SECTION. 
2515 2516 2483 SVCSTR DS AL2 027A 2415 SPRINT EQU Z°O21A® PRINT A SESSAGE 
2517 2518 2884 SDRIDX DS AL2 O27E 2816 SUNPK £00 X*O27E* UNPACK DATA - HEX TO EBCDIC 
2519 251A 2485 OBRNTA DS AL2 0222 2417 SHALT EOU ¥*0222¢ HALT AND DISPLAY HALT IDENTIFIER 
251B &8 24618 * 
ocae Saas oe ant oe CAOA 2419 $SUDT Bou K*Oada® SECTION UDT ADDRESS 
2523 2622 2488 DS XL256 . 2420 * 
2623 2489 DBUF EQU * 2421 ¥* 
2623 2722 2490 DS X1L256 2422 * CONSTANTS 
2523 2491 PTBUF EQU  DBUF-256 2823 * 
2523 2692 PCHBOF EQU DBUF-256 Sace : 
A3 2493 B G DBUF-2564Xx'" 80? 
27148 , 7 are ce are BORO oEA 238C 2528 238D 2426 OBNSTAa pc AL2 (DBUF-256+8) 
2714 2773 2295 MACH DS OCLS . 238E 2713 2387 2827 OBRNbe pc AL2 (DBUF*¢Z56-8) 
271A 2496 ORG DBUF4¢247 2390 2439 2391 2428 CBUFa Dc AL2 {CBUF) 
271A 2719 2497 STRDAT DS OCL6 : 2392 2491 2393 24829 CENDA DC -- - AL2 (CBUF¢88) 
2720 2498 ORG DBUF* 253 2394 2499 2395 2830 PBUFe pc AL2 (PBUP) 
DATE 29AUGT75 O7NOV7S OSMART6 213AN77 PROG ID FP7-3DATE 29A0G75 O7NOV75 O4MARTE 2198 N77 PROG ID FF7-3 
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FF73 > DISK ERROR RECORDING ANALYSIS PROGRAM | FP73 DISK ERROR RECORDING ANALYSIS PROGRAM 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT CROSS~REFERENCE 
2720 271F 2499 NEWDAT DS OCL6 SYMBOL T LER VALUE DEFN REFERENCES 
6 
auat as28 rhs * e ce SACK A O04 1F2F 2088 
FPPF 2502 END 3ARR C001 0008 2373 1882 1958 2046 2083 
$35GIN A 004 1D2D 1882 1228 1617 
SSGNX A 004 DDI 1947 1882* 1911 1923 1935 2203 
$BGNO1 A 003 %D3F 1889 1891 
SBGNOZ A 004 1050 1896 
$BGNO3 A 004 1D5B 14901 1897 
$BGNOY A 004 1079 14913 1903 
$BGNOS A 004 1197 1925 1915 
$BGNO6 A 00% 1DBS 1937 1927 
$BITCT A 001 2197 2318 2125* 21338 
$bITO C 001 0080 2402 1484 
$BIT2 C001 0020 2403 1893 
$BITK € 001 0002 2404 1991 
$BIT7 C 001 0001 2405 1465 2066 2085 2097 2132 
$cc A 002 226C 2349 1963 1976* 1994« 
SCKMSK A 001 2192 2310 1909* 1921* 1933* 1945* 2056 2674 
#CLEAR C 001 0098 2397 1860 1865 1999 2038 
fCTR A001 2198 2319 1380* 1388* 1395 1748% 1756* 1763 
$CYL A 002 218C 2303 1230* 1619* 1963 1976 1994 
$DDCPF A GOT 226A 234% 2337 
$DDCR A 002 21BC 2337 2060 
£DDDF A 061 228C 2359 1989 2019 2030 2031 2031# 2338 
$DDDR A 002 21BE 2338 2061 2121 
$DL A 002 2272 2353 1997% 
£DRV A 001 2193 2312 1321* 1346 1348 1593* 1693* 1714 17146 18719 
SDREVAD A001 218A 2301 1908* 1926* 1932* 1944*% 2050 2065 2096 
EDRVID kh 001 2189 2300 1243 1632 1907* 1919% 1931% 1943¢ 2744 
$DkV1 C 001 0080 2393 1902 1905 
fDRV2 C001 0040 2394 1914 4947 
$DRV3 C 001 0020 2395 1926 1929 
SDRVY C001 0010 2396 1938 7941 
$D1 A001 21AD 2331 1489 1551 1556 1593 1871 
SECC A 006 IP8A 2121 2111 
SECCO1 A 006 1F9E 2127 2134 
$ECCO2 A 008 PAC 2130 2128 
$ECCO3 A 006 1PB6 2133 2134 
$ERP A 004 1IF68 2108 
SERR A 008 1P24 2083 2058 2076 
SERRP A OOM 1FC& 2144 2094 2106 
$ERRX A OO4 PCO 2136 2083* 
$PF A001 226A 2348 1994 
$HALT C001 0222 2417 2200 
$HD A 002 218E 2304 1231* 1592* 1620* 1870* 1966 1977 14995 
$HH A 002 226E 2350 1966 1977* 1989* 1995s 
SHLTF6 C 001 FFF6 2388 2150 22014 
$HLTOO C 001 PFOO 2387 1249 1638 
SIND A001 2188 2298 1226* 1615* 1860* 1865* 1902 1905" 1918 1917" 1926 152¢# 1938 19418 
1999 2038* 
$10 A 004 DDS 1958 1234 1365 1382 1421 1087 1501 1579 1623 1733 1750 1850 1863 
$10X A CO4 1EC1 2041 1958s 
$ICX1 A 604 EBD 20480 1959* 2025 
$KILO A 004 21B2 2333 1549 
$KL A 001 2270 2352 
$LINK C 001 0216 24614 1894 1939 
$MEG A006 27BB 2334 1554 
$M01 A 001 203B 2212 2144% 2148 
$MOC1N A020 204EB 2213 2148 21489 
$M02 A 001 208F 2215 2154 
$MO2N A 027 2069 2216 1668 2158 2155 
$403 A 001 206A 2218 2159 
$MO03N A026 209E 2220 1679 2159 2160 
$™04 A 001 209F 2222 
$SMOUN A G36 20C2 2223 1241 
$805 & 001 «20C3 «2225 
$MOSN A022 205% 2226 1630 
DATE 29A0G75 O7NOV75 OUMART76 213AN77 PROG ID FF7~-3 DATE 29AGG675 O7NOV7S O4MAR76 245AN77 PROG ID PF7-3 
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FF73 DISK ERROR RECCRDING ANALYSIS PROGRAM 
CROSS-REFERENCE 

SYMBOL T LEN VALUE DEFN REFERENCES 

$M06 A 001 20DS 2228 

$MO06N A022 20EE 2229 1242 1631 

$u07 A 001 20EP 2231 

SMO7N A005 20F3 2232 1272 

$408 A 001 20F4 2234 

SMO8N A016 2103 2235 1273 1288 1289 

$NO9 A001 2104 2237 1274 

SHOON A 005 2108 2238 1290 

$410 A 001 2109 2240 

SM10N A 004 210C 2241 1275 

$M171 h 901 210D 2243 

SMTIN A 005 21117 2264 1276 1277 

$M12 A 001 2112 2246 

SMI2N A 003 2118 2247 1284 1664 

$413 A001 2115 2249 

$Mi3N A 006 211A 2250 1285 1665 

$u14 A 001 2171B 2252 

SMI14N 2 006 2720 2253 1286 

$M15 R001 21721 2255 

SM15N A 023 2137 2256 1287 

$16 A 001 2138 2258 

SM16N A 009 21740 2259 12914 

$Mi7 A 001 21741 2261 

SHITN A 006 2146 2262 4300 

3§18 A 001 2747 2264 

SMIBN a 016 2156 2265 130171 1302 1303 1304 

$u19 A 001 2157 2267 

SMI9N A 007 2715D 2268 7305 

$M20 A001 215E 2270 

EM20N A 004 2161 2271 1307 

$€M21 A 001 2162 2273 

SM21N A 006 2167 2274 1398 1766 

£M22, A 001 2168 2276 

SM22N A 004 2168 2277 1666 

$423 A 001 216C 2279 

$M23N A 008 216F 2280 1667 

SM24 A 001 2170 2282 

SM24N A 008 2177 2283 1785 1786 

E625 A 001 2178 2285 

SN25N 2 008 ZI7F 2286 1677 

SM26 A 001 2180 2288 

$M26N A 008 2187 2289 1678 

SNN A001 2273 2354 1884* 1885 1885* 2012* 2028* 2113* 2174 2114% 

S$PBUPF A001 2201 2344 1236 1248 1260 1282 1296 1312 1319 134% 1356 1403 
1637 1689 1662 1673 1684 1691 1709 1724 1771 += «21805 
1820 1625 1830 1835 2162* 2163 2163* 2168 2173 2176 
2193 2198 

SPRINT C 001 O2TA 2415 1245 1257 1279 #1293 1309 1316 1338 1353 1800 1559 
1659 1670 1681 1688 1706 1721 1768 1832 2141 2446 
2195 

SPTR A 001 278F 2305 1232* 1363* 1370* 1372 1375* 1387* 1390 1393* 1407 1412 
TH26* 1428 1431* 1491% 1493 1896* 14698 1567* 1569*% 1571 
1621* 1731* 1738* 1740 1743* 1755* 1758 176%* 1775 1840* 
1847 2003 

SPTRF A O0O1 2194 2314 1407* 14616 1498 1576 1775* 1847 

SPTRX A 001 2195 2315 WW12* 1418 1567 

SP A 002 2186 2327 1231 1370 1387 1388 1426 1491 1569 1592 1620 1738 
1840 1870 2105 2133 

$P209 A 002 2189 2329 1230 1619 

$P256 A003 27AC 2330 1997 

SP5 A 001 21A7 2328 2004 

$Q A 001 2190 2307 1971* 1979* 1984* 2014* 2033* 2051 

SR A 001 2191 2308 1972* 1980* 1985* 2015* 2034* 2052 

fRDCNT A 006 219F 2321 1408* 1449 1449* 1450 1452" 1525 1554# 

SRDHA A 004 1E1B 1988 

SREDKD A 004 ERE 2002 

DATE 29AUG75 O7NOV75 O4MART6 21JAN77 
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1562 1625 

1810 1815 

2183 2188 

1634 1646 

2152 2157 

1416* 1418 

1574* 1576 

1842 1845* 
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FF73 DISK ERROR RECORDING ANALYSIS PROGRAM 
CROSS-REFPERENCE 

SYMBOL T EN VALUE DEFN REFERENCES 

SRDKD1 A 006 ESE 2005 2006 

$RDKD2 A 004 E87 2019 2609 | 

SPDWK A001 29A3 2324 2002* 2003* 2004* 2005 2005* 

#RDWR A 006 1635 1994 1967 2117 

$REC A001 21C1 2361 1367 1384 1414 1423 1452 
1503 1506 1581 1584 1735 
1795 1798 1799 1800 1608 

$RECAL A 00& DP? 1971 1964 2199 

SRECN A 06% 2200 2342 2023 

$PETRY A 00% 2196 2317 1961* 2105 

SRR A001 226P 2351 1969* 2008 2011* 2027% 

$RIN3 A 001 1770 1219 0377 

$RTN4 A 001 BOE 1608 1221 

SRS A 008% 1778 1228 1358 

$R5A A 003 1875 1326 1595 

$25B A 004 %8B8 1363 1349 

$8531 A 004 18BC 1365 1373 

$R5C A 004 1819 1380 1368 

$K5C1 a 004 18DD 1382 1396 

$R5C2 A 00% 8FF 1395 1391 

$R5C3 A 906 1918 1407 1385 

$R5D A 006 191E 1812 1587 

$R5D1 A 096 192F 1818 1429 1432 

$R5E A 003 195B 1437 1819 

$R5E1 A 006 1992 1452 1509 

$R5E2 A 003 19BF 1471 1961 

$R5E3 A 004 19D9 1484 1466 1869 1880 

$R5E4 A 005 1983 1489 1460 1674 14885 

$R5E5 A 006 19FB 1491 1475 1504 1507 

$F5E6 A 006 19F9 1498 1494 

$R5E7 A 001 TA1B 1514 1499 1552 

$R5E8 A 006 AAI 1554 1550 1557 

$R5E9 A004 1AB3 1559 1548 1555 

$25F 2&2 006 ABB 1567 1924 

SE5F1 A 006 1TAC1 1569 1582 1585 

$R5F2 A 006 1AD2 1576 1572 

$R5N A 006 «IAF 1592 1405 1577 

$R6 A004 1B16 1617 1726 

$R6A A 003 1BC5S 1698 1873 

SR6n A 0048 <1BFC 1731 VW17 

$R6B1 A 004 1C00 1733 1744 

$R6C A008 ICID 1748 1736 

$R6C1 A 008% 1€21 1750 1764 

$R6C2 A 00% 1€83 1763 1759 

$k6C3 A 006 1C5C 1775 1753 

$R6D A 004 1062 1780 1855 

$R6D1 A 004 1C8F 1795 1789 

SR6D2 A 004 1CA5 1802 1796 

$R6E A 006 1CE3 1880 1781 1853 

SKEET A 006 ICFG 1887 1843 

$R6N A008 DOD 1860 1773 1848 

$SAVR1 A 004 1867 1529 1516% 

$SAVR2 A 008 1A6B 1530 1S17*# 

$SBYT2 C 0C1 020A 2410 1896 1899* 1901 1913 1925 

$SBYT4 C 001 020C 2411 1862 

$SEBEK A 004% EOP 1979 1992 

$SIO A003 1EF9 2083 2950* 205%* 2052* 

SSKCNT A 004 21A2 2322 7450* 1453* 1518 15498 

SSNS A 001 2274 2356 2054* 2057 
2116 21218 
2192 2339 

SSNSDR A 002 21CO 2339 2059 

$SNSIO A 003 1P57 2101 2096* 2097* 

$SNS23 A 002 21BA 2335 2090 

$SSW11 C001 0040 2378 1896 1901 

$ssW12 C 001 C020 2379 1696 1899 1913 

DATE .29A0G75 O7NCY75 OGHARTE 213 AN77 
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FF73 DISK ERROR RECORDING ANALYSIS PROGRAM . FF73 DISK FRROR RECORDING ANALYSIS PROGRAM 
CROSS- REFERENCE CROSS~REFERENCE 
SYSBOL T LEN VALOE DEFN REFERENCES SYMBOL T LEN VALUE DEPN REFERENCES 
$SSW13 C 001 0010 2380 1896 1925 CVTSTR A 004 14E3 1046 1038 1081 
$SSW14 C 001 06008 2381 1896 1937 CVTX A001 12EA 0851 0781 
$SSW20 C 001 0080 2382 1862 CVTX® A091 12F3 0854 0740* 0799* 0832s 
STEST C001 0212 2613 2048 CVTX1 A 001 12E1 0847 0813 
$TIO A O04 1FOA 2070 2065* 2066* CYSTRT A 001 T4SE 1018 1010* 
SUCK A006 1P49 2096 2086 DACON A 004 ODO4 9259 0152 
$uDT C001 OAOA = 2419 1887 DAR A 001 13546 0925 
SUNPK C 001 O21E 2816 1802 1807 1812 1817 1822 1827 2165 2170 2175 2180 2185 2190 DA89 =A 001 GEF3 0462 0392* 
SWRREP A 004 ESB 2027 2000 DEUF A 00% 2623 2489 0086 0086* 0092 0097 0097* 0098 0098* 6099 0099* 0105* 0170 0196 
$XEQ A O04 ECS 2046 1974 1982 1987 2017 2036 0288* 0289 0289* 0293* 0713 0756 0800 0833 0924 1172 15188 1525* 
$XEQX A 004 1F20 2078 2046" 2426 2427 269% 2492 2493 2494 2496 24098 
$XR1 C001 0001 2371 1236* 1241 1242 1243 1254 1255 1255 1262 1263 1263 1265 1266 DBUF® A 002 1354 0924 0156 
1267) 1268 «61269 ©1270 1271 1272 1273 1274 1275 1276 1277 1288 _ DCR A 002 1352 0923 
1285) 1286 «1287 «61288 «61289 1290 1291 1298 1298 1299 1299 1300 DDCF A 001 6FB 1177 OS4E* 1060* 1061* 1062* 1098* 1169 
1301 1302 1303 1304 1305 1306 1306 1307 1314 1314 1326 1327 DDCFB A 010 1725 1202 0945 
1327) 1329 1330 61331 1332 1333 1334 1335 1336 1346 1354 1351 DDCFE A 00% 1704 1185 0945* 1076 
1398 1414 61423 1437 1438 1438 1439 1439 1460 1440 1441 1444 DDCX A001 170PF 1190 1171 
TWHG2 W442 14463 1443 1444 1444 1445 Hus 1457 1463 10628 1671 DDCZ A 001 1718 1198 1076* 1077# 
W477 1482 1506 1551 1556 1584 1625* 1630 1631 1632 1643 1644 DDDF A 001 1705 1187 1084 1097% 1170 1203 
T6u4 1651 1652 1652 1654 1655 1656 1€57 1668 1665 1666 1667 DD2Z2L A 002 171A 1199 1077 
1668 1675 1675 1676 1676 1677 1678 1679 1686 1686 1698 1699 DD51 A001 OFEF 0458 0389* 
1699 1701 1702 1703 1704 #1714 #1719 1719 1766 1783 1785 1786 DEC % 015 2511 2879 O759* 0766 0764* 0768* 0771% 0774* 0779 
1791 1792 1793 1798 1799 1800 1887* 1889 1889* 1890 1893 1959 DISKIO A 001 1333 0893 0290 0294 0448 0569 0894 0895 
2019* 2021* 2023 2040* 2123* 2129 2130 2130 2132 DISKX@® A 002 1349 0902 0896* 0897 1093 
$XR2 C001 0002 2372 1457* 1463* 1468* 1471% 1477* 1482* 1487 14B7" 1429 DISK33 A 006 13F3 0945 0899 
x80 A001 21AE 2332 2129 DIVBY4S A OCS 0C63 0247 0213 0215 
SZERQ A 006 1272 0791 0762 DKERA A006 15CD 1118 1139 
ADDBAK A 005 14DE 1043 1025 1033 DKER2 A 006 1582 1109 1082 
ADDB =a 005 OC7B 0225 0220 DKERS A 006 15BB 1112 1092 
ALCL A 601 1221 0765 0753*% DKER9 A 006 15C4) 1115 1075 1104 
AREC# A 002 1727 1203 .DKNR A 003 15AP 1107 0947 
ARR C 001 0008 0022 0491 0636 0693 0712 0740 0799 0832 0856 0867 0896 DONE A001 239D 24635 0661 0768 
ASTER A 001 1082 0611 0591 DRV32 A001 171B 1201 1068 
AST1 =A 003 1080 0613 0616 DSK A 001 OFEA 0566 0539 
A107, =A 005) «=(0C56) 02 14 0206 0211 DSKCYL A 001 134E 0920 . 
A119 A 005 OC4UE 0212 0208 DSKDRV A 0C41 134C 0917 0065* 0393% 0994 
BLANK A 001 ODBS 0357 0771 DSKFCT A 001 1346 0900 0698* 1067 
BOTH A 004 O0C8B 0229 0218 0228 0226 DSKPLG A 001 1348D 0919 0923 
BRa A 004 OBB6 0163 0145+ DSKMSG A 004 138E 0933 
BRTBL A 002 O0D97 0339 0142 DS¥M32 A 001 OA38 0073 0068 
BSPLG C 001 0002 o48E 0415 DSK433 A 023 OA87 0076 0068 0069 0072 
BUMP A003 14F8 1053 1050 1057 DSKNUM A 001 1350 0922 
bYTE@® A002 OCDS 0254 0134* 0250* DSKOPS A 002 2333 2448 
CEUP A001 24839 2465 0664* 0873 2428 2029 2467 DSKSEC A 001 134F 0921 0292* 0568* 0993 
CBUF® A 002 2391 2428 0509 0665 DSNS A 001 1728 1206 1173 
CCNT A001 2382 2437 0433* 0436 0442* 0443 _DSNSE A 024 173F 1207 1142 
CEND@ A 002 2393 2429 0531 0599 DIMP C 001 2020 0035 
CHKSW A 001 OF88 0532 0870* DVFLG A 002 O0D91 0324 0166* 0177* 0164* 0188* 0237* 0313 03138 
CHKSW1 A 001 165B 0600 0869% DYTBL A 001 ODB4 0354 0146 
CKCYLO A 003 14CC 1036 1020 DZFRO A 001 239C 24634 0640 0759 
CKFIXD A 003 147F 1001 0999 D51 A 003 OA1S 0049 0387 
CKZERO A 003 14B5 1027 1034 EIGHT A 002 239B 2433 0100 0225 0245 0256 
CLCL A 001 1213 0761 0754* EMPTY A001 OD10 0276 0132 
CNT A 001 2514 2481 0312* 0319* 0398 0452s END A 001 2523 2487 
CNTLNG A 002 23839 2451 0435* 0579* 0742 0746 0751 0780 1514* 1522 FNTAD@ A 002 2397 2431 0134 
CNTN A001 2514 2482 ENTADD A 008 2522 2486 0116 0116* 0123 0123% 0124 2834 
CNTOPS A 002 23B7 2450 0155* 0156* 0171 0195* 0197 0436* 0578* 0714 0757 0780* 0801 0834 EFAP A001 OAOO 0018 
0849* 1515* 15242 : ERESG A 004 OD05S 0270 0095 
CNTR A001 1007 0576 0541 ERRMSG A 004 181A 0981 1022 1037 1054 
CRONNB A 001 2498 2467 050) 0640* 0649 0661* 0662 ERRNSL A 051 145E 0°88 0984 
CSTR@ A 002 2502 2474 0510* 0528 0530* 0531 0535 0554* 0563* 0598 05°99 0605 0665* EXIT A005 ‘*50E 1059 1043 
CVTBIN A 001 12AP 0831 0167 0162 E1 A 001 OEFO 0459 0386* 
CVTB1 A 003 12D4u 0844 0842 FFFF A001 23AA 2642 0494 0719 0803 
CVTB2 A 003 12c7 oOB4o0 0846 FFLG C001 0080 0882 0498 0522 0637 0666 
CVYTCNT A 002 23835 2449 O74S 0769* 0839* 08gSs FIVE A 00zZ 23A4N 24838 0311 
CVTCTH A 003 149D 1017 1015 FLGDA A 001 OA11 0048 0390 
DATE = 29AUG75. OT NOW75 OSSAR76 =. 24JANT77 PROG ID FF7-3 DATE  29A0G75 C7NOV75 O4MAR76 =. 24. AN77 PROG ID FF7-3 
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FF73 DISK ERROR RECORDING ANALYSIS PROGRAM j . FF73 DISK ERROR RECORDING ANALYSIS PROGRAR 


CROSS~REFERENCE CROSS-REFERENCE 


SYMBOL T LEN VALUE DEFN REFERENCES SYMBOL T LEN VALUE DEFN REPERENCES 

FLG14 A 001 OAOE O06 0189 0200 9384 OBRNDO A 002 238F 2827 O10£ 0131 0178 0243 0246 

FORTEN A 001 140A 0968 1031 1043 OBRNTS A O0C2 251A 2885 O010%* 0106 0117* 0120 0128 0131 0139 0243 0245* 0286 0256% 
FOUR A 001 1409 0967 1056 OBRST® A 002 23ED 2426 0120 

GPCS A001 45F 0S90 0965 ! GBRTYP A 002 23AD 28484 014S* 0117 0122% 0128 

HALFNT A 001 OB32 0126 0121 OBR1 A 004 0D95 0325 0091 0293 

HALT Cc 001 0222 0031 0070 0519 0673 0681 0985 1152 ONE A 00% O&8B 0079 0195 0250 0318 0319 0825 0850 0851 0452 0558 90563 0598 0615 
HEADWA A 001 1814 0975 1046* 1055* 1059 0752 0769 0845 0849 0852 1030 1040 1055 

HEXDEC A 001 11C€2 0739 0173 0229 0424 0434 0437 1519 1526 PACK A004 116D 0693 0560 0567 0577 

HEXDO A OO& 125F 0782 0763 PLCUF A901 2899 2468 0089* 0137 0527 0561 0568 0578 0578 0579 0586 0602 06048 2830 
EEXD1 A 006 121A O764 0770 PBUF® A 002 2395 2430 0694 0695 

HEXD2 A 006 122D 0769 0767 PCHBUF A 001 2523 2492 

HEXD3 A OOH 1249 0775 0773 PCK1 A 004 1179 £0696 0702 

HEXD5 A 006 1237 0771 0783 PD3O A 00% 1666 14160 1122 

HEXHEX A 001 1273 0798 0159 0160 0167 0181 PD31 A 020 16A0 1163 1109* 1112* 1115* 1118% 4122 14123 1124% 1125 1125*% 
HEX2 A 004 128B 0806 0815 PD35 A020 1684 £1168 1109 

HEX20 A 001 1408 0966 1051 PD4&3 A 020 16C8 1165 W142 

REX3 A 003 129D 0811 0809 PD46 A020 16DC 14166 1115 

HLTTBL A QO?T 1355 0927 : FD&s A 020 16F0 1167 1118 

H24 A 002 23B1 2447 0507* 0506 0859* 0861 PEND® A O02 24FE 2472 65289* 0596 0701 

INC A 006 OFEO 0563 0571 0575 05896 PEXT@ A 001 1198 07048 0693 

INV A 007 23C7 2458 0233 PTD A 002 OAO1I 0038 0657 

INVALD A 001 OCSF 0231 0199 PRIDEF A 001 %58C 1996 1085 

IOBCHN A O0O8 14%8 0977 0993* 0995* 0998 1001 1017* 1019 1021 1023* 1027 1030* 1031* 1036 PRINT C061 O21A 0029 0062 0066 0241 0270 0300 0305 0381 0827 0438 0515 0608 06693 

1O40* 1043* 1047 1049 1051* 1053 1056% 1059* 1060 1061 1062 0677 0981 1120 1137 17144 1148 : 

IOBQOB A OU1 7419 0978 0994* 0995 1012* 1014* 1016*% PROG# A O02 250A 2876 . 

1107 A 001 23BD 24854 02174 PROGC A 001 250B 2877 

1119 A 00% 23BE 2455 0242 PROGI A (06 2511 2478 

1123 A 001 23BC 2453 0202 PRTBOF C 96% 0880 0038 0089 01327* 01535* 0191* 0192* 0583 0602 0608* 0649 0659 0662 0668 
1126 A 001 23BF 24856 0227 0860 1524 1527 
I21 kK 001 23C0 2457 0216 PRTNR A OO 15D3 14120 1707 41110 #1913 «41116 

I5 A 001 0c4u9 0210 0223 PRTPOS A 001 12PF6 0855 0232 0777 0802 0836 

LABEL A 004% OBO3 0115 0112 PRTX@ A 007 14310 £0863 0856é* 

LBUF A 0C2 16F8 1172 1089 PSNS AO&8S 176F 1208 11a3 0 «1154 

LDCF A 00Z 16F2 1169 1070 1088 PSTR@ aA OO2Z2 2500 2873 0595* 0596 

LDCX A 002 16F6 1171 1078 PTBUPF AOOT 2523 2891 

LDDF A 002 16F4 14170 1071 1079 1100 PT1403 A 001 OC6A 0219 0201 

LEVEL A O0C2 1158 O684 0658 0659 P1403 A 008 OCOE 0193 0190 

LINE A 001 OFFD 0573 05487 : Qa0 A 001 OD05S 0266 03488 

LINK Cc 001 0216 0028 0321 O454 0987 1154 QBO0 -A 009 ODOS C267 0349 

LI2733) A 004 1572 1087 eco A 00% ODO05S 0268 0350 

LNGTBL A 001 1267 0784 0744 QpO A 007 OD05 0269 0351 

LOAD C 001 022A 0032 0643 0647 0652 QEO A 001 OBFB 0167 0352 

LSNS A 002 t6FA 1173 1136 QFO A 0071 CCSB 0236 0352 

LVLMSG A 017 116C 0685 0680 ORSNS A 001 28F9 24670 0158* 0772 0179 0193 

MACH# aA 005 2713 2895 Q10 A 001 OBDB 0176 0339 

MASK A 001 OCD3 0252 0135* 0248 0248* 0251% ~ Q20 A 001 ODO05 0260 0340 

MODEL C007 0200 0026 Q30 A 001 ODOS 0261 0341 

MODELG A 00% OA88 0077 . O40 A 001 ODO05 0262 0342 
. MSG A001 107B 0582 0537 , e50 A 00% OBF3 6183 0343 

MSGCK A004 1080 0595 0624 Q60 A 001 OD05 0263 0344 

uSGX A 030 ODOO0 0258 0273 Q70 A 001 ODO0S 0268 0345 

MSC1 A 001 102A 0587 0597 e80 A 001 OBBA 0165 0386 

NSG2 A004 106F 0505 0601 090 Rk 001 ODO05 0265 0347 

MSG3 & 020 13A2 0935 0302 0303 RDBUF A 007 25A3 2893 

MSG3B aA 001 138E 0934 0302 RDDSE A 029 1666 1159 1146 «1187 

MSG4 A O40 13F2 6938 0307 0308 RDDGS A OCT 1689 1158 1146 

MSG4B A 001 1382 0936 0307 PDWRT A003 457A 10930 1067* 1068% 

BYCL A 001 1252 0778 0743* RD1 A 001 10D9 = 0651 C038 

NEG7 ‘A .002 23AB 2443 0837 RD2 A 004 10CB 0687 0642 

NEWDAT A O0€ 271F 2899 RD3 a 001 10DD 0654 0650 

NEWDRVY A 005 14888 1010 1002 , RD& A 006 10D0 0649 0646 

NEXT A001 OF71 0526 0511 0564 0607 0610 READ A 001 10A9 0€35 0504 0534 0603 08748 

NFLG Cc 0071 0020 oO48e RELGAD A 0014 OFS3 0512 0502 

NSLEV A 00& 1148 0677 0660 RETURN A OOT OFCS 0553 05485 

NXT1 A 004 OF79 0529 0551 . REXT@ A 901 2172 0668 0636* 

NXT2 A 003 OF92 0536 0533 RLDNSG A 017 OF70 0528 0518 
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“IBM MAINTENANCE DIAGNOSTIC PROGRAM: PART NO. 4248241 1BM MAINTENANCE DIAGNOSTIC PROGRAM i PART NO. 62482401 
ns PAGE 29 PAGE 292 
FP73 DISK ERROR RECORDING ANALYSIS PROGRAM . FF73 DISK ERROR RECORDING ANALYSIS PROGRAN 
. . 1 
CROSS-PEFERENCE CROSS~REFERENCE 
SYMBOL T LEN VALUE DEFN REFERENCES SYMBOL T LEN VALUE DEEN REPERENCES 
SWITCH A 001 128C 0805 O804* 0812 O8t4ue 
areas aT sae poe oraae SYNC# A002 23AF 2445 0311* 0315 0318* 0399% 0412 0450* 
ESHF1 A O00& 11A9 0716 0720 SYNMOV A 001 1311 0865 0080 £396 
KSHF2 A 008 11B3 0719 0717 SYNMX¥3 A001 1332 0876 0867* 
RSHIFT A 001 1199 0711 C217 SYNR A OOT 1315 0868 
RST A 004 10AD 0637 0683 SYNIBL A 001 23C8 2459 0492 0873 
RIW1 aA 001 OA16 0056 0042 SYN1 A 005 OF18 0500 0505 
RTINTX A 004 OD1C 0280 0244 SYN2 A 004 OF2B 0506 0501 
RTNIXX A 001 OD2F 0287 0274 $21 A 005 OCSE 0216 0204 
RTN1X1 A 001 ODSD 0309 0286 TAB A 001 OFD2 0559 0543 
RTN102 A 006 OABB 0097 0101 TABICX A 002 23BB 2452 0154* 0168 O04G1* 0562* 0852* 0858 1513 15238 
RTN103 A 001 OAD? 0103 0093 TABLES A 001 140C 0970 0996 0997 
RTN104 A OOS OAE1 0106 0118 TABITBL A 901 2428 2463 0425* 0561* 0857 1512 
RTN105 A 001 OB17 0119 0174 TBN A 00% OcD2 0253 0249 
RTN106 A 001 OB32 0127 0110 TEMP aA 002 2513 2480 0091* 0092* 0094 0100* 0107* 0108* 0109 0111 0113 O138*® 0140* 0141 
RTN107 A 001 OCA2 0240 0174 0180 0182 0185 0194 0230 0234 0238 CWU1* 0143 C147 0147* 0149 0700* 0701 0751* 0752* 0753 2754 0758 
RTN108 A OOT OB4YC 0136 0257 TWO 4 001 OF26 0395 0442 
RTN109 A 006 OBOD 0117 0125 UDT C 001 0232 0033 0403 
RTN11X A OG& OCDF 0257 0247 0255 UFLG Cc 004 ©0004 0487 
RTN111 A 006 OD67 0313 0320 UNORD A 004 1113 £0668 0663 0675 
RTN112 A 006 OD7C 0318 0314 UNPACK C 001 021E 0039 0655 1427 1140 
RTN2 A001 ODFO 0375 0058 UPCYLN A 005 t4D6 1040 1028 
RTN334 A 004 OD4D 0300 XR1 Cc 001 0001 0020 0106* 0107 0139* 0140 0150 0155 0158 0178* 0233 0402* 0408 C416" 
SAVRD A005 ‘BOD 1596 1527* 1532 O417 0419 0421 0492* 0493* 0500 0506 0506 0507 0527* 0529 0548 
SAVSEK A 005 B08 1597 1520* 1531 O548* 0549 0583* 0584 9585 0585 0592 0593 0593* 0613 0618 06148 
SBYTES Cc 001 O020C 0027 0285 0846 0622* 06°4* 0696 0697 0698 0698* 0700 0715* 0719% O745* O746 0747 
SCAN A G01 OFF6 0890 0081 0088 9279 0282 0317 041% 0829 6440 0872 O747 O748 O748 O749 0749 779 0803* 0806 0807 0808 0810 0811 
SCNEXT A 001 OFD1 0557 0491* O0811* 0837* 0840 0843 O844 O844* 0857* 0858* 0859 O860* 0867® O8d4e 
SCNFLG A 0071 OFFS 0480 0278* 0281* 0316* 0413* 0415* 0496 0498 0522* 0555* 0637 0666* 0772 0895 0896 0897 0898 0939 0991 0992* 0994 0995 0995 0998 1001 
0775* 0782* 0871* 1012 101" 1016 1017 1019 1021 1023 1027 1030 1031 1036 10480 
SCc1 kh CO& OFPE 0493 0495 1043 1047 1089 1051 1053 1056 1059 1516 1529* 1531 1532 1533 
Sc2 A 001 OF23 0503 0499 0523 1535 1537 1539 
SC3 A901 OF71 0525 0497 XR2 Cc 001 0002 0021 0078* Q1N2* 0143% 0144 0144* 0145 O148* 0149* 0152* 0153 0170 01718 
SCu A 001 OFS8 05214 0514 0172 0196* 0197* 0198 0202 6203 0205 0207 0209 0212 0218 wu216 
SDRBS A O04 OFSB 04834 0444 0221 0223 0225 0227 0277* 0280* 0315* 03948* 0400* 0401 O802* QuOU 
SDRBSC A 001 OF97 0432 0418 0420 0422 0406 O408 O0408* 0412* 0494" 0508* 6509* 0510 0528* 0530 0535* 0536 
SDRFND A 001 OEFS7 0811 0405 0538 0540 0542 0544 0546 0589 0550 0550* 0586* 0588 0590 0592 
SDRIDX A 002 2518 2484 0401* 0402 0416 0451% 0594 0594* 0595 0605* 0606 0612 0612 0615 0620 0620 0621 0622 
SDRLEN A 001 OEF5 0465 0398 0623 0623* 0695* 0696 0697 0699 0699* 07713* 0714* 0716 0776 0718 
SDRNXT A 001 OE2B 0397 0721 O741* 0742* 07463 0756* 0757* 0758* 0762 0766 0766 O8C0* 0801 
SDRTBL A 001 OEEE 0456 0398 0800 0806 0833* 0834* 0841 0841 0848 0897* 0896 0996 0997* 1000 1000 
SDR1 A 006 OEDS 0450 0807 0447 1003 1003* 1010 1012 1013 1093* 1094 1517 1530% 
SDR2 A 004 OFG3 O4O4 0409 XOE A 002 23A8 2440 : 
SDR3 A 004 OE7D 04824 0426 x39 A 004% 12A0 0812 0870 
SDR4 A 00% OFCB O44S 0430 ZERO A 008 23A1 2836 0138 1513 1515 1523 1524 
SDRS A001 OEF7D 04823 ZFLG Cc 001 0008 04886 0772 O775 0782 . 
SDR6 A 004 OE3B 0802 0453 
SFLG C001 0070 048s 0278 0281 0316 0413 0896 0555 0871 TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 
SIO2 A 003 1345 9901 
$1033 A 003 1560 1080 1105 
SIX A 002 23A6 2439 0493 
SIXTEN A 062 2399 24832 
SFACE A 001 1098 0619 0589 
SPCNT A 001 107D 0609 0574* 
SP1 A 003 10A2 0623 0617 
SSW20 C001 0080 0023 0285 0846 
$SW23 C 001 0010 0024 
SS824 C001 0008 0025 
STARTN A 001 1418 0976 0991 09992 
STATOT A C26 1649 1157 1130 1133 1134 
STATST A 001 1%462F 1156 1133 
STATUS A 002 134B 09153 09486* 1126* 1129 
STRDAT A 006 2719 2497 
SU8126 A 005 0C83 0227. #®®&40222 
SVCSTR A 002 2516 2483 
SVNTEN A 001 W40B 0969 1023 
DATE =. 2940675 OT NOV75 OUMART6 213AN77 PROG ID _ PF7-3 DATE 29A0G75  O7NOV7S OUMAR 76 213AN77 PROG ID FF7-3 
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FF73 DISK ERROR RECORDING ANALYSIS PROGRAM FF73 DISK ERROR RECORDING ANALYSIS PROGRABS 
4 
OBJECT CARD LISTING OBJECT CARD LISTING 
. CL 4 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 4&8 CL &9 THROUGH 68 
THE CHARACTER 


CL 1 THROUGH 16 


CL 17 THROUGH 32 


CL 33 THROUGH 48 


INDICATES A BLANK COLUMN AND THE CHARACTERS D EF H INDICATE 


CL 49 THROUGH 64 


CL 65 THROUGH 80 


NUMERIC SHLFT. 


CL 8t THROUGH 936 


CL 65 THROUGH 80 


CL 81 THROUGH 96 
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PART NO. 
PAGE 


FF73 DISK ERROR RECORDING ANALYSIS PROGRAR ' FF73 DISK ERROR RECORDING ANALYSIS PROGRAM 


CL 1 THROUGH 16 


T+/+"6MCOSMCVS_ ( 
T+/}:2<PRE<PRE6) $ 
T+/E5D42A2A07| 
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T+/E=2; ( O@TEO'I 
1+/$99_XTE<CLABOE 
T.J*XH 

T+/;D 0 $CTO HOT 
T+/-V"OA@PF/*R6) 
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T+//$L /WHMC /OH 
T+/SOQ*BG /YAEKI 
T+/TIP-ELHWV< < 
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CL 17 THROUGH 32 
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OBJECT CARD LISTING 


CL 33 THROUGH 48 
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CL G9 THROUGH 64 
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2/1-<DIE-E%T2/08 
G /DBF/RIOSYN=TG 
BEUCS8AGT9+I O>T 
I8_I 1(XI9*N EIT 
71) V 6*PAIDCHOMA 
F8OPRE (XEO*S 1<X 
arenes in 
B KHALB<TH<I<ELD 
QM EQD2~EOQ*sETK+E1 
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8| /T@BGG)M* BG 


CL 65 THROUGH 80 


2<XSB'SRIDCAS*I 
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{OH*BE>LNO*®. LINC 


NC DMEV(|L DDS 
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Ci 65 THROUGH 80 


CL 81 THROUGH 96 
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I3a MAINTENANCE DIAGNOSTIC PROGRAH 


PART NO. 


wer LE ye ee Ee ee ee re og Mae Se OP) ENE 2 2 - : ; : ; : 8 8 5 


8288254 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO, 4248254 
PAGE 1 PAGE VA 
FE12 FE - CPU MODULE FOR SYSTEM TEST MOD 12 FE12 FEI - CPU MODULE FOR SYSTEM TEST HOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
2 * LAST CHG 03:07:77 OADE CO 87 0212 30 TSTOTA B TEST TEST FOR VALID DCP ENTRY IN DATA SW 
3 DECK 1 OA12 38 80 C204 31 TBN  CPU,X'80# TEST FOR DUAL PPOGRAS FEATURE 
4 SEO 0 0A16 F2 90 OB 32 JF TSTO'W BYPASS IF NOT PRESENT 
0000 5 FE1 START 0 0A19 35 80 OEPA 32 L ERRIWT, TARO LOAD INTEPRUPT IAR FOR ERROR 
6 TREP OA7D 3C 80 OAS? 34 NVI BRANCH41,X*80°* SET BRANCH INST. TO NOP 
OA00 7 ORG X*OA00! CA21 F3 00 00 35 SIO 0,0 DISABLE DUAL PGM. f& INTERPT KEY 
8 Oa24 35 20 OFB1 36 L ADRY, PUIAR LOAD PROGRAM LEVEL 1 IAR 
Q KEKE EERERS ERE EAE KE ERS EEKREEEERKEEEKERER SE RKE KEE EK KEK ERERRREEEEKEEE ES OA28 35 80 OEFB3 37 L ADRZ, PZIAR LOAD PROGRAM LEVEL 2 IAR 
10 * SYSTEM/3 CPU MODULE POR SYSTEM TEST * OA2C 35 40 OEAF 38 DPY L ADRX, P2IAR LOAD PROGRAM LEVEL 2 IAR 
11 FREER EEE REESE REE ER EES EERE EERE EREERERESAEEREEEEREREEEREEEEREEEREE RES 0A30 F100 00 39 DP2Z APL 0 ADVANCE PROGRAM LEVEL 
12 * SECTION PREFACE * OA33 F2 87 06 40 J DP2 TO NEXT TEST 
13 * * 41 
QA00 FE12 OAOt 14 pc XL2*FE12* FPOGRAM ID * 0A36 CO 87 0222 42 DPX B HALT GO RALT -CC32- BECAUSE APL INSTR 
OA02 80 | OA02 15 Dc XLU*80° SECTIGN FLAGS * OA3A FE32 OA3B 43 pc XL2"*FE32°* CAUSED PPOGRAN ADVANCP WHEN NOT 
OA03 01 OA03 16 DC XLt*o1* ROUTINE NO, * yy * ENABIED. 
OA04 0000 OAOS 17 pc XLzZ*O008 RESERVED * 4&5 
OAO6 OAOA 0a07 18 pc AL2 (TSTO1) ADDRESS OF FIRST ROUTINE PREPIYX * OA3C F3 00 O04 46 DP2 SIO X*OU* ,xtO# EWABSLE DSAL PGS. 
OAOS FFFF OA09 19 DC XL2"FFFF* FILLER * OA3F 35 80 OFOO 47 L INTRPT, JARO LOAD INTEPROPT LEVEL O IAR 
20 * * OA83 35 20 OEAY 48 a ADRA, PILAR LOAD PROGFAS LEVEL 1 IAR 
21 FEREEEEE EERE EEE REER EEE EEEE RED EERE RREERE EEE EKER EEE ERE EERE EREE EEE ERSE ERE OAG7 35 20 OFAB 49 L ADRB, PIIAR LOAD PROGRAM LEVEL 1 IAR 
22 * ROUTINE PREFACE * CA4¥B 35 40 OFAD 50 L ADRC,P2IAR LOAD PROGRAM LEVEL 2 IAR 
23 * * OASF 35 40 OEAB 51 DPA L ADRB, P2IAR LOAD PROGRAM LEVEL 2 JAR 
OAOA 01 OAOA 24 TSTO1T DBC XL1*018 ROUTINE NUMBER * 0853 F1 00 00 52 DPC APL 0 ADVANCE PPOGRAS LEVEL 
OAOB 00 OAOB 25 poe xL1*00° ROUTINE FLAGS * 0A56 CO 87 OAS3 53 BRANCH B DPC 
OAOC FFFF OAOD 26 Dc XL2*FFFF®¢ * 58 
27 * * OASA CO &7 0222 55 B HALT GO TO HALT -0C31— BECAUSE APL DID 
28 FEREREREREEEEREREREEEREEEH ERE EERE EE RESEREER ES EES EEEEEESEEEEEEEEEEE EER ED OASE FE31 OASF 56 bc XL2*FE31° NOT CAUSE AN ADVANCE WHEN DUAL 
57 * PROGRAM WAS ENABLED. 
58 
0a60 SC 8&7 0A57 59 DPB AVI BRANCH¢1,X*87* SET BRANCH TO ONCONDITIONAL 
60 
OA64 61 TsTO18 EQU * 
62 
OAGS 35 01 0203 63 A L CORS1IZ,1 LOAD CORE SIZE If XR1 
OA68 35 02 0203 64 L CORSIZ,2 & XR2 
OA6C 3D PF 0203 65 cLI CORSIZ,X* Pret -CHECK IP CPU HAS 64K OF CORE. 
QOA70 F2 01 08 “66 JNE B IP NOT, CONTIXNUP NOPMALLY. IP 
OA73 35 01 OF27 67 L ZERO,1 YES, FNTER X°0000' IN XRT 
OA77 35 02 OF27 68 L ZERO,2 & XR2 
OA7B 36 01 OFOK 6S 8B A NEG128,1 -SUSTRACT 128 BY ADDING x* FPSO* 
OA7TP 36 02 OFOS 70 A NEG128,2 SUBTRACT 128 BY ADDING X* FFBOF 
OA82 F2 81 OC 71 JZ TSTCOR -IF ALL COPE TESTED, END TEST. 
OA86 9D 7F 7F 7P 72 CLC = 127 4128, XR2) - 127(, XR1). IP NOT, CHFCK PARITY OF 128 
OASA CO 87 OE59 73 B EXIT BYTES AND CHECK WITH SUPERVISOR 
OABSE CO 87 OA7B 74 3 B BEPORE CHECKING NEXT 128 BYTES. 
OA92 3D 00 0201 75 TSTCOR CLI CORSIZ~2,X%°008 ~CHECK IF CPU IS MCD C 
0A96 CO 81 OBAE 76 BE TEST2 IPF NOT, SKIP TRANSLATE. 
VT] REE EERE EEREREREREEEEESEEEEEEESEEEEEEEEEEEEEEEDS 
78 * CHECK ADDR. TRANSLATE TABLE REGS 
TQ SEEREEEEEEEEESEEEEERKEEEEREEE SE REE EEEEEREEEES EER LESEREEEE 
OASA OC 01 OABY OEFS 80 TSTATT MVC LATT 1#3(2) ,AXFF >JT IN DATA ADDR. 
OAAO 3C 00 OAB3 87 ZQODE VI STATT141,X*00* . fART WITH Q CODE 00 
OAA4 3C 00 OAAF 82 “VI LATT14¢1,xX*00* #8 ee ft teas 
OAAS OC 01 OABB OAB1 83 NVC CATT¢5S (2) ,LATT14+3 PUT DATA ADDR.IN CHECK INSTR.ALSO 
OAAE 3F 00 0000 84 LATT1 LCP ¥+-% t—-% LOAD A COUPLE ATT PEGS. 
OAB2 3E 00 OF75 85 STATT1 scp KROW, #-* STORE ‘FH 
OAB6 OD 01 OF75 0000 86 CATT CLC KROW (2) , #-* DATA STILL THE SANE ? 
OABC F2 81 06 87 JE GUUDE 
OABF CO 87 0222 88 B BALT ATT REG ERROR OR LOAD/STORE CPU INST 
QOAC3 FE20 OAC4 89 DC XL2*FE20°* RUCTION ER® ON © COLES 00 - OF 
OACS OF 00 OAAF OFOE © 90 GUUDE aALc LATT14¢14(1) ,ONE ADD 1 TO OQ CODE 
OACB OF 00 OAB3 OF06 91 ALC = STATT 14.1(1) ,ONE ve es se 
OAD1 3D 10 OAAF 92 CLI LATT1#1,X°10° DORE ALL 16 Q CODES ? 
OADS CO 01 OAAE 93 BNE LATT1 
OADS OF O01 OAB1 OFOA 94 ALC LATT1¢3 (2) ,TWO ADD TO USE 0O*S DATA NEXT 
OADF OD 01 OABB OxcFS 95 CLC CATT¢S (2) , AXPP DOWE THE OS YET ? 
OAES CO 81 CAAO 96 BE ZQODE i 
OAES CO 87 OF59 97 B EXIT 
eee Begecee eon TIMART7 PROG ID FE1-2 DATE  22DEC75 ItPEBI77 V4NART7 PROG ID PEI-2 
0. é 10 571989 PAGE 1 #+j§EC NO. 827836 387010 571989 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


MOD 12 


ACCE 
X°60* CPMR 


PART NO. 6228258 
PAGE 2A 


TRANSLATE 


127 (328, XR) ,127(,XR1) ACCFSS 128 BYTES. 


X°00*,CPHR 
EXIT, X*07* 
ATTLOP 
EXIT 


rr ¢ 


+ 

TSTPLD,O 
TSTFLD,X* FF* 
*e9 

HALT 

XL2* PEG1* 


TSTPLD, X* FF* 
*e9 

HALT 

XL2* FEO2* 


TSTFPLD,X'PF® 
TSTFLD, X*FF® 
#219 

HALT 
XE2*PEO3* 


TSTFLD,X*PF® 
#49 

RALT 

XL2* FEGRE 


TSTFLO.6 
TSTFLD, X? FF* 
TSTFLD,X* FF* 
*4+10 

BALT 

XL2* FEOS®* 


TSTFLD,X*FF* 
TSTFLD,X'*FF*. 
TSTFLD, X*PF* 
*+10 

HALT 

XL2* FEOE* 


TSTFLD,O 
TSTFLD,O 
TSTFLD,0O 

#¢9 

RALT 

XL2* FEOT* 
TSTFLD, X°FF* 
TSTFLD,O 
TSTFLD,X*FF* 
*¢9 

HALT 
XL2*FEO8* 
EXIT 


WORK¢S (3) , UNITS (1} 
WORK4 9 (33 , DEONE (1) 
WORK¢9 (3) , DEONE (1) 
WORK, X*F6* 

WORK (1) , UNITS-7 (1) 
WORK, X'F3* 

+410 


PAPT NO. 4248254 IBM MAINTENANCE DIAGNOSTIC PROGRAK 
PAGE 2 
Fitt2 FE1 - CPY MODULE FOR SYSTEM TEST MOD 12 FE12 FEl - CPU MODULE FOR SYSTEM TEST 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMERT 
98 TERRE R ERE EERE EER ER REE EN EER EREE RARER EE AEE OE EEK ERE REEAE EEE ERE ERE RD 0B91 F2 84 12 166 JZ 
99 * LOAD ATT, MOVE INST. TO UPPER CORE, EXEC INST. ACK TO LOW CORE OR94 P& 30 60 167 CCP 
100 RE EA ERIN RE REA KE ERIE ARH E EE EE ERE EEK E EERE 0897 5D VF 7F 7FP 7168 CLC 
OAED C2 02 OEDS 101 MOVOP LA ATHICO, XR2 LOAD ATT ADDR.TABLE ADDR. POINTER O0B9B Fa 30 00 169 ¢ ccPp 
OAF1 3C 00 OAF6 102 MVI LDMOV*1,X*008 LOAD 1ST Q CODE OB9E CO 07 O£59 170 BC 
OAF5 BF 00 00 103 LDMOV LCP 0(,XR2),*-* LOAD AN ATT 05A2 CO 87 OBS8D 171 B 
OAF8 OF 00 OAF6 OF06 104 ALC IDMOV41(1) ,ONE ADD 1 TO Q CODE OBA6 CO 87 OFS? 172 ACCE B 
CAFE 3D 10 OAF6 105 CLI LDMove1,x*108 DONF 16 PAIR ? 173 
0B02 CO 01 GAFS 106 BNE LDMOV OBAA CO 87 0000 174 ACCEXT B 
0B06 F4 30 4O 107 CCP =X*GOt, CPMR SET EB CYCLE ON FOR PROPER MOVF 175 
0B09 OC 06 OBIE OB9D 108 MVC 8 8=—-W (7), C#2 MOVE INST UP OBAE 176 TEST2 £0U 
OBOF OC 05 OB24 OFA7 109 MVC W+6 (6) , UPHLT#5 TO HI CORE THEN OBAE 3C 00 OF2C W7T BVI 
0B15 F& 30 70 110 CCE X*70",CPNR SET EA,EB,I CYCLE ON TO EXEC. OBB2 38 rF OF2C 178 TBN 
0B18 CO 87 0222 111 B HAL? HALT IF CCP DID yor OBB6 F2 90 O06 479 JF 
OB1C FE87: ORID 112 pc XL2*FE87* GO TO HI CORE OBBS CO 87 0222 180 8 
OBIE 00 - OBIE 113 8 pc XL1*GO# OBBD FEQ1 O53E 781 pc 
1914 182 
115 SERRE ER EER ERE EEA ERE RAE EERE EERE EERE EE EEE RE REA RE EEE RE RRR ER OBBF 39 FF OP2C 183 TBF 
116 * CHECK MEMORY USING ATTts OBC3 F2 10 06 1848 JT 
117 SAREE RERRR EERE EES EER ERERREAER EERE ARERR DEE EERERER EKER EERE REESE OBC6 CS 87 0222 7185 B 
OBIF CO 87 OB55 118 ATTS B ATTLOD LOAD ATT"*S FOR OBCA FEO2 OBCB 186 DC 
0B23 0000 CB24 119 pc XL2*90008 LO CORE 187 
0B25 35 01 0203 120 L CORSIZ,XR1 LOAD CORE SIZE OBCC 3C FF OF2C 188 VE 
OB29 3D FPF 0203 121 Cli CORSIZ, X*FF* CORE SIZE 64K OR MORE ? OBDO 39 PF OF2C 189 TBF 
OB2D F201 O04 122 JNE DO64SA OBDS CO 90 OBDE 196 BF 
0B30 35 01 OF27 123 iL ZERO,XR1 OBDS CO 87 0222 19% B 
0B34 CO 87 OBB9 ee DO64A 2B ACCESS ACCESS STORAGE 00-64K. OBDC PEGS OBDD 192 BC 
1 193 
0B38 CO 87 OBS55 126 B ATTLOD SET ATT'S FOR HI CORE OBDE 38 PF OFZC 198 TBN 
GB3c 1020 OB3D 127 DC XL2*00208 OBE2 F2 10 06 195 oT 
OB3E 35 01 OEFFC 128 L ETHOU,XR1 SET UP FOR 9€K OBES CO 87 9222 496 B 
OB42 3D 02 0201 129 CLI CORSIZ-2,x'02¢ S6K ? OBES FEOS OBEA 197 pc 
OBU6 F2 81 Ou 130 JE DO64UB JUMP IP 128K (OR MORE) 198 
OB49 35 01 OFFE 131 L FTHOU, XR1 SET UP FOR 80K SYSTES. OBEB 3C 00 OF2C 199 AVI 
OB4D CO 87 OBR9 132 DO64B B ACCESS ACCESS 64-S0K OR 64- 96K OBEF 3A FF OF2C 206 SER 
0B51 CO 87 OBAE 133 B TFST2 CONTINUE WITH KEST OF TESTS OBF3 38 PF OF2Cc 201 TEN 
1434 ORF? CO 10 0CO1 202 BT 
135 RE RREE MERE RESTA RE ERE HE EERE EEE EE EEE SEES RE EEE EASES EER EREREREER EERE OBFB CO 87 0222 263 B 
136 * LOAD ATT*S SUBROUTINE (OO0OK - 128K) OBPF FEGS oco0 §=6208 DC 
137 * SAMPLE LINKAGE : 205 
138 * B ATTLOD OcCt 3c FF OF2¢ 206 "VI 
139 * pc XL2*'00008 FOR LO CORE OR ¥L2*0020* FOR HI CORE 0CO5 3B FF OF2C 207 SBF 
140 * O0cO9 39 FF OF2C 268 TBP 
VQ) RRREREER EMER ER ERE ERE HERA EER EEE TERRE AEEEERE EE REAEEREEEE EERE E ERR RKKS 0cOD CO 10 OCc17 269 BT 
0B55 3€ O08 OFOG 142 ATTLOD RA ONE,CARB 0C11 CO &7 0222 210 B 
0B59 34 08 OB70 143 ST HIAD+3,CARR SET THE ADD INSTR. 0C15 FEO6 Cc16 217 BC 
OB5D 36 08 OF06 1448 A ONE, CARP 212 
OB61 34 O8 OBRB 145 st LEXIT¢3,CARR SET THE RETURN ADDR. 0C17 3C 00 CF2c 23 aYvVI 
0B65 C2 02 OFBS 146 LA ATLOCO, XR2 LOAD ATT ADDR.TABLE ADDR. POINTER OC15 3A 00 OF2C 274 SE® 
OB69 3C 00 0B72 147 MVI LODATT+17,xX*008 LOAD 1ST Q CODE OC1F 3D 00 OF2C 215 CLI 
OBED 36 02 0000 148 HIAD A *-*, XR2 ADD PARAMETER FOR UPPER OF LOWER 0C23 F2 81 06 216 JE 
0B71 BF 00 00 149 LODATT LCP O(,XR2),*-* LOAD AN ATT 0C26 Cd 87 0222 217 B 
OB74 OE 00 0B72 OF0EG 150 ALC LODATT#+1(1),ONE ADD 1 TO Q CODE OC2A FEO? GC2E 218 DC 
OBTJA E2 02 02 151 UA 2 (,XR2) ,XR2 ADD 2 TO TABLE POCINTEP OC2C 3C PF OF2C 219 NYT 
OB7D 3D 10 OB72 152 CLI LODATT+1,X*10¢ DONE 16 PAIR ? O6C30 3B 00 OF2C 220 SBF 
OB81 CO 01 OBT71 153 BNE LODATT 0€34& 3D FF OF2C 221 CLI 
0B85 CO 87 0000 154 LEXIT B +—* RETURN OC38 F2 81 06 222 JE 
155 é OC3SEB CO 87 0222 223 B 
156 **eeeekenex CC3F PEOS 0Cc#O 228 bc 
157 * ACCESS * 0C&1 CO 87 OFS9_ 225 B 
158 RENEE ERERE REE EERE EEE SER EEA EERE RRR EEE EEE EER EERE EER EEERAE CREREEEE REE EE ‘ 226 
159 * 5C45 08 20 OF35 OFTa 227 ZAZ 
160 * SAMPLE LINKAGE : OC4&B 06 20 OF35 OETS 228 AZ 
161 * B ACCESS CAUSE STORAGE FROM XX TO XX TO BE ACCESSFD OC51 07 26 OF35 OEFS 22S SZ 
162 * 0C57 3C P6 OF2C 230 aMVI 
163 FERREEREER EEE EEEEE TER EE RE EERE EERE EERE EERE RAEE EEE EERE ERE EEE ERE RE REE EE OCSB 0&8 00 OF2C OFCD 231 ZAZ 
OB89 34 08 OBAD 164 ACCESS ST ACCEXT¢3,CARR SET THE RETURN ADDR. OC61 2D F3 OF2C 232 CLY 
OB8D 36 01 OFOY 165 ATTLOP A NEG128, XR1 DECREMENT XR1 0C65 CO 81 OC6F 233 BE 
DATE 22DEC75 11FEB77 VIMART7 PROG ID _ FE1-2 DATE 22DEC75 TIFES77 TURARIT 
EC NO. 827836 387010 571989 PAGE 2 EC NO. 387016 
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STCP TRANSLATE 


GO TO SUPERVISOP 


RETURN 
SET TEST FIELD TO ZEF2 
TEST ALL BITS FOR ON 
BYPASS HALT IF ALI OFF 
TO HALT IF ANY TEST OX 
EALT ID 


TEST ALL BITS POR OFF 
BYPASS HALT IPF ALL OFF 
TO HALT IF ANY ON 
HALT ID 


SET TEST FIELD TO *FF® 
TEST ALL BITS FOR OFF 
BYPASS HALT IF ALL ON 
TO HALT IF ANY TEST OPP 
HALT ID 


TPST ALL BITS FOR ON 
BYPASS HALT IP ALL ON 
TO HALT IF ANY TEST OFF 
HALT ID 


SET TEST FIELD TO ZERO 
SET ALL BITS ON 

TEST ALL BITS FOR ON 
BYPASS HALT IF ALL ON 
TO HALT IF ANY TEST OFF 
HALT ID 


SET TEST FIELD TO 
SET ALL BITS OFF 
TEST ALL BITS FOR OTP 
BYPASS HALT IF ALL OFF 
TO HALT IF ANY TEST ON 
HALT ID 


ALL BITS 


SET TEST FIELD TO ZERO 
SET NO BITS ON 

TEST FOR NO CHANGE 
"ONP OVER HALT IP OK 
TO HALT iF ANY TEST ON 
HALT ID 

SET OR ALL BITS IN 
SET WO BITS OFF 
TEST FOR KO CHANGE 
JOMP OVER HALT IF OK 

TO HALT IF ANY TEST OFF 
HALT ID 

TC SUPERVISOR 


TEST FIELD 


ZERO THE WORK AREA 
ADD DECIMAL ONE 
SUBTRACT DECINAL ONE 


-SET WORK AREA TO F6 


ZFRO & ADD DEC. 3 
CHECK FOR DEC 3, 


BYPASS HALT IF OK 


PROG ID . PE1-2 
PAGE | 2, 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


PART NO. 8248254 IBM MAINTENANCE DIAGNOSTIC PROGRAS PART NO. u248254 
PAGE 3 PAGE 3A 
FE12 FE - CPU MODULE FOR SYSTEM TEST MOD 12 FE12 FE - CPU MODULE FOR SYSTEM TEST MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 4 ERK LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
0c69 CO 87 0222 234 B HALT TO HALT IF NOT EQUAL TO F3 302 
OC6D FEO9 OC6E 235 pc XYL2*FEOQS HALT ID OD44 O08 01 OF2ZC OF2D 303 NZN WORK, WORK#1 MOVE NUMERIC TO ZONE 
236 OD4SA 3D OF OF2C 304 CLI WORK,X*OF® CHECK MOVE ; 
OC6F 3C DO OF34 237 MYI WORK¢8, X*DO?# OD4YE F2 81 06 305 JE *4+9 JOMNP OVER HALT IF OK 
0c73 OC 07 OF33 OF34 238 MVC = WORK*7 (8) ,WORK*8 0D51 CO 87 0222 306 B HALT TO HALT IF ERROR 
0C79 06 08 OF34 OF13 239 AZ WORK48 (9) , UNITS-1(9) OD55 FEI OD56 307 DC XL2"FEWW* HALT ID 
OC7F CD 08 OF34 OF13 240 CLC WORK#8(9) ,UNITS-1 308 
OC8S F2 81 06 241 JE *49 ODS7 08 03 OF2C OF2D 309 MNN WORK,WORK¢14 HOVE NUMFRIC TO NUMERIC 
0c88 CO 87 0222 242 B HALT ODSD 3D 00 OF2C 310 CLI WORK, X*00# CHECK MOVE 
OC8C FEOA OC8D 243 pc XL2"*FEOA® HALT ID OD67 F2 81 06 311 JE *49 JUMP OVER HALT IF OK 
244 CD64 CO 87 0222 312 B HALT 10 HALT IF ERROR 
OCBE 35 01 OF23 245 L XPF,XR1 SET XR1 TO FF OD68 FEI2 OD69 313 DC XL2"*PE12° HALT ID 
0C92 35 02 OF27 246 L ZERO, KR2 SET XR2 TO 00 314 
0c96 34 01 OF2D 247 ST WORK#1,XR1 STORE BOTH OD6A 08 02 OF2C OF2D 315 MNZ WORK, WORK¢4 MOVE ZONE TO NUMERIC 
OC9A 34 02 OF2F 248 ST WORK43,XR2 IN WORK AREA 0D70 3D OF OF2C 316 CLI WORK, X*OF? CHECK MOVE 
OC9E OD 014 OF 2D OF23 249 CLC WORK4+1(2),XFF CHECK VALUE FROM XR1 OD74 F2 81 06 317 JE *4+9 JUMP OVER HALT IF OK 
OCA4 F2 81 06 250 JE *49 JOMP OVER HALT IF CK OD77 CO 87 0222 318 B HALT TO HALT IF ERROR 
OCA7T CO 87 0222 251 B HALT TO HALT IF NOT OK OD75 FE13 ODd7C 319 DC XL2¢*PE13* MALT ID 
OCAB FEOB OCcRC 252 pc XL2"*FEOB* HALT ID OD7D OC 07 OFOS OF23 320 HVC REGSAV (2) ,XFF SET SAVE AREA 
OCAD OD 01 OF2F OF27 253 CLC WORK*3(2),ZERO CHECK VALUE FROM XR2 0D83 C2 01 OF2C 321 LA WORK,XR1 LOAD ADDRESS OF WOPK IN XR1 
OCB3 F2 81 06 254 JE #49 JUMP OVER HALT IF OK OD87 D2 02 00 322 LA 0¢,XR1) ,XR2 PUT XR1 IN XR2 
OCB6 CO 87 0222 255 B HALT TO HALT IF NOT OK OD8A 34 02 OFOSB 323 ST REGSAV, XR2 SAVE XR2 
OCBA FEOC OCBB 256 DC XL2*FEOC* HALT iD OD8E OD 01 OFO8 OF16 324 CLC PEGSAV(2),WORKO CHECK RESOLT 
257 Or94 F2 81 06 325 JE #29 JOMP OVER HALT IF OK 
OCBC 35 01 OF18 258 L WORKS, XR1 LOAD ADDRESS OF WORK*5 IN XR1 0D97 CO 87 0222 326 B HALT TO HALT IF ERROR 
OcCcO 7¢ FD 00 259 MVII NVI 0(,XR1),X*FD* MOVE IMEADATE WITH INDEXING OD9B FEW OD9C 327 DC XL2°PE14* HALT ID 
260 328 
0CC3 3D FD OF31 261 CLI HORK+5, X* FD! CHECK RESULT ODID OC 01 OFOS OF23 329 NYC REGSAV (2) ,XFF SET SAVE AREA 
OcC7 P2 81 06 262 JE #49 JUMP OVER HALT IF OK ODA3 C2 02 OF2C 330 LA WORK, XR2 LOAD ADDRESS OF WORK IN XK2 
OCCA CO 87 0222 263 B HALT TO HALT IF NOT OK ODAT E2 01 30 331 LA 0 (,XR2),XR1 POT XR2 IN XR1 
OCCE FEOD OCCF 268 pc XL2*PFOD* HALT ID ODAA 34 01 OFOSB 332 ST PEGSAV,XR1 SAVE XR1 
265 ODAE OD 01 OFO8 OF16 333 <LC = REGSAV(2) , WOPKO CHECK RESULT 
OCcDO 35 02 OF18 266 L WORKS, XB2 LOAD ADDRESS OF WORK¢5 IN XR2 ODB4Y F2 81 06 334 JE *49 JUMP OVER HALT IF OK 
OCD4 BC AA 00 267 MVI2 MVI 0(,XPR2),X*AA* MOVE ISEADRTE WITH INDEXING ODB7 CO 87 0222 335 B HALT TO HALT IF ERROR 
268 ODBB FPE15 ODBC 336 pc XL2°FE1S® HALT ID 
OCD7 3D AA OF31 269 CLI WORK*S,X*AA® CHECK RESULT 337 
OCDB F2 3% 06 270 JE #49 JUMP OVER HALT IF OK ODBD F2 88 00 338 JOZ #43 RESET DECIKAL OVERFLOW 
OCDE CO 87 0222 271 B HALT TO HALT IF NOT OK OpCcO 3cC DY OF2C 339 BVI WORK, X'D9?* SET WORK TO MINOS DECIBNAL 9 
OCE2 FEOF OCE3 272 DC XL2"*FEOE!* HALT ID ODcC4 06 00 OF2ZC OFID 3480 AZ WORK (1) ,XD9 (1) ADD MINUS DEC. 9 TO WORK 
273 ODCA F2 88 06 341 JOZ #49 JUMP OVER HALT IF DECIMAL OVER FLOW 
OCE& C2 01 0000 274 LA 0,XR1 LOAD ZERO IW XR1 ODCD CO 87 0222 3u2 B HALT TO HALT IF ERROR 
OCES 348 01 OF2D 275 st WORK*+1,XR1 STORF ODD1 FE16 ODD2 343 pc XL2°*FE6* HALT ID 
OCEC OD 01 OF2D OF27 276 CLC WORK*#1(2), ZERO COMPARE 344 
OCFz F2 81 06 277 JE *40 SUSP OVER HALT IF OK ODD3 3c DY OF2C 345 “VI WORK, X*p9?t SET WORK TO MINUS DECIPAL 9 
OCF5 CO 87 0222 278 B HALT TO HALT IF NOT OK ODD7 06 00 OF2C OFID 346 AZ WORK (1) ,XD9(1) ADD FINUS DEC. 9 TO WORK 
OCF9 FEOF OCFA rd pc XL2*FEOF® HALT ID ee oe 68 aa ane BOZ *+10 BRANCH OVER HALT IF DECIMAL OVERFLOW 
c 34 B HALT TO HALT IF ERROR 
OCFB C2 01 0000 281 LA 0,XxR1 ZERO XR1 ODES FE17 ODE6 349 pc XL2*?E17° HALT ID 
OCFPF D2 01 02 282 LOAD1 LA 2(,XR1) ,XR1 STEP BY 2 350 
0D02 34 01 OFOS 283 ST REGSAV, XR1 SAVE ODE7 CO 08 ODF1 351 BNOZ *410 BRANCH OVER HALT IP NO OVERFLOW 
OD06 OD 01 OFOS OF02 284 CLC REGSAV(2),MINUS2 COMPARE ODEB CO 87 0222 352 B HALT *O HALT IF ERROR 
ODOC CO 01 OCFF 2 BNE  LOAD1 LOOP TILL EQUAL TO OOFE ODEF FE18 ODrO 353 pc XL2*FE18° HALT ID 
354 
0D10 ¢2 02 0000 287 LA 0, XR2 ZERO XR2 ODF1 F2 08 06 355 JNOZ *49 JUMP OVER HALT IF NO OVERFLOW 
ODM E2 02 02 288 LOAD2 LA 2(,XR2) -XR2 STEP BY 2 ODF4 CO 87 0222 356 B HALT TO HALT IF ERROR 
0D17 34 02 OFO8B 289 st REGSAV, XR2 SAVE CDP8 FE19 ODF9 357 pc XL2*PE19# BALT ID 
OD1B OD 01 OFO8 OF02 290 CLC REGSAV(2),MiNUS2 COMPARE 358 
ones o _ bees eo) ig ree LOOP TIL. EQUAL TO OOFE ODFA OC 01 OF2D OFIC 359 SVC WORK#¢1(2) ,X2020 SET WORK TO HEX-2020~ 
OEOO OA 01 OF2D OFIF 360 ED WORK*1(2) ,XE1PO EDIT 
. -293 O£06 OD 01 OF2D OF21 361 CLC WORK4+1(2) ,XF1FO CHECK RESULT 
s 294 OEOC F2 81 06 362 JE *49 JUMP OVER HALT IF OK 
0D29 3C OF OP2Cc 295 MVI WORK,X*OF® SET WORK AREA OEOF CO 87 0222 363 B HALT TO HALT IF ERROR 
OD2D 3c FO OF2D 296 AVI WORK*1,xX* FO? ‘ OE13 FEI OE14 364 pc XL2"*PETAt HALT ID 
0031 08 00 OF2C OF2D 297 MZZ WORK, WORK#1 MOVE ZONE TO ZONE 365 
ee a - pEze 298 CLI WORK,X'FF* CHECK MOVE O£15 3c PO OFUC 366 iVI WORK4#32,C*O! SET A NUMERIC VALUE AT END OF FLD 
299 JE #49 JUMP OVER HALT IF OK O19 OF 1F OFUB OF4B 367 SLC WORK431 (32) , WORK+314 ZERO WORK 
OD3E CC 87 0222 300 B HALT TO HALT IF ERROR OEIF 3C FF OF75 368 BVI WORK#73,X' PF? 
OD42 FEI0 OD43 301 pc XL2*FE10° HALT OE23 OC 7D OFT74 OF7S5 369 AVC 8 =6WORK*+72 (30) ,WORK*73 COMPARE FIELD 
DATE 22DEC75 1VFEB77 VIMART7 PROG ID FE1-2 DATE 22DEC75 11PEB77 T1NART7 PROG I E1- 
EC NO. 827836 387010 571989 PAGE 3 EC NO. 827836 387010 571989 PAGE : me, 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


FE12 FE%t ~ CPU MODULE FOR SYSTEM TEST MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
O£29 OB 1E OF2C OF23 370 ITC WORK (31) ,XFF 
OE2F 34 08 OFUE 371 st WORK#34,ARR 
0OE33 OD 1E OFSA OFT75 372 CLC WORK+t 30 (31) , WORK4+73 
0E39 F2 81 06 373 JE *49 
OE3C CO 87 0222 374 B HALT 
OE4O FEIC QE41 375 pc XL2*FE1IC# 
OE42 OD 91 OFSE OFIA 376 CLC WORK434 (2) ,WORK31 
OE&8 F2 81 06 377 JE x49 
OE4B CO 87 0222 378 B HALT 
OE4P FEE OEF50 379 pe XL2* FEE! 
389 
0£5S1 CO 87 0F59 381 B EXIT 
0E55 CO 87 OAOE 382 B TSTOIA 
0OE59 34 08 OF6B 383 EXIT Sst BRt+3,ARR 
OE5D 3D FE OAO0O 384 CLI X*OAOO',X*FE? 
OE6i CO 01 OAOA 385 BNE ENTRY 
QF65 CO 87 0000 386 BR B *—% 
387 ; 
OF59 34 20 OF29 388 INTOK ST PISAV,X'20° 
OE6D 34 4O OF2B 389 st P2SAV,X*4Ot 
390 
Of71 35 60 OFF7 394 L BADINT, X*60! 
392 
OE7S5S FT OO a0 393 APL 0 
394 
0E78 CO &O OF91 395 NOOOP BC INTERR,X'80¢ 
296 
OE7C CO &7 OFB3 397 UNCND B NEWLD 
OE89 F2 87 GE 398 J INTERR 
399 
OE83 P3 00 06 400 NEWLD SIO 6,0 
401 
O£86 35 20 OF29 402 L PISAV,X'20! 
- OE8A 35 40 OF2B 403 L P2SAV,X'4o! 
808 
OESE F2 87 O04 405 J RESETT 
0£91 35 60 OEF7 406 INTERR L BADINT,X"60! 
407 * 
408 
OE95 F3 00 05 409 RESETT SIO 5,0 
410 
OB9R CO 87 0222 4811 SETARR B HALT 
OESC FES9 OF9D 412 pe XL2"*FES9! 
813 
OE9E CO 87 OEF91 418 B INTERR 
415 * 
OEA2 CO 87 0222 416 UPHLT B HALT 
OEA6 FE88 OEA7 417 pc XL2* FESS" 
418 * 
OEAS OAGFP OEFA9 479 ADRA DC AL2 (DPA) 
OEAA OA60 OEAB 420 ADRB pc AL2 (DPB) 
QEAC 0A53 OEAD 421 ADRC pc AL2 (DPC) 
CEAB 0A36 OEAF 422 ADRX pc AL2 (DPX) 
OCEBO OA2C OEB1 423 ADRY DC AL2 (DPY) 
OEB2 0A30 OEB3 &24 ADRZ DC AL2(DPZ) 
OEBY 0100 OEFBS 425 ATLOCO DC X¥L2"°01008 
OEB6 0302 OEB? 426 DC . XL2*03028 
OFB8 0504 OEB9 427 Dc XE2*05048 
CEBA 0706 OFBB 428 pc XL2°0706°8 
OEBC 0908 OEBD 429 pc X¥L2'09088 
OEBE OBOA OEBF 430 ~ oe XL2"*OBOQA!® 
OECO ODOC OEFC1 431 pc XL2*ODOC?* 
OEC2 OFOE OFC3 432 Dc XL2*OFOF* 
OEC4 1710 OFC5 433 pe XL2¢11108 
OEC6 1312 OEC7T 434 pc XL2°43126 
OEC8 1514 OFCS9 435 pc XL2¢15174° 
OECA 1716 OECB 435 pc XL2°17168 
ORCC 1918 OECD 437 pc XL2*1918¢* 
DATE 22DEC75 V1FEB77 VIMARTT 
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PART NO. &248254 IBM MAINTENANCE DIAGNOSTIC PROGRANS PART NO. 42468254 
PAGE " PAGE OA 
FE12 PEI - CPU NODULE rOR SYSTEN TEST MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
INSERT FF GECE 151A OECF 438 pc XL2*1BIA* 
SAVE ARR OEDO 1DIC OED1 439 pc XL2*1p1ce 
CHECK OED2 1IFIE O2D3 440 ENLOCC DC XL2°UFVE® 
JUMP OVER HALT IF OK . B41 ® >>>>>>>>>>>>>>>> *ATLOCO* THRU *ENHICOt MUST REMAIN TOGETHER 
TO HALT IF ERROR O0ED4 2120 OEDS 442 ATHICO DC XL2*°21208 ATT REGS POR 64-128K 
HALT ID OED6 2322 OED? 443 DC XL2*2322¢ 
CHECK ARR VALUE AFTER THE ITC OEDS 2524 OFDS 444 pc XL2*252u8 
JUMP OVER HALT IF SET CORRECTLY OEDA 2726 OEDB 485 DC XL2*27268 
TO HALT IF NOT OEDC 2928 OEDD 446 DC XL2*29288 
HALT ID OEDE 2B2A OEDF 4&4? pc XL2*2B2za¢ 
OEFO 2D2c OEET 448 pc XL2*2D2c® 
TO SUPERVISOR OEE2 2F2E OFE3 449 Dc XL2*2P2E° 
OEE4 3730 OFES 450 DC XL2¢31308 
SAVE EXIT ADDRESS OEE6 3332 OEE7 451 DC XL2*3332¢ 
OEE8 3538 OEE9 4852 pc XL2*3534¢ 
OEEA 3736 OFEB &53 pc XL2°3726¢# 
OEEC 3938 OFED 458 DC XL2*39388 
OEEE 3B3A OEEF 455 DC XL2*3B3A° 
SAVE Pt-IAR GEFO 3D3Cc OEFt 456 DC XL2*3D3ce 
SAVE P2-IAR OEF2 3P3E OEF3 457 ENRICO DC XL2*3PF3E¢ 
458 
LOAD P1 & PZ IARS TO ADDR OF SETARR OEF4 OF25 OEFS 459 AXFF 0C AL2 (XFP2) 
OEF6 O£F98 O£F? 460 BADINT DC AL2(SETARR) 
TRY TO ADVANCE PROG LEVEL IN INT LEV OEF8 F1 EFS 461 DEORE pc CLIt te 
OEF9 0F91 OEFA 462 ERRINT DC AL2(INTERR) 
NO-OP BRANCH TO TEST IAR/ARP SELECT OEFSB 8000 CEFC 4&63 ETHOU DC XL2*8000° 
OEFD 4000 OEPE 464 FTHOD Dc XL2*40008 
UNCONDITIONAL BRANCH TO TEST OEFF GE69 OPFOO &65 INTRPT DC AL2 (INTOK) 
IAR/-RR SELECT OFO1 OOFZ OFO2 466 MINUS2 Dc XL2*OOFE®* C 
OFO3 PFS8O OFOG 467 NEGI28 DC XL2*FFS8O? 
ENABLE INTERRUPTS & DUAL ROG MODE OPO5S 0001 OFO6 468 ONE pc ¥L2¢1° 
OFO7 0000 OFO08 469 REGSAY DC XL2*O8 
RESTORE P1-IAR OFO9 9002 OFOA 470 TRO pc XL2*25 
RESTORE P2-IAR OFOB F1F2P3F4FSF6F7F8 OF14 4&71 UNITS DC CL10* 12305678908 
OF13 FOPO “74 
GO RESET THE INTERRUPT. OF15 OF2C OF16 &72 WORKO DC AL2 (WORR) 
LOAD P1~IAR & P2-IAR WITH THE OF17 OF31 OF18 &73 WORKS pC AL2 (WORK¢5). 
ANDRESS OF SETARR INSTRUCTION. OF19 OF&B OFIA &74 WORK31 DC AL2 (WORK? 31) 
OF1B 2020 OFIC 475 X2020 pC X¥L2*20208 
RESET & DISABLE INTERRUPTS ‘OFID D9 OPF1D 476 XD9 DC XLI°p9e 
OFIE ET®O OPFIF &77 XEIFO pC XL2*E1FO* 
GO TO HALT -FE89- IF INT LFV 0 ERR OF20 FIFO OF21 4&78 XFYFO DC XLZ*FUPO! 
OF22 FPFF OF23 479 XFF pc XL2¢°FFFF? 
OF24 3F73P OF25 &80 XFFZ pe XL2°3F3PF* - 3F"°S AND 
RESETT FAILED, TRY AGAIN OF26 0006 OF27 4%81 ZERO DC XL2¢0°¢ O*S TOGETHER 
882 * 
OF28 OF29 483 PISAVY DS CL2 
OF2A OF2B 484 P2SAV DS CL2 
OF2C 465 WORK FQU * 
OF2c OF75 486 KROWG DS CL74& 
&B7 * 
0008 4&88 ARR EQU 08. 
0000 4&89 ATTOT EOU x*oo8 
0008 &90 CARR EQU) = 08 
0203 491 CORSIZ EQU x*203* 
ATT REGS FOR 00-64K 0030 492 CPMR Fou) x*30¢* 
0204 4893 CPU EQU X*264u8 
OAOA 494% ENTRY EOQU X*AOA® 
0222 495 HALT EGU x*222¢6 
0080 &96 IARO Bou 3 x¢soe 
0G20 497 PIXAR EQU x*20# PROGRAM LEVEL 1 IAR 
0040 498 P2TAR EQU x#480t PROGRAM LEVEL 2 IAR 
0212 499 TEST EQU x*212¢ 
OF2C 500 TSTFLE EQU WORK 
0001 501 xR? EQDU. Ot 
-@002 5062 xR2 EQU) = 02 
OAODE 503 : END TSTOTA 
PROG ID FE1-2 DATE 22DEC75 —«s-« (11F EB77 TIMART7 PROG ID PEI2 
PAGE & EC NO. 827836 387010 571989 ; PAGE GA 
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IBM MAINTENANCE DIAGNOSTIC PROGRAK —- ae 2 PART NO. 4248254 IBM MAINTENANCE DIAGNOSTIC PROGRAM as _ PART WO. u206254 
~ ; ~ - PAGE 5 ; PAGE SA 
FEi2 FEI - CPU MODULE FOR SYSTEM TEST ‘BOD 12 . FEI2 FEI - CPU MODULE FOR SYSTEM TEST BOD 12 
CROSS-REFERENCE CROSS--REPF RENCE 

SYMBOL T LEN VALUE DEFN REFERENCES SYNEOL T LEN VALUE DEFN REFERENCES 

te NEG?28 A 002 OFO4 0467 0069 0070 0165 

ice 4 O08 cae aie 0166 NEWLD A 003 OEF83 0800 0397 

ACCESS A 004 OB89 0164 0124 0132 NOOOP A 004 OF78 0395 

ACCEXT A 004 OBAA 0178 0164* ONE Rk 002 OFO6 0468 0096 0091 0104 0142 O64 0150 

ADRA A002 OEFAQX 0419 0048 PYIAR C001 0020 0497 0036* 0048* CO“gs 

ADRB A 002 OEAB 0420 0049 0051 PiSAV A 602 OF29 0483 0388* 0402 

ADRC A 002 OERD 0421 0050 P2TAR C 001 0040 0498 0037* C038* 0050* 0051# 

ADRX A 002 OFAF 04822 0038 P2SAV A092 OF2B O4N84 0389% 0403 

ADRY A 002 OEFBY 0423 0036 REGSAV A 002 OFO8B 0469 0283* 0284 C289* 0290 G6320* 0323* 0324 0329* 0332 0333 

ADRZ A 002 OFB3 0824 0037 RESETT A 003 OF95 0409 0405 

ARR C 601 0008 0488 0371 0383 SETARR A 004 OF98B 0411 0460 

ATHICO A 002 OEDS oO4uu2 0101 STATT1 A 004 OAB2 0085 0081* 0091% 

ATLOCO A 002 OEFBS 0425 0146 TEST C 001 0212 0499 0030 

ATTLOD A 008 OB55 01482 0118 #0126 «| TEST2 A 001 OBAE 0176 0076 6133 

ATTLOP A O04 OBE 0165 0171 TSTATT A 006 OASA 0080 

ATTS A004 O8.F 0118 TSTCOR A 004 OAG2 0075 0071 

ATTO? C001 0000 0429 TSTFLD A 091 OF2C 0500 O177* 0178 0183 0188* 0189 0194 0199* 0200* 0201 0206* 0207* 0208 
AXFF A002 OEFS5 045} 0080 0095 02713* 0214* C215 0219* 0220* 0221 

B A 004 OA7B 0069 0066 0074 TSTO1 A 007 OAOA 5024 0018 

BADINT A 002 O£F? 0460 0391 0406 TSIOIA KA 004 OAOE 0030 9382 0503 

BR A 008 OFG6S 0386 0383* TSTOTB A 001 OA68 0061 0032 

BRANCH A 00& OAS6 0053 0034* 0059* Tao A 002 OFOA 0470 0094 

c A 003 OBSB 0169 0108 UNCND A 004 OETC 03°7 

CARR Cc 007 0008 90490 07142 0143 O148* 0145 0164 UNITS A010 OFI4 0471 0227 0234 0239 0240 

CATT A 006 OAB6 0086 0083* 0095 UPHLT A 004 OEA2 0416 0109 

CORSIZ C 001 0203 0494 0063 0064 0065 0075 0120 0121 0129 a A 001 OBIE 0113 0108* 0109% 

CPMR C 007 6030 o492 0107 0110 0167 0169 WORK A 00% OF2C 0485 0227* 0228* 0229* 0230* 0231* 0232 0237*% 0238 0238* 0239* 0240 O2N78 
CPU C 001 0204 0493 0031 0248* 0249 0253 0261 0269 0275* 0276 0295* 0246" 0297 0297* 0298 
DEONE A 001 OEF8 0461 0228 022 0303 0303* 0304 0309 0309* 0370 0315 0315* 0316 0321 0330 0339 
DO64A A 004 OB34 0126 0122 0340* 0345* 0346* 0359* 0360* 0361 0366* 0367 0367* 6368* 0369 03692 
DO64B A 004 OBSD 0132 0130 9370* 0371* 0372 0372 0376 0472 0473 0478 0500 

DPA A 008 OA4F 0651 04819 WORKO A002 OF16 0472 0324 0333 

DPB .A 00% OA60 0059 0420 WORK31 A 002 OF1A 0474 0376 

DPC A 003 0A53 0052 0053 0421 WORKS A 002 OF18 0873 0258 0266 

DPX A 004 O0A36 0042 0422 . XD9 A 0C1 OFID 0476 0340 03466 

DPY kh 004 OA2C 0038 0423 XEIFG A 002 OFIF 0877 0360 

DPZ A 003 OA30 0039 0424 XFF A 002 OF23 0479 0245 0249 0320 0329 0370 

DP2 A 003 OA3C 0046 0040 XFFZ A 002 OF25 0480 04659 

ENHICO A 002 OEF3 06457 XP1FO A 002 OF21 0478 0361 

ENLOCO A 002 OED3 0440 XR1 C 001 0001 0501 0072 0120* 0123* 0128 0131* 0165* 0168 0168 0245* 0247 0258* 0259 
ENTRY C001 OAOA 0498 0385 O274* 0275 O281* C282 0282* 0283 0321* 0322 0331* 0332 

ERRINT A 002 OEFA 0862 0033 XR2 Cc 001 0002 6502 0072 0107* 0103 0146 0148* 0149 0151 0151" 0246" 0248 0266" 0267 
ETHOU A 002 OEFC 0463 0128 0287* 0288 0288* 0289 0322* 0323 0330* 0331 

EXIT A 004 OFS9 0383 0073 0097 0170 0172 0225 0292 0381 X2020 A 002 OFTC 0475 0359 

FE A 001 0000 0005 ZEEO A 002 OF27 0481 0067 0068 0123 0246 0253 0276 

FTHOU A 002 OEFE 04648 0131 ZQODE A 004 OAAO 0081 0096 

GUUDE A 006 OAC5 0090 0087 

HALT € 001 0222 0495 _ 0042 0055 0068 0111 0180 C185 6191 0196 0203 0210 0217 0223 . TOTAL STATEMENTS PLAGGED IN THIS ASSEMBLY = 0 

0234 0242 0251 0255 0263 0271 0278 0300 0306 0312 0318 0326 
0335 0342 0388 0352 0356 0363 0374 0378 0811 0816 

HIAD A 004 OB6D 0148 0143 

TARQ C001 0080 04896 0033* 0047* 

INTERR A 004 OEFE91 0406 0395 0398 0814 0462 
INTOK A 004 OEF69 0388 0865 

INTRPT A 002 OFOO 04865 0047 

KROW A 9074 OF75 0486 0085 0086 

LATT1 A 00% OAAE 0084 0080* 0082* 0083 0090* 0092 0993 o094* 

LDMOV A 003 OAFS 0103 0102* 0104* 0105 0106 

LEXIT A O0O&% OR8S 0158 °014a5% 

LOADt A 003 OCFF 0282 0285 

LOAD2 A003 OD14 0288 0291 

LODATT A 003 OB71 0149 0187* 0150* 0152 0153 

MINUS2 A 002 OFO2 04866 028% 0290 

MOVUP A O04 OAED 0101 

MVI1 A 003 OCCO 0259 

MVI2 A 003 OcD& 0267 
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IBM MAINTENANCE DIAGNOSTIC ERCGHAS 
PAGE 1 PAGE oe 1A 
FFF&§ DIAGNOSTIC CONTROL PROGRAB ~ MODEL 12 FFFS DIAGNOSTIC CONTEOL PROGRAB - AGDEL 12 
ERR LOC OBJECT CODE ACER STSI SCURCE STATESERT ERR LOC OBJECT CODE ADIR STMT SCURCE STATEMENT 
2 LAST CHG 074227:77 JQ SHSSERESSRERETERECESESAHEEEEESHREREKRRESEETEEESAERESSEEESEERRSERESESESSS OR EDS 
3 DECK & ; ; 39 * BCCTSTRAP ~ SECOND CARD * 
& SFC 6 ; : UD HESEKESEEE EES EETEEEEREEEERESRAEERERE SESE AREEERERSEEEERERESEASEEESEERDEESE 
5 COs THIS PREVENTS GENERATION CF OCEBJECT LCECK 44 * ; * 
0000 6 FAF START x*Q° 42 ® THIS ONE CARD FROGRAM IS CONTAINED IN THE SECCNE CARD OF THE * 
7 FORREEEEEESEERETEESREREERT SESE ERE SEOEREEAE TREE HS EERSTE ED ETEE ESS SESEEEEEE 43 * DIAGNOSTIC CONTROL PROGRAS. IT IS BEAD INTC LOCATIONS 512-565 * 
8 # BOOTSTRAP —- FIPST CARD * &4 * EY THE IPL CARD. THIS RCUTINE READS THREE IPL FCRMAT CARUS INTO * 
Q FEEREESEESESESESEEE SESE SEESERESESERESEEKESSEERES EEE SHES EEEERESEESESEESESE 85 * LOW CORE TC EUOIIL ENCUGH OF THE DIAGNOSTIC ICADER TO HARELE TEXT * 
10 FREESE SHERERE SERS CRESS OKER FRA ASAH SSS TRASHRAR EK SESH IAS RE RSE SEATS RESER SRE KE 46 * CARDE. THEN THE BOOTSTRAP RCUTINE BRANCHES TO THIS FORTION OF * 
11 * LOADER FOR BFC . * 47 * THE DIAGNCSTIC LOADER, BWHICH LCALDS THE REMAINDER OF THE LOADER * 
12 * THIS ONE CARE FRECGRAM IS CCNTAINED IN THF FIRST CARD OF THE * §@ * AND ICE. * 
13 * DIAGNGSTIC CONTROL FROGRAB. IT IS READ INTC LOCATIONS 0-95 BY * go * : * 
14 * INITIAL PROGRAM LGAD. SHEN GIVEN CCNTFCL, TRE ECOTSTRAE ROUTINE Ps ; SO SRSSELEKSESAKSSEARAFKKASTERSSASREKEAKARVRSEKKKSE SSEKKERESSKKKSSESEKKFRESSRHKKHKERKKS 
15 * READS THE SECCNE CAREC OF THE PCE OBJECT LECK INTO X*200* AD + 0200 51 ORG 512 
16 * BRANCHES TC IT. » 0200 §2 OSING BOOT2,XR1 
17 * 0200 §3 USING ECCT2Z,XR2 
18 * NOTE - THE SECCKD TIER OF THIS CARD CCNTAINS THE PART NUMBER AND * 0200 C2 02 0200 S4 BOOT2 LA BOOT2, iR2 LOAD BASE REGISTERS 
19 * FC LEVEL CF BCP. * 02048 D2 01 E0 55 ET2 LA 96(,XEF1} ,XF1 
20 FHEKEEEEERDEEEESEETREEESEREEERE EES SRAGSSERSRAEBE SS EEE RATS EERSTE RE EESEE DS 0207 F2 87 03 56 J BCCT2A 
0000 21 USING ECCT7,z%81 O<cOA FO 38 5D 57 BOOTZE #8PL HS,HY *MPFCO NOT REALCY CR ERROR 
0000 C2 G1 0000 22 BOOT? LA 0,XR1 LCAC BASE REGISTER GO20D £1 FO OA 58 ECCT2A TIC ECCT2ZE(,XR2) .X* FO! GO HALT IF BHFCO NOT READY OR ERROR 
0008 D1 FO 17 23 TIO ROOCTIE(,XR1) ,X* FO! GC HALT IF MFCU ERROR OR NCT READY 0210 BI FS 3B 59 TIC = BCOT23(,XR2) eX" FS! LOAD READ LSR FOR ADER 0000 
0007 71 FS 1E£ 24 LIO BOOT11¢(,XB1) , XFS? LCAL READ ACDRESS REGISTER Gzi3 F3 F1 46 60 s1I0 IPL,READ REAL A CARD 
OOOA F3 F1 40 2s Sic IFL,FEAD FEAD A CARD INTC LOCATIONS 512-607 Oz16 £1 FT 16 61 PCOT2E TIO BCCT2E(,XR2),X'F1* LOOP UNTIL DONE 
COOD D1 F1 OF 26 EOOTTA TIO BOOT1A(,XR1) -X*F1* LCOE UNTIL CONE , C219 £1 FO OA 62 TIO ECCT2ZE(,XR2),X* FO! GC HALT IF ERROR 
0010 D1 FO 17 27 TIC ECCTIE(,XR1) ,x* FO! GC HALT IF ERROF QO271C GC 3B 3B 003E 63 HVC) = 59. {60, 381) , 59 HOVE DATA TC COKE 
G013 CO 87 0200 28 B PCCT2 GC TC BOCTSTRAP ROUTIRE O221T D2 01 3c 64 IA 60(,XF1) ,XF1 INCRENENT PCINTER FOR NEXT CARD 
2s . 0224 AF 00 39 05 65 SLC BCCT22 (1, 2R2) ~BOCT21(,XR2) CCRHTINOE UNTIL & CARDS HANDLED 
0017 FC 3B 5D 30 BCCTIE HPL #85,HH *BSCU NCT READY CR ERPOR 0228 FO 01 OF €6 FRZ BOCT2A{,X2) 
001A DO 87 00 31 E BOOT1(, XR1) GC THY AGAIN U22B 3C 40 O8FF 67 “vr X°SFF*,cs ¢ CLEAR PRINT FIELD 
32 OZ2F OC FE O8FE O8FF 68 BVC X*SFE* (255) ,X*SFF* 
0O0%D 0200 OO 1E 32 BOOTTI DC AL2 (512) 6235 CO 87 OOBE 69 z NEXTR GO TO DIAGNCSTIC LOADER 
34 70 
OOF SOD7DSHOF4F2ZFRFB 0038 35 Bc CL29* BH 4248230 EC XXXIXX <¢ 0205 71 BCOT21 EOU BI2¢1 
0027 F2F3FO04040C5C340 35 6239 03 0239 72 EBCCT22 DC I17*38 
OO2F EVETEVETETVE7T404O 35 Q23A 0000 0238 73 BOOT23 DC AL2 (0) 
0037 S0404O040D3 35 
36 # ACTUAL VALUES ARE If ACTUAL CAST. 
DATE 29A0G75 O7HOV75 19H AR76 0330876 VIFEB77 PROG ID FFP-gDATE 29AUG75 O7ROV75 T9MAR7E O3JU N76 VIFEE7? PROG ID. FFF-4 
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IBS SAILYTENANCE CIAGNOSTIC PROGHAB PART NO. 4248230 IBM BAINTENANCE CIAGROSTIC FROGRAS PART NO. 68288230 
PAGE 2 PAGE 2A 
FFF4 DIAGNOSTIC CCNTROL FROGRAE - MCEEL 12 FFF4 DIAGNOSTIC CONTROL FECGRAB - ACBEL 12 
ERR LOC OBJECT COLE ACER STHI SOURCE SYBTEMENT ERR LCC OBJECT COLE ADOR STMT SOURCE STATEBERT 
0060 75 cR 8 x*60# . OOCE BD 04 67 143 CLI S$%#1(,XR2),8 CORTINUE ONTIL & BYTES COMPRESSED 
JE FOSS SSSR ERS SECSETELERESERERESSERERECEED ESS EEREEEEESDEREEDOEEEEEE DEE SX 00D? £0 01 62 Ths BNE CBLOOF ¢,XE2} 
77 2 DIAGNOSTIC LCADER * 0OD4 SC 02 00 00 1485 LABEL #V¥C *-#(3,x¥R1},0(,XR1} BOVE 3 CCHPRESSED BYTES TO TEMPORARY 
FE FESESSSHORTEEES SESE ES EKSERSAEE ESET HERET SE EERSRSERSEHSLEREEREEREE BEERS EE ES GOrS AF O00 7A 66 146 AIC LEBELO2 (4,XR2} gS14#2Z(,XR2)} 
TS FSCHEFSSERIES FOSESSSSESESLEEAER ORES SAREE RERRESHS ESE EREDEREESSEREREREE EE EEE QODC B6 O01 2E 147 Ah NEGS(,XE2} ,XR1 DECREMENT BY & 
8c * * QOLF BL 17 7a 148 CLI LABEL¢2(,X%R2) ,23 
&1 * A ONE CARD BCOTSTRAP READS THIS LOADER INTC CORE AND BRANCHES TC * OGE2 EO 82 SF 149 EL LENGTH (,XR2) CONTINUE UNTIL CARD DONE 
82 * IT. EE DIAGNOSTIC LOADER THEN LOCALS THE CONTRCL PROGRAM, % 150 * XBY = XY*S7F* AT THIS POIRT 
83 * INCIUDING ITS SECTICN REFERENCE TABLE. A&FTER ECP IS LOADED, THIS * OOES 7D C5 91 151 CLE 1(,2R1),C'E® If THIS IS EWD CARD, GO OF 
64 * MODULE THEN TRANSFORKES ITSELF INTO A SECTICR LCADER BY ALTERING 2 * OOE@ FZ 81 21 152 JE CKREE 
€5 * BRANCE ADDRESS. OBJECT CARDS RECCGNIZED BY BOTH PHASES INCLUDE * 153 
EE 2 * OGEB 9C 02 A3 tA 154 HVC 8 =6BCVERO3(3,XR2),26(,XR1} SET UP TO MOVE TEXT DATA TO CORE 
ay + TEXT * OOEF 9C 00 AY 18 155 LPIONE BYC MCVESU(1,XR2) ,28(,XR1) 
ee 2 REELACE _ * OOF3 D2 01 1B +56 LA 27(-XK1) -XR1 
89 « CCBHERT * OOFS BD 2U A2 457 CLI SCVE¢2(,3RZ},-X*20" SFE IF ICC BIG FOR 8K 
sO * SEBSE SWITCH * 15E 
$i * ESE * 159 * A&DERESS OF NEXT INSTRUCTION MUST NCT CHANGE. IF IT DOES, THE 
92 * * 160 # REFERENCE TO IT WILL WOT WORK WITH THE 21492 CR OTHER CARE 
93 © THE DCF LCADER PORTION ALSO RECCGNIZES THE FOLLCWING CARDS-- * bp . LOADERS. 
Su * CE * 62 
95 @ ort * COF9 F2 07 05 163 TOME uC TOHUCH, X*07* ‘SNL TCMUCH® PATCHED IW IF 8K DEFINED 
S6 2 CERIN IMAGE CORTEOL ANE ISAGE CARES * OOFC tC 00 9006 00 T68 MCVE BYC nt (S— 8) , S-F ( XERT IESTRUCTIOBN TO HOWE TEXT DATA 
S7 * * 0101 465 TCAUCH EQU 
98 * CTHER CARDS ARE IGNORED. * 010% CO 87 0108 166 B x°10e8" , SEVER BYTES 
QY SCSSSSESKSEOSES SEES ESE EEKSETESSSSERSTHESRESSREKKERESSKL ELSE TRAARRERARERERAEK 0710S 900000 0157 1467 bc XL3*O* OF FILLES. 
100 Ee 
101 # 168 
102.** SUBROWTINE ITC REAL CNE CARE. 169 * IP FIRST 5 CARDS OF DCP ARE USED AS AR LOALTER, ADDR IB ERD 
103 * 170 * C&RD BILL BE ERANCRHED TC FROM HERE. 
005c 108 USING CDREAD-4,2R2 ; 171 * LCADEF RECULRESENTS-~ FROM X°60° TO X°40F* AKL 
0060 C2 02 005c 105 CDREAD LA CDFEAI-4, xR2 LCAD LASE ADDR:SS 172 % X°88C* - BDF AS BUFFER. 
0064 C2 01 O88se 10€ LA INPOI,ZR1 SET 173 9 SPACE 
0067 107 AINFOT FOYT ¥*-1 ; 174 S HE NEXT INSTRUCTION BELOW BUST STAY AT xX*108! 
G068 BY O08 24 108 st CDEXIT¢#3 (, XR2) ARR SFT UP RETURR ADDRESS : 175 # IN ORDER ZO EEMAIN COMPATIBLE WITH 14482 LOALER FTC. 
0068 E? FO 25 105 Tre ERB (,XR2),X'FO# GC HALT I* MFCU NOT READY OR ERROR 176 
O06E B1 FS OB 110 DOLIO LiC AINPOT(,XR2),X*F5* LCAD LSP TO START LOADING AT x*880t , 0108 CO 87 OO8B 7 E REXTR 
0071 F3 Fi OO 171 SIC NCEKH,READ READ BR CARD -— NCRMEL MODE Ctec 35 01 0882 178 L IREOT#+2,Z2R1 (HOTE -- ADDRESS OF THIS INSTROCTIOR 
0074 E1 Ft 18 112 BUSY TxC BUSY (, ZR2) ,X*F1* LCOE URTIL REALE LONE Ot40 £O 87 O90 479 B Gi, XE1} IS THE SANE AS TEAT OF CKREP} 
0077 BO F3 03 113 SES STATUS (,ER2),X°F3* GO HALT IF FEED CR READ CHECK ; 180 
OO7A BO 86 03 116 TEE STATUS (,XR2),X*86° 167 * TERE ABOVE 2 INSTRUCTIONS ARE OVERLAYED DURING NORMAL DCP LOADIRG. 
007D co 10 6000 41S CDEXIT 8 to & FXIT SUPROUTINE IF NO FRRORS 182 & FIRST THE CLEAR CCRE ROUTINE OVERLAYS THEM. THER THE REST OF TBE 
0081 FO 3E 5D 116 ERR HPE #5,HB #§FCU NOT READY CR ERROR , 1863 * LOEDER CVYEFLAYS THAT ROUTINE. 
0068 EO 87 12 117 e DCLIC (,XF2} GO TRY STARZ I/c 184 * IF THESE FIRSY 5 CARDS ARE USED AS A GENERAL LCALER, THESE LAST TWO 
11E 185 % INSTROCTIONS CAUSE A BRANCH TO THE EXD CAED ADDRESS, WHEN END CARD 
0087 0097 0068 119 #1 pc XL2*00014* 186 * IS HEAL 
0089 FFFC COC8A 420 NFG& pC XL2* FFFC# Ae 
4121 
122 : 189 ** ALI ABCVE INSTRUCTIONS ARE CONTAINED IN IPL FORHAT BOOTSTRAP 
COSB CO 87 0060 123 BEXTR BE CDREALD GO READ AB CARD : 186 ** CARDS AT THE BEGINNING OF THE DCP OBJECT DECK. THE CODE IS CAPABLE 
OO8F 75 £3 OO 124 RED CLY 0 (,XR1) ,C°T? BRANCH IF THIS IS TEXT CARD 19% *¢ OF BARDLIKG TEXT AKD END CARDS AHD IS USED TO GET THE REBSAINDER OF 
0092 F2 81 96 425 JE LOOE 192 ** THE DCE LCADER IuTC CCRE. 
0095 7D C5 00 126 CLI «0, XR1},C°E! PRANCH IF RCT EBL CARD 193 
0098 FZ 01 71 42? JBE CKREFP a : : 
€ € e 8 g & 
OGeE o a ss ise an ro ae - ” BEE EACE BER EES oe RESES SETS as ; 19% SESSSESSSSKSSELSESHSSE SESH SVERKCKISSHEVUSSERK ATE STESES SSS SSESSVVKSEASKSESESESSKCES 
OOA1 7C 2A Gf 130 MVZ  1¢€,XR1),X°2a° , 4196 BCCH BEGIN GENERATING TEXT CARDS 
GOAS D2 04 01 131 LA 1(-XR1} £1 } 0108 497 ORE %=-44 
0OA7 B4 01 01 132. st LDWORK (,XR2) ,XB1 : 196 
OOABR BD DS C1 133 CIE LDWORK(,XR2),X' D6? i 19¢ © THE FOLLO#IRG IS A ROUTINE TO CLEAEB CORE FROM 8K DOWN TO ITSELF. 
OOAD EO 82 3F 134 BL LOOP (, X22} : 200 * If IS CONTAINED IK THE FIRST TEXT CARD OF DCP, ABD IS EXECUTED 
0OBO C2 01 O&8D7 435 za IREUT+87 XR 3 an * AS SOCH AS IT IS BOVED TC CORE. 
OOBS C2 02 005¢ 136 LA CUREAD-4&, XR2 IBITIALIZE EOINT 
OOBS BC 014 PR 137 RYE LABEL¢2 (o¥R2) , 4 = aan 87168 3C 40 4FFF : 203 CLECOR &SVI F°OPRFFe,ce® ¢ CLEAB GPPER 25€ EYTES OF 
008B BC 60 67 138 LENGTH HVE $141(¢,XR2),0 INITIALIZE LFBGTH OF ADD FIELD O70C OC FE iFFE FFF 208 HVC | =—- EC TEFE*® (255) gX* UFFEF* PIRST 8K WITH BLARKS 
OOBE AC 00 6B 67 139 CBELCOP MVC = S$241(1,XR2} ,S1¢4(,XR2) O1%t2 OC FF EFF 1PFF 205 ZRO AVC X*VWEPP* (256),X°4FFF* CLEAR NEXT 256 EYTE SEGHENT . 
00C2 SE 00 0% OF 160 $1 ALC 0-1 (#-*, R14) ,1(,XR1} SHIFT CFF HIGH ORDER 2 BITS 0118 OF 04 O15 0737 206 SLC = ZRO*3 (2) , HUM2Z56 POIRT TC WEXT 256 BYTE SEGHEET DOW 
00C6 5E 00 01 01 14% SZ ALC) = - 1 €*-*, R97} ,7(,XB1) O11E 3D 014 01448 207 CLI ZkC#2, 2°91" CONTINUE UNTIL READY FOR 100-1FF 
00CA AR OC 67 2c 182 ALC = - S141 (1,2¥R2),N1(,XR2} PREFARE TO OPERATE ON NEXT BYTE 122 CO 64 O112 206 BE ZRO 
$ 
DATE 29A0G75 O7HOV?5 ISBARTG O3FUNTE VUFEBI7 PROG ID FFF-4 DATE 29480675 O7EOV75 ISEARTO O3ITETE ViPEB?7 PROG ID . FFF-& 
EC WO. 827804 827805 827872 571€71 287010 EFAGE 2 ,=C HO. 827808 827802 827872 571971 387070 PAGE 2a 
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IBM MAINTENANCE DIAGNOSTIC PROGBRAS 


FFF4 DIAGNOSTIC CONTEOL PROGBAS ~ BODEL 12 p FEES 
ERR LOC OBJECT CODE ADDR STHI SCURCE STATEMEST ERR LOC 
0126 OC CD OFF 1PFF 209 BVC xX°2EF* (X200-FNDCLR),X*1FFF* CLEAR REST OF THIS SEGHERT } 018C 
0712C CO 87 OO8E 2170 B HEXTR RE-ENTER LCADEE 018F 
0130 0100 (0131 211 8UB256 DC] =: XL2*07008 , 0192 
0132 212 EWDCLR ECD O* 0196 
0200 213 ORG xX*200° O19A 
0200 7214x200 EQU * } ee 
au: O1Ks 
215 } OVA7 
0108 216 ORG CLELRCOEF 
0108 CO 87 OO8B 217 E BEXTR CORTINUE LOADING, GFT NEXT RECORD O1AB 
010C C2 0% 0880 218 CKREP LA IBPUT, XR RELCAD XR1 TO PUFFER BEGINNING j O IAF 
0110 7D DS 00 219 CLI 0 (,XR1) -C*R* PRABCH IF NOT REPLACE CARD 0183 
G113 CO 01 OAOF 220 CKCCM1 BNE CKCCHA 0157 
221 ** WOTE - BRANCH ADDRESS OF PREVICUS BRANCH IS ALTERED AFTER CCP } OTBA 
222 ** LCADING CCMELETE. “HIS CVERLAY PREPARES THE LCADER FOR O1BE 
223 *# HANDLING SECTICHS. OBE 
0117 CO 87 0226 224 B PACK GO FACK ADDRESS ,  otcl 
0115 04 011B 225 pc IL1I*ge ; 04¢3 
o11c 0885 O011D 226 DC AL2 (AREUT+¢S) o1cs 
OTE 013A 011F 227 pc AL2 (DES1) »  O1CB 
0120 7D C5 01 228 cli 1¢,X81) -C°E* BRANCH IF NOT PATCR EXECUTE CARL 07D0 
0123 F2 02% 06 2293 JHE AJDEST 01£3 
0126 BS5 01 DE 230 ¥ DEST (, XE2) ,XR1 BRANCE TO CARD ADDRESS IF IT IS } 01D8 
6129 DO 87 00 221 B 0¢,XR1) O1LB 
012C D2 01 08 232 AJDEST IA 8 (, X81) -XR1 POIRT AT FIRST EYTE O1DF 
012F BY OT DC 233 BEXT ST SRCE(,ZR2) ,XB1 SET UE SOURCE ALDRESS ,  OtE2 
0132 CO 87 0226 234 B PACK GO PACK THIS BYTE O1E6 
0136 02 ; 0136 235 5c mz11*2# O1EA 
0137 0000 0138 236 SECE o2C AL2 (*-*) } OEE 
0139 0000 0138 237 CEST nC AL2 (*-*) O1F1 
013B AE 01 DE 2c 238 ALC DEST (2, XR2) 28 1(,XR2) IRCKESENT DFSTINATTON ADDRESS OFS 
013F 7D 4O 01 239 CKELK CLI 1(,%R1),c* * GO READ NEXT CARD IF BLANK FOUND ) FFF9 
0142 EO 81 2F 240 BE WEITER (,XR2) OFC 
0145 D2 01 01 241 La 1(,%F1) XF1 INCKEMENT TC WEXT COLUM OFC 
0148 7D 6B 00 242 CLI 0O(,XR1),C*%,* JUNE OVER ANY CCSSAS ) OFE 
014B EO 81 E3 243 BE CKELK (, X82) 
OWE D2 01 01 24a La 1(,XR1) XR1 ECINI AT 2ND DIGIT 
9151 EO 87 D3 245 B WEXT (, XR2) GO FACK THIS EYTE ) 
246 
246 
246 } 
246 
246 
246 ) 
247 ** THE FCLLCBHING CODING COMPLETES THE SECTICN LCALER. IT IS 
248 ** BYPASSED DURIBG DCP LOADING. ONCE THE CONTROL FROGRAM IS LOADED, 
249 ** LINKAGES ARE SET UP SO THAT THIS RCUTINE WILL EEF SUBSTI- } 
250 ** TOUTED FOR THE ECP LCALER ROUTINE RESIDING AT HEX -AO0-. 
251 
0154 7D 5c 00 2£2 CKCOM CLI 0(,2R1),C*'*! BRANCH IF THIS IS NOT A COSHENT ' 
0757 F2 01 OF 253 JNE CBKSSS CARD 
015A 38 01 0208 254 TBH 4 6SBYTEO, SS807 BYPASS PRINTING IF SSWO7 IS OW i 
015£ EO 10 2F 285 BT BEITR (,XE2) } 
0161 CQ 87 O21A 256 E FEINT PRINT CONTENTS OF THIS CARD t 
0165 21 0165 257 pc XL1¢298 
ws 0166 20 87 2F 258 B BEITR (,XR2) GO READ BEXT CARL 
~. 259 
0169 4D 02 02 O5cc 260 CBKSSW CLC 2(3,XR1),SSU . BRANCH IF NOT SEBSE SWITCH CARD ; 
se O16E CO 01 079: 261 EXE CHKESE ; 
0172 OF 03 020D 020D 262 SLC SBYTES (&) ,-SBYTES CLEAR SECTIOR SERSE SWITCHES 
0178 D2 014 05 263 ISSSW LA 5(,XR1) -XR1 FOINT XR1 AT FIRST SSW NUS 5. 
017B 34 01 0185 264 CHKSSO ST SADDR,XE1 SET DUP POINTER TO THIS NUNBER , 
O17F CO 87 0226 265 B FACK GO PACK THIS RUMBER : 
0183 02. 0183 266 pc IL4¢2? 
0184 0000 0185 267 SADDR pC AL2 (*-*) ) 
0186 040° 0187 268 pc AL2 (CATSUS) 
0188 CO 87 O&GD 269 B SEISSE 
} 
DATE 29aUG75 O7NCV75 19BARI6 0330876 V9FEB?7 PROG ID FFP-4 DATE 
EC NO. 827804 827805 827872 571871 387010 PAGE 3 y BC HO. 
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OBSECT CODE 


7D 
D2 


co 


co 
7D 
E0 
38 
DO 
co 


34 
co 
39 
E0 
co 
02 


65 
01 
81 
87 
cs 
01 
04 
90 
87 


08 
87 


AC. 


10 
87 


OFF 
005D 


1D 
F2 
1D 
F2 
1D 
F2 
35 
FO 
co 
38 
co 
E0 


02 
01 
03 
81 
03 
81 
08 
38 
87 
20 
10 
87 


01 
03 
0178 
OO8E 
00 
2F 
O1FD 
81 
0000 


OAA 
0060 
O1FED 
33 

OZ1E 


FOFOFOFO 


Fi 


0060 
O1AB 


2940675 
827804 


4248230, IBM MAINTENANCE DIAGNOSTIC FRCGHRANS 
3 ; 


DIAGNOSTIC CONTHOL PROGRAM - HODEL 12 


42468230 
3a 


PART WO. 
PAGE 


ADDR STMT SOURCE STATENERT 


OAA 
OBE 
01C0 
01C2 
5A 
5F 
5F 
O1F4 
O1F5 
O1FD 
OFF 
O7NOV75 
827805 


270 
271 
272 
273 
274 
275 
27€ 
277 
278 
279 
260 
281 
222 
283 
284 
2€5 
2&6 
287 
2&8 
289 
230 
2$1 
292 
293 
294 
235 
296 
237 
298 
299 
360 
301 
102 
303 
304 
305 


CHKERT 


1px 
LDX@ 
LDPT2 


HLTHSD 


OK 


cECO 
rEC1 


19NAR76 
827872 


cxur 
LA 
BE 
E 
CLI 
ENE 
TBH 
BF 
E 


EQU. 


ST 
B 
TBR 
BT 
B 
DC 
bc 
Bc 
cLe 
JNE 
CLC 
JE 
cc 
JE 


HPL 


TBR 
BT 


oc 
pc 
ORG 
CG 
pc 
bc 


03J0N76 
571871 


CHECK FCF MORE ENTRIES 

FOINT TC WEXT ROMBER 
CCNTINUE UNTIL CARD DONE 
WHEN DCNE, GO READ NEXT CARD 
GO READ WEXT CARD IF WOT END 


1(,XR1) ,C*,* 
3(,XE1) ,XB1 
CHKSSO 

REXTR 
0(,XR1) CPE" 
WEXTR (,XR2) 
FLAG, EITS 
129 {, X81) 
Bok 

te ee 
LDX@, ABR 
CDREAD 

FLAG, BITO¢BIT2¢BIT4+BITS 
FED (, 282) 

UNFACK 

XL1*2¢ 

AL2 (DTABLE¢1) 
AL2(LDWORK) 

LD WORK (3) ,90(,XR 1) 

HLTHD 

DECO (4) 695 (eXR1) 


FRANCH TO x*901* 


CHECK ID (COL. 89-91) 
CHECK FOR CARD 0 


CK 

DEC1(&) .95(,XR1) CHECK FOR CARD 1 
CK 

DITABLE¢?1,ABR 

HD, HH 

LDPT2+4 

FLAG, BIT2 

LDX 

REL (, 282) 

DL&*O* 

DLA 
X*FFFF*-xX*IFC8+# 
X* FC? 

AL2 (CDREAD) 
AL2(LDET2) 


DECO MUST START AT X*1F1* 
IF THIS OFG FLAGGEL, ORG OVERLAYED 


HUST BE AT X*1FC® 
HOST BE AT X*4FE* 


FRF-& 
3A 
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: IBM BAINTENANCE DHGNOSTIC PROGRAK PART HO. 4248230) IBB MAINTENANCE DIAGHOSTIC PROGRAB PART WO. 6288230 
PAGE & PAGE a 
2 FFFS DIAGNOSTIC QONTROL PROGRAM — B@CLEL 12 p FFFA DIAGNOSTIC CONTROL PROGRAB - S&CDEL 12 
ERR LOC OBJECT COXt AIDR SIBT SCUBCE STATEBREUT ERR LOC OBJECT CODE ADER STSY SOURCE STATESEIT 
~ oL00 307 CRG xX*a00t ) OAB1 F2 0% OA 376 JRE FTEDC COLUER & IS HOT BLAKE 
308 * TRESE INSTRUCTIONS ABD CONSTANTS ARE USED ONLY BY THE DCP LOADER. * GAB4 3C 00 O25F 375 BVI UTABtaS, X*08 IF BLAEK - CLEAR UDT TABLE FOR ALL 
309 * {THE UNIQUE SECTICRS CF THE SECTION LCADER ARE LOADED INTO THE *) ORES OC 2C O25E C25F 376 MVC 8 =—«-:; UT BB+88 (85) ,UTABSUS REW ZNTRIES 
310 ®© {LOADER BREA, X*000* -— xt1FF*, ® OABE D2 01 05 377 PTFDC LA Sle XB1) -XR1 POINT AT FIRST LEVICE CODE 
317 OAC1 34 O1 OACB 378 ULP1 8 st UPTE, XR? SET UP DEVICE CODE POINTER 
371 } OacS CO 87 0226 379 B PACK PACK DEVICE CODE 
OA00 FOFSFS OAO2 312 BOSB~ De DL3* Oase — OATS 62 oacS 380 bc IL2*2* | 
OA03 FIF2FO ee 312 £420 ~ 830bC DL3* 420° OACA 0000 GACB 28) BETR DC Ay eed 
O06 18 A06 318 E24 pc IL? 2g¢ GACC OAA? QACD 382 pc AL2 (DEY) 
ORO? C3C8CIC9DS5 OAOB 315 CERIN DC CL5* CHAIR? ; OACE C2 02 022F 383 LA UTAB-3,XR2 FOINT AT DCP UNIT TABLE 
OAOC 0001 OCAOD 316 CHEB rc XL2°0001* OAD2 EZ 02 93 384 ULP2 LA 3{,XR2} -XE2 INCREMENT URIT TABLE POINTER 
OAOE GO OAOE 3147 cCRCTR fcC XL1° O° } ORDS BS 10 Of 385 TBR 1¢.-XR2) ,-BIT3 BRANCH IF WOT LAST ECP ENTRY 
31€ OADS F2 96 OR 386 JF UDik 
Oni? F2 01 26 Soo ope Seeeues sci a Ras OADE FO 6F 57 388 Ere a SECCUDARY HALT- HORE THEN 15 UDT EWTRIES 
Ai2 F ¥ CPU , L te t 
OA15 3D 00 0232 321 CLI UTAB,O IF NOT UDT CARD GC TO FIX#OD b GAE1 CO 87 008B 389 B SEXTR GO READ REXT CARD 
OA19 CO 81 OA2A 322 EE UOK WBICS WILL HALT AFPRCERIATELY OAES 8D 00 GO ORA? 390 ODIA CLC O(%,XR2},DEV FRANCH TO OVERLAY IF THIS IS SABE AS 
OAID 3D FO 0232 a CLI UTAB,xX*FO? IF NCT NFCU THER CE GOOFED j OAEFA F2 A y Es a Barna a Soot carat Se 
OA21 F2 81 06 24 JE UCcK OAED BD I 
OA24 FO 3B 6F 325 HPL #HO,BH HO IBVALID RECOKBE ENCOURTERED CAFO CO 0% OAD2 393 BRE ULP2. IF KOT GHUSED, GO CHECK BEXT 
0A27 FO 6F 5D 326 HPL 8S,HO SECCEDAhY HALT-- IRVALIP ODT LOADER DEY. ‘ aes ae as oe CRA? =. LDUDT ec oO ea ere Oe taae Crs ree DEVICE CODE 
. A - 2 
oie os a O20E 398 me oa eeer ro seeeG) SKIF PRINTIRG IF SSWO7? IS O% OaFC ce 06 02 396 BYE 2t,ER2) ,X*08 
OA32 EO 10 2F 329 BI KREXTR (,XR2) ' OAFF D2 Of 0% 397 LA 41(,-ER1) ,XB1 EOIET AT FIBST OPTION NUMBER, ALLOW 
OA35 CO 87 O21a : 330 B PEINT PRINT CONTENTS OF THIS CARD aEee Las ~ gee oa OC EE FOR DASH 
OA39 21 0A39 3314 ce XLi¢2te zZ z 
OA3BR EO 87 2F 332 B RETR (,%R2} GO READ NEXT CARD ; OBCB DZ 01 04 S00 ULES LA 4(-2R1) XR POINT AT BEXT OPTION HUBBER 
333 CROB 7D 460 00 601 CLI O(,XR1},C* * IF BLABK ENCOUNTERED, CARD IS DONZ 
ony a oe 00 ev CECPU pa O(,ZR1),c*c®- BRANCH IF BOT CPU DEFINITION CARD a = . a aaa re ere oe $5 cua PECONMAT CED. co-O NEET 
A4O F2 01 65 RE CKUDT ls eft, * 
OA43 IC 00 0200 08 336 SALLY BVC SMOD(1),4(,ZR1} EUT SYSTEM BOLCEL INTO SRT } GEIS F2 01 C7 808 JHE UDTE DEVICE CODE 
OA48 7D C6 OB 337 CLI 10(,XB1),c*PF* IS THIS 96 CR 128K cee Ee = of ae . 2tesellg ees 
OAGB F2 81 07 338 JE NCX IF SC #O EX2END 
OASE SC 18 1F 339 BYC 31(25,X81},30(,XR1) FORCE CPU &,SSSS,P TO ... } OBiF 7D FG 00 807 UDTB CLI O(,XR1),xX*FO* CHANGE EBCDIC 0-5 TO BINARY 
0a52 7C FO 06 ee aso - SVI 6(,XB1),C*0® ~-. CEU #,0SSSS,P eae as ns ri Gane Aas te ott xe) "9 
x rce £ s 9 
0a55 7C FO 05 382 BVI 5(,ZR1) ,c*0? FORCE 6 IW PLACE OF COMBA } Been ae a aes ign oe osre aE Sher oy OaEh. 
0a58 CO 87 0226 343 5 PACK EACK STORAGE SIZE e 
OASC 06 oascC 348 re IZ1¢6¢ | } 0533 a = oe OaOD nt OLP3 ae GUL ERs CHER SHIFT BIT TO PROPER POSITION TO 
OA5SD O88: OASE 345 re AL2 (INPUT*10) 
OASF 0203 OA60 34€ pc AL2{(SIZE} rae bs ae FISD aE ALC pect rnere 
S = u 
0A67 3C 00 0204 es re ae ef ge a enee nOEYaE enatcEs OPTICHS ; OB45 GC 00 OBS2 115¢ S16 UDTD #sV¥C UOSET1¢4(1),MASK-1 LOAD MASK INTO SET BITS CK 
OA65 3C 01 OATF 349 CEUOP BVI  #ASC41,x°C1! BEGIN OPTICN HASK AT 01 OB4B OC 00 OBS5 1152 417 HVC =- USET2¢1(1) ,HASK TRSTEOCTIONS 
F ; 4(,XR2) ,*~-* TURN CH PROPER CPTION BIT 
0269 46 00 OC O86 350 CEULP AZ 12(4,XR1) IF BOME OFTIOR FIELE BY 1 } Of51 BR OO 01 “18 USET? ose eocre oe 
OA6E 7D F9 OC 351 CLI 142(,X81} , ZFS" HASK IS CK WHEN OPTION FIELD=FS OB54 BR OO 92 #19 USET2 SEN 2(,XR2)e éb Look. A= sexe OpTion BONbE® 
OA77 F2 81 OA 3&2 JE ASC O£S7 CO 87 OBOB aa 8 SLPS 
OA74 OF 00 OATF QK7P 353 ALC MASC4#4(1) ,HASCe? SHIFT MASK EIT LEFT ONE. é 
OA72 CO 87 OAGS , 3£4 EB CEULE foe ) ry 2 o2 oe OBP7 3 CKOCPS ee a enna ee BRAHCH IF WCT SSW CARD 
OATE 3A 00 0204 355 BRSC SBR CEU,%-¢ SET ON CPU OPTYOB {OK 0} : 
QA82 D2 O1 01 356 LR $(,-X3R1) -XK4 INCREMENT TC BEYT OPTION, HANDLE 5 aera =. Sons ee ay Severs ene CLEAR COMBOR SESSE SWITCHES 
gs = 
OaA85 7D &0 OC 357 CLI 12(,XR1p-C* ? MULTIPLE CPTICHS. pce etecaoaae er : eee co SET PROPER SEES2 SUTTCHES 
OA88 F2 81 04 358 JE OFPDGE CUIT IF BLAKK. BEB C cs 
OA8B CO 87 OA6S 359 B cPUcP : é 
GB &28 CKCER ECG # 
oe : Bo a 363 vee . eer Fe pee ee CEGF 4D O& OF GADB < acs cre 7(5,%R%) -CHAIE CHECK IF *// CHAIR® CARD 
OA96 F1 O296 362 XE re KLt*Fe OB74 F2 04 30 830 OME CKERD BRARCH IF HOT 
O0A97 7D C7? 04 363 CLE &(,XR1},C*c* ) OB77 3C 417 OBDD 431 ISCHH S8YZI IBGADB,23 INITIALIZE IMAGE FIELD POINTER 
a XTRG.E AD REKT CARD O87B 3C OZ OBOE &32 BVI CHCTR,2 SET UP FOR 48 POSITION LINE ~ 2 CDS . 
6 eget ~ 
elt e cient ape: aE eocea co Ee ceca OBTF 3c 00 6878 433 HVYI  LEi#aGe120,x'0 SET FLAG FOR 48 CHAR CHAIE 
tenes ce See ene ee, Serene Bee geen egves } Of83 BD 02 0B ORCS 434 CLC 113,384) D120 BRASCH IF NOT 120 POSITION PRINTER 
OQAAO FO 6F 7D 366 EPL 86,480 SECONDARY HALT ~- IRVALID CPU CARD E ; : Be ae uae ay eeao8 , 
Nine eee ee ace gear ern Bo eee, Reeser fener e a re j ieee io G2 OB 9202 & 36 cLe 7103, 981) ,DOSS BAS EITBER 420 OR 0&8 IF IT 
OBSO F2 61 11 837 Jz ROC EG CTHERGISE BAIT . 
eed ona an0 bE ae aia, 05393 FO 3é OF 836 BEL 86,88 BAD CHAI CARD 
Faces wee ct ae ; GBY6 FO 6F 07 £39 HPL #H7,R#C SECONDARY HALT -- CHAIN HUST BE 120 OR 088 
OAAS 7D E& 00 371 CKODT CII O6(¢,¥R1),C*U* BRANCH IF ROT ULT CARD j nace eS ase 5 oe merret xR2) 
OAAE 7D 4&0 03 373 CII 3{,XR1),C* * USE THIS CARD AS A COBTINUATION iF OBSC 3C GS OAGE #84 18120 B¥I cHCTE,5 CHANGE TO 5 CARE 
- TE 29AUG7TS O780¥75  19BAR76 O30L575 19PEB77 PROG IE FPF-8 
DATE 29a0G75 a?Ncv7s 19HAR76 OFIUETE 4UPEBF7 EROG ID FPF-4 DA é : a eee 29872 4874 387010 PAGE GA 
EC HC. 827804 #27805 827872 571871 387010 PAGE & y BC NO. 827804 $2 346% : 
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. PART RO. &288230 
IBN MAINTENANCE DIAGNCSTIC PRCGRAS . aba NO. Menten ss MAINTENANCE DIAGNOSTIC FRCGRAM pace . 
FFF4 DIAGNOSTIC CONTROL PROGRAM - MODEL 12 | FFF4 DIAGNCSTIC CONTROL FROGRAR - BODEL 12 
ERR LOC CBJECT CODE ADER STMT SCURCE STATEMENT 4 ERR LOC CBJECT CODE ACCR STMT SCORCE STATEBENT 
486 RG x*2008 
GBAO 3¢ FF 0878 nye Byr oe Funes 1cer (8 (Gae eG nabs a Kez Sadeeeusccaadesessetuussveseuudsocscassasacskcausesevidieisesatiics 
VERN AEP RC ee : ugg * SECTION REFERENCE TABLE * 
CBA? 7D C5 00 4&5 CKERD CLI 0(,XR1) ,CtE® IF ERD CARD CORTINUDE yag FF SESE RESAESEEEERESE SES OEHEREECRERSSS RHEE SERHEERE SERRE SERED ECERSESEREESS 
OEAA CO 81 OBR8 B46 RE ISEND 490 * | : 
OBAE FO 3B 6F 447 HPL HO,HH UNDEFINED CARD ERCOUNTERED IN DCP G91 * THE DATA IN THIS TABLE PROVIDES THE DIAGNOSTIC SECTION/CONTROL 
OBB1 FO 6F 03 448 HPL 41,80 SECCHDARY HALT -- INVALID CR BLANK CARD aes ; meena ehnenenere Dar ds sEOADED ER RBESE, GEZHCUS(¢ . 
© ¢ N RECCRE 
pats eee oer ORES wea ISEND ae oe iia aa agu & CCHTRCL FRCGRAM EXECUTION * 
OBB8 3D AO 0232 451 HGO CLY UTAB,X*AO?* IF THIS IS DEFINED AS DISK, HALT HO 495 # CCNTRCL FRCGRAM ASSESBLY : 
OEBC F2 01 OA 4&2 JHE LDRCK ac : UDT CARDS 
ee ce or aes bo Be ae BeceuPAtT Sane por ure rence WRONG AT FRD CARD 498 SPESEERESEHS EAE SEE ESETERESERSOSS ESE ESEES SE EHEREREEED SEEDS EERERERERDEO RSE 
wa eo 
OFCS CO 87 OBES 4ssS B BGO aan ‘ 
a 
ORCS ae LDROR ECU 501 ae. 2685 DAR 
5 CONNECT REST OF LOADER s * 
noes = se tae a ae GECen saan 0200 00 0200 503 SmOD pc XL1*O8 SISTEM MCDEL 
OED1 CO 87 O0E86 460 B BEGIN GO BEGIN DCE 920% 00 0201 504 pc XL7*O8# USED FOR STCRAGE BEYOND 64K 
&61 0202 00060 0203 £05 SIZE DC XL2*°08 CORE SIZE IN HEX 
CBDS CO 87 0226 462 CKCTR 8B PACK FACK THIS PRINT ISAGE CATA CARD 0204 CO 0208 506 CEU pc XL1*Ot CPU CPTIONAL FEATORES 
OEDS 30 OBD9 463 Dc ILt*age INTO EROEER LOCATICY 0205 90 0205 507 pe XL27°O08 
OBDA O3AF OPBDB 464 oc AL2 (IBEUT¢47) 0206 0000 0207 508 PGCK@ onc XL2¢°0O8 ADDRESS CF RELOCATED PROGRAS 
OEBDC 0800 OBDD 465 IMGADR DC XL2"800° 509 *# CKECK ROUTINE. 
OBDE OF 00 OBDD OA06 466 ALC IMGADR (1) , N28 ADJUST FCIRTER FOR NEXT CARD 0208 510 LBASE EQU * 
OFE4Y OF 00 OAQE 0399 467 SIC CHCTR(1) , ONE CFCREMENT CARD COUNTER 0208 00 0208 511 SEYTEO DC XLi*O* CORMCNH (DCY) SENSE SWITCHES 
OBEA EO 04 2F 468 BNE NEXTR(,XR2} GC FEAD NEXT CAFE IF IMAGE COMPLETF 0209 00 0209 £12 SBYTE! Dc X1L1°Q8 
QOEEC CO 87 0060 4E9 EDCD B CDREAD GC KEAD REXT ISAGE CARE AND RETURN 020k 00 020A 513 SBYTE2 DC XL7*°O8 SECTION SENSE SWITCHES 
OEF1 CO 87 OBDS 470 B OKCTR GO BACK AND PROCESS THE CARD 0205 00 O20B S14 SBYTE3 DC x17¢O8 
OEFS E2E2F6 OBF7? 471 SSWD onc CL3*sSswt 020c 00 020C $15 SBYTE4 DC XL1*O08 
OBF8 0889 OBF9 472 INADR1 Dc AL2 (INPUT+9) 020D 00 O20D 516 SEYTES rc XL1I¢08 
472 020E 00000000 0211 517 RPFX pc X14tor CURRENT RCOTINE PREFIY 
473 £7e 
473 519 * 
473 £20 ** ASSENPLED TRANSFER TABLE 
ava #9933 49RE48 521 x / 
475 * EQUATES SESS SEREAEE SERS LESEE SE EOE EE TEREEEREEESSOEEEEEEEEEEOERESNER ES 0212 35 10 0531 522 TEST L TR1,IAR LINKAGE TO KEAD CONSOLE SWITCEES 
O76 #4e04e2804802 0216 35 10 0783 523 LINK L TR2,IAR LINKAGE TO CHAIN ROUTINE/SECTION 
0880 477 INPUT EOD x*98goF 021A 35 10 O2CA 524 ERINT L TR3,1IAR LINKAGE TO PRINT MESSAGE 
OOSF 4S7E STATUS EQU CDREAD-1 O21E 35 10 O67A 525 UNPACK L TDU,IAR LINKAGE TO UNPACK DATA 
OOSD 479 LDWCRK EQU CLEREAL~3 0222 35 10 0785 526 HALT L TRS,IAR LINKAGE TC BALT 
02495 480 UDTi EQuU x*2498 LAST BYTE OF 8TH UDT ERTRY 0226 35 10 0231 $27 PACK L IR6,IAR LINKAGE TC EACK LATA 
0261 4&1 uUDT2 EQU xX*261° LAST BYTE OF 16TH ULT ENTRY G22k 35 10 0556 528 LCAD L TR7,IAR LINKAGE TO LOAD A NEW SECTION 
0040 482 IPL EQU) x*KOF8 SFCU CCNTROL CODE ~ IPL MODE 0222 OSAF O22F 529 Lusca cc AL2(LMSG) 
0000 4&3 NORM EQU = x*08 MFCU CCNTROL CCLE - WORMAL HOPE 0230 03B4 0231 530 ITK6 DC AL2 (EPACK) 
OOF1 484 READ ECU X*F1!# EFCG READ Q CODE 531 * 
532 ** UNIT DEFINITION TABLE 
533 * 
0232 534 UTAB EQD * 
0232 0000000000000000 0267 535 DC XL54"008 18 X 3 = 58 USABLE ULT ENTKIES 
023A 0000000000000000 §35 
0242 0000000000000000 535 
024A .0000000000000000 £35 
0252 00000000C0000000 §35 
025A 0000900000000000 §35 
0262 000000000000 535 
0268 0010 0269 536 DC XL2*0010" 


SIGNALS LAST ENTEY (NOT USABLE ITSELF) 


DATEL 29AU0G75 O7NOV75 19MARI6 O3J0N76 VIEFEB77 
EC NO. 827804 827805 827872 571871 387010 


PROG ID FYP-4y DATE 29A0G75 O7NOV75 19MART76 O33u0N76 V1FEBV7 


PROG ID FFF-8 
PAGE 5 EC NC. 827804 827805 827872 571871 387010 


PAGE 5A 





IBM MAINTENANCE DiAGNOSTIC PROGRAH PART WO. 4246230) IBA MAINTENANCE DIAGNOSTIC PROGERAR 
§ 


PART RQ. &®248230 


PAGE PAGE 6A 


FFF4 DIAGNOSTIC CONTROL FRCGRAH - MCDEL 12 


‘ } FFF&  DIAGNCSTIC CONTROL PROGRAH - £CDEL 12 
ERR LOC CEJECT CCCE ALLER STMT SOURCE STATEMENT ERR LOC CBJECT CODF ACER STMT SOURCE STATERENT 
% 
¥ 
53R heen ae ROKKERSES O2CF FFOO O2D0 606 pc XI2*FEGO?® 
53S ® LOAD CEHHRKERERERRATEEERERESERREREESEOKEKSRE SR TARTE HL AERSEEEERE LOAD ® O2Dn1 BS 01 00 607 TBN SEYTEG (,XR2) ,-SSRO7 EYPASS RALT IF SSWO7 ON 
Sud *44aeeee RERREEER” O2D4 F2 10 06 608 JT RLDB2 
Sui * a! Q2D7 FO 3B 7C 609 HiTF HEL  #HE,BH HALT TO INDICATE SECTION COMPLETED 
542 * SUBROUTINE TO LOAD PROGRAMS OR DATA RECORDS FRCM THE LOADING * O2DA EO 87 OA 610 B TEST (,XR2) GO CHECK DATA SWITCHES 
543 * DEVICE. ENTRY TO THIS SUBROUTINE IS MADE AS FCLLO®S-- *% O2DD B& 40 01 641 RID2 TEN SEYTEW{,XR2),SSHO9 IF SSWOS IS CN, 
544 * *? O2£0 F2 10 04 612 JT LE? THEN DON'T CLR SECT. SWITCHES 
545 * B ICAD EHERE LCAL IS ECUATED TO X'22A® * O2E3 AF 03 05 05 613 SLC SBYITES (4,282) ,SBYTES(,XR2} CLEAR SECTION SS¥ 
Sag * &DC XL°"*FLAGS* *, O2E4& 674 THREE EQU #-3 
547 * **DC XL2*DXXX! XXX + PROGRAM IL (OR LISK ACDR) *’ O2E7 78 80 00 61S LEt TBN O(,ER1),PITO FLAG BIT 0 OF 
5ug * * O2EA FZ 10 41 6 76 3% LE2 IF ON 
Sug + FLAG PIT OW =y G2ED C2 O02 0208 617 XREFIT 2s LEASE, EZR2 
550 « NONE - NORMAL TERMINATION e Q2F7 EO 87 OA 618 B TEST {,XR2)} FOR -HD- BALT 
5541 « 0 ~ HE HALT,LCAD XXX, HA HALT AND GIVE XXX *% O2F& C2 04 OVFD 6719 Lz1 LA DIABLE-1,XR1 INSTROCTICN HAY EE ALTERED 
552 * CORTRCL & O2ZF7 €20 EK EQU tej 
553 2 1 - ABNORBAL TERBINATION * O2F8 7& 07 60 621 TBR O¢,XFi),BIT7 FOR CARD SYS (J LE2 ) weoe 
556 * IF BIT 3 -=-- 2 - RFAD FIRST RECORD OF XXX iBTO X'&8C" AWE * OZFER 622 L¥2 EQU * ee THIS REFERS TO FREVIOUS INSTRUCTION 
555 * IS CN WITH RETURN CCNTROL *\ O2FB F2 90 OD 623 JF CHRPS 
556 * 2,4,0R 5, ss ‘S. 3 ~ READ NEXT SECUFNTIAL RECORD INTO x?880* *° O2FE 6E OC 02 75 6248 ALC =-2€1,XF 1) p LORE (,XR2) 
557 * THEN PARM AND RETURN CONTROL * 0302 78 OF 02 625 TBN 2,281}, 2°OF* 
558 * IS DISK --- & ~ LCAD XXX AND GIVE XxX CONTROL * 0305 F2 90 16 626 JF BOVIS 
559 * ADDR NCT -“-- § - LOAD XXX AND RETURN -CNTEOL *- C308 7B OF 02 627 SEF 2(,XF1),X°OF® 
560 * PGH ID. 6 - SEEK TC VTOC ANE EETURR CONTRCL * 030B BD Fl EF 628 CHKF4 CLI ETR(,382) Fa 
561 * *NOTE FLAG BYTE, NOT HCRE THAN ONF BIT CAN PE SET ON *, O30EF Fz 01 09 629 JHE STEP 
562 * A CALL TC THE LCAD RCUTINE IN DCP ad 0311 FO 38 6C 620 HLTC? BPE #HC,HS 
563 * **NOTE FROGRAM ID IS CNHLY¥Y INCLUDEL IF BIT 0,2,4, OK S * 0314 EO 87 OA 631 E TEST(,.XZR2) 
564 + TS ON ®, 0317 BC ED EF 632 S¥X  ETR(,X¥F2) FO 
565 * a? O31A AF CO EF CLC 623 STEP SLC FIR€1,352) , THREE (,2R2) 
566 SHEERS EEEEEEAREEESRREKSERESRERAERSEERRSE SS SRESESAL SESE SERASS SSE SHS ERE O37?E BS 01 EF 638 BCVID iL ETR(,Z52) -XR1 
0208 567 USING LEASE,XR2 } QO321 65 Gt G2 EE 635 cic 2 (2, X81) g PTZERO*3 (, X22) 
OOFD 568 FO ZOU X°Fb* 0325 cO 81 03147 626 BE HITC1 
OOFA S69 F1 EQU X*FA# 0329 1C 02 CIFF Gz 637 MVC NTABLE¢1 (3) .2¢€,XR1) 
OOF1 570 Fa EQU X'Fie ‘ O32E co &7 0000 638 LEZ B tn 
026A 34 02 02A2 571 RLOAD ST LCDEM#7,XR2 SAVE XR2 ; 0331 629 EWTHY2 EQU *-1 
026E C2 02 0208 572 LA LBASE,XR2 0332 CO 87 U29P 646 E LCDEB 
0272 B& 08 9E 573 ST FLDAt3(,XR2) , ARR SET UP RETURN ACDRESS ‘ 
0275 CO 87 7E9F S74 B DPFIX RETURN DPF 20 FROG LYL? , 
0279 BS 01 9E 575 RINFIX L RLDA43(,XK2) -XR1 FOINT AT FLAGS 
027C BE 01 SE C3S9 576 ALC = FLDA#3 (2, X82) ,OWNE ADJUST RETURN @ ‘ 
027D S77 LCHE ECU ¥=4 . 
0281 1€ O02 OFF 02 578 MVC CTABLE#1(3) ,2(,XR1) HOVE FLAG AND DXXX PARAMETER 
0286 79 28 00 579 TBF 0O(,XR1),BIT2¢BITS — IF 2 OF 5 ON, THEN BUMP ERTN ADR 
0289 F2 10 05 580 JT NOBME -. TO BISS PARAMETERS ‘ 
028C 8E 01 SE 033B 581 ALC ELEA+3(2,-X%82) ,TWO ADJUST RETURN @ 
0291 78 70 00 582 NOBMP TBN 0O(,XR1),BIT3 TEST *BEAD ONE RECORD* BIT ‘ 
0294 F2 90 10 £93 JF 1Di 4 
0297 CO 87 0000 584 B *-% GO TC LCADER TO READ A RECORD 
029A 585 ENTRY? ECD *-1 . 
0298 C2 01 6000 586 LODEM LA *-* ,XR4 RESTCRE REGISTERS (THIS CODE HUST ” 
029F C2 02 0000 587 LA e~—%,X¥R2 FOLLCW BRANCH TO LOADER, ENTRY1) 
02A3 CO 87 0000 588 RIDA 2B emt ; ‘ 
O2A7 589 LDV EoD) # f 
0247 79 2E 00 590 TBF 0(,XR1) ,BITZ2Z+BIT4+BITS*¢BIT6 FLAG BIT 2,4%,5, OR 6 OR? 
O2AA F2 90 81 591 JF LE2 IF ANY ON, GO ENTER LCADER } 
§32 
O2AD BA 80 C3 593 SEN RLFLGS(,XR2),E2ITO SET ERROR BIT IF ABNORMAL 
02B0 78 40 00 594 TEN O(,XR1),B1T1 TERMINATION ) 
02B3 F2 10 11 595 JT PIMSG 
02B6 BB 80 C3 596 SEF KLFLGS(,XR2),BITO CTHERWISE, TORN IT OFF 
O2EB9 BS 40 00 ; 597 TBN SBYTEO(,XR2),SSWO1 LOOF CN RCUTINE IF SSW 01 IS OW } 
02BC CO 10 0539 596 BT LNK1A 
02C0 BS 80 00 599 TBN SEBYTEO(,XR2),SSW0O0 LOOF CX SECTION iF SSWOO SET 
02c3 CO 10 0000 600 EIZERO BT 0 } 
02C7 CO 87 05D2 601 PTBSG B RPRiINT PRINT SECTION LERHINATE MSG 
O2CA 602 ITR3 EQU *-1 
O2CB C7 02CB 603 RLFLGS DC XL1°C7¢ 3 
Q2CcC 12 02cc 604 pc IL1* 18° 
02cD 05:1 02CE 605 DC AL2 (THSG) 
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FFF¥4  DIAGNCSTIC CONTEOL PROGRAS - MODEL 12 FFF4 DIAGNOSTIC CONTROL PRCGRAB ~- MCDEL 12 
: . 
ERR LOC CBJECT CODE ACER STMT SCURCE STATEBEST ' ERR LOC OEJECT CODE ACDCR STIBT SOURCE STATENENT 
665 seeeeenege SORHEREERE 
aoe oa ee rap oe CEG * ONPACK 98s eee seer eee eee HOSE REREEEESEREROREOEEEDEREEEREE UONPACK ®# 
0002 644 MNZ EQU 02 6EF seneesenes 8HSTRERESED 
0003 645 MNN Ecu O03 : 668 + * 
0336 00 0336 646 CTR pc XL27"0¢ 669 * SUBROUTINE 10 CONVERT FACKED HEXADECINAL DATA TO PRINTABLE * 
0337 FFFF 0338 6487 NEG1 CC XL2*FFFF? 670 * EEPCDIC. TWC PRINT CHARACTERS, O-F, RESULT FROM EACH SOURCE BYTE. ® 
0239 00 9339 648 DC XL1°008 SPARE BYTE RCT USED, MUST BE oo ° LINKAGE IC THIS SUBROUTINE IS AS FOLLOWS~- : 
e2e LOCATED HERE TO GENFRATE é 
poe “ane bee r = eet THE CCNSTANT FIVE 673 * B UNPACK WHERE UNPACK IS EQUATED TO x*21E? * 
033c 34 08 0362 651 CMEK sf CHEKX@, ARR : 674 * CC XL1°LENGTH OF REX FIELD IN BYTES! ™ 
0340 CO 87 O3A0 652 B CAVREG SAVE REGISTERS 675 * DC AL2(FROH ADDRESS -RIGHTHOST PYTE-} * 
0344 35 02 0402 653 L ARRSAV,XK2 PICK UP RETURN @ 676 * cc AL2(TC ACLRESS -RIGHTMCST BYTE-) * 
0348 C2 01 0336 654 LA CTR,XR1 LCaD BASE @ 677 * ® 
0326 €55§ USING CTR,XR1 67E& SOROS HERES SEES ERE OTTERS SASS STEERS SESE EERSTE ESEREEREREESERERESENOEREES 
O34C 5E 0¢ CC BD 656 ALC =APRSAV(2,XR1) , FIVE(,XR1) AJUST RETUEN @ 0363 34 08 0402 679 RUNPK ST ARESAV, ARR 
0350 6C 00 606 00 657 HVC 8 =«6CTR(1,XR1) 00 (,XR2) MCVE LENGTH BYTE 0367 CO 87 033Cc 6EO B CHEK 
0354 6C 01 4c 04 658 BVC) =6DEST1(2,XR1),4(,XR2) HOVE TO a 6368 7C 03 39 687 UNPKY HI BHVX17¢,XR1) , ANB DC ROBERIC 
0358 6C 01 AS CH 659 MVC =s BEST2 (2, XF1) .4(,XR2) BCVE 10 @ O36E 68 00 4A 00 682 UNFK2 VX TEMP1(0,XR1),0(,XR2) 
035¢ B5 02 02 660 L Z2(,XB2) ,XR2 FICK UE FRCH @ O36F 683 MYX? EQU %=3 
035F CO 87 0000 661 B soe 0272 7A FO 4A 664 SBN TEMET(,XR1),X°FO* SET FOR 0-9 
0362 662 CHEKX@ EQU | ¥*-4 0375 7D FA 4A 685 CLI TEME1(,XR1),X*FA* CHECK FOR A-F 
0362 663 TEMP EQU ¥-4 0378 F2 82 04 6&6 JL UNPK3 
037B SF 00 4a 53 687 SLC TEME1(1,XR1),X39(,XR1) SUBSTRACT X°39" ZF A-F 
037F 3C 00 0000 688 ONEK3 P#VI *-%,9 
0380 689 TENP1 FEQU #-3 
0282 690 DEST1 EQU  #-14 
0383 SE 01 4c 02 691 ALC) = DEST1(2,XR1) ,REG1(,XR1) DECREMENT 10 ADDRESS 
0387 7D 02 39 692 CLI SV¥X1(,XR1) ,MNZ CHECK FOR ZONE DONE 
0389 693 x39 EQU) 4-1 - 
i 038A F2 81 06 694 JE UNFKG 
038D 7¢ 02 39 6$5 HVI MVX1(,2R1) ,MNZ . CO ZONE 
0390 DO 87 38 696 B NNPK2(,XR1) 
\ 0393 76 02 02 697 UNPKS A NEG1(,XR1) .XR2 DECREMENT FROM @ 
0396 S5E 00 00 01 698 ALC = CTR(1,3R1) ,NEG1~1(,XB1) DECRENENT LENGTH & CHECK FOR 0 
0399 699 CNE EQD) 4-1 
039A CO 01 35 700 BNZ ONPK12(,XR1) RO 
039D DO 87 C1 701 B LDREG (,XR1) YES 
702 * 
03A0 34 08 03B3 703 SAVREG ST SR14¢3,ARR SAVE RETURN a 
O3A4 34 O01 O3FA 704 ST IDREG*3,XB1 SAVE XR1 
0348 34 02 O3FE 705 ST SK2¢3,XR2 XR2 
O3AC CO 87 O43E . 706 B RTEST CHECK PATA SWITCHES 
03B0 CO 87 0000 707 SR1 B e-% 
! 
) 
’ 
' 
} 
4 
i 
DATE 29A0G75 O7NOV75 19MAR76 0330876 11PFEE77 FROG ID FFP-u DATE 29AUG75 O7NOV75 19MAR76 03.0N76 11FEB77 ™RCG ID PRF-4 
EC NO. 827894 827805 827872 571871 387010 PAGE 7 ,EC NO. 827804 827805 827872 571871 387010 PAGE 7A 





IBM MAINTENANCE CIAGNOSTIC PROGRAS PART NO. 4248230, IBM MAINTENANCE DIAGNOSTIC FROGRAS PART xO. &288230 

PAGE 8 PAGE 8A 
FFF4 DIAGNOSTIC CONTROL PROGRAE - SCDEL 12 , FFF4 DIAGNOSTIC CONTROL PRCGRAM - BCDEL 12 
8 ‘ 4 


ERR LOC CBJECT CODE ALIR STMT SOURCE STATEMENT ERR LOC CBJECT CODE ALLER STMT SCURCE STATEMEST 
709 ##ee4e888 ecceeaee! . JER seeeeene aeeeeess 
710 © PACK 84 #e SFO RSEEREESESTEEERESEAERRESE ERTS SEES ED  AEREEEEEERS BACK * FUG © TEST S88 eee Sees SeeSeSSSHETESEESSESERSSESSSESESSESSESSOSASSESESE TEST * 
711 #eeetee2 eee E EEE, JFEQ seeeeeee eeeeenee 
712 * * 751 * * 
713 * SUBROUTINE 10 CONVERT EPCLIC DIGITS O-F TO PACKED HEXADECISAL * 752 * SUBROULINE USED TO READ CONSOLE SWITCHES AND TEST FOR VALIDITY * 
714 * DATA. LiNKAGZ TO THIS SUBRCUTINE IS AS FOLLCWS-- * 753 # POSITIONS. CNCE ORE OF THE FOLLOWING VALIDITY CONDITIONS IS * 
715 * * 754 * ENCOUNTERED, ENTRIES ABE ACCEPIED UNTIL THE VALIDITY SWITCH IS * 
716 * B FACK ot 785 *  CBANGED. — * 
717 * nc XL1°LENGTH® *, 756 * * 
71 * DC AL2(FROM ADDRESS -RIGHTHCST BYTE-) * 757 * FOXX - TURK CPF SSW Xz. * 
719 * cc AL2(TC ADDRESS -RIGHTMCST BYTE-) * 758 * FIXX - TURN OB SSW XX. * 
720 PEREREREREREREERREREEEEEEEEREEE ESS EERERRSE RESTORE ERER EEE SESE EERE ES EEE EE 759 * F2XxX ~ GO TO KCUTINE ZX. . 
O3F4 34 08 0402 721 RPACK ST ARFSAV,ARR , 760 * EEXXY - TERMINATE SECTICH. * 
03B8 €O 87 033C — Vzz B CHEK 764 * DIXO EXECUTE ALI FROGRAMS FOR DEVICE XxX -LISK-. * 
03BC 78 01 00 723 TEN CTR(,XRt) ,X°O18 CHECK FOR OCD LENGTH ! 762 * DEXX - EXECUTE SECTICN Xxx * 
O3BF F2 90 65 724 oF FK1 OKAY IF EVEN LENGTH 763 * : . 
03C2 4F 00 00 0399. 725 sic CIR(,XR1) ,ONE SUPTRACT 1 IF ODD J.ENGTH JEG THREE ESERESSEEREESESHERSERESESEES ESE TSTESERERLROEHSOSREST ESSE SESE SES SS 
03C7 7c 03 A3 726 PK1 MVI MVX2(,XR1),MNN DO NUMERIC } 0403 765 TBASE EQU). * 
03CA 6C 00 2c 00 727 ©K2 MVC) TEMP(,XR1),0(¢1,XR2) PACK BYTE INTO HIGH HALF BYTE 0403 80 0403 766 SEIG DBC XLi*CO® : 
03CE 7D FO 2c 728 CLI ‘WEHE(,XR1),X*FO! CHECK FOR 0-9 0404 402010086402 040S 767 DC XL6 "402010080802" - AIL ICGETHER 
03D1 F2 02 08 729 INL PK3 JUNE IF 0-9 j O40R 03 O80A 768 DC XL1*O1# % 
03D4 5E 00 2C E5 730 ALC TEHP(1,XR1) ,NINE(,X81} AJUST F°R A-F 040B G000 O40C 769 DATSHS DC XL2*0* - READIW AREA FCR DATA SBITCHES 
03D8 18 00 0000 2c 731 PK3 AVX *-*(0),TEMF(,XF1) HOVE HALF BYTE TO @ 0403 770  USTEG SEIO,ZB1 
0309 732 MVX2 EQU) #-4 \ J80E 771 TCRE EQU a | 
O3DB 733 DEST2 EQU ¥*-2 } O40C 772 XREFS EQU DATSUS 
O3DD 76 02 02 734 A NEG1(,2ZR1) ,XR2 DECRESENT FROM @ O40 773 EREFS EQU = 
03E0 7D 01 A3 / 735 CLI = 8VX2(,XR1) ,MZN CHECK FCK ZONE DOWE 5 O4OD 34 01 04839 774 SETSSH ST WIR143,XR% 
0353 F2 &1 06 736 JE FRY JONP IF DONE : 0411 C2 01 0403 775 LA SETO,2R1 
03E6 7C 01 A3 737 BVI HVX2(,XR%) ,MZN DO ZONE 0415 74 08 3A 776 ST SEISK@(,XH1),ARR 
03E9 DO 87 94 73€ EB EK2(,%b1)} ' 0418 56 03 1F 09 777 BRE CBKSS1¢3(,XR1) ,DATSWS(,XR1} FORB CORRECT BIT PATTERS 
O3EC SE 01 AS 02 739 PRa ALC DEST2(2,XR1) ,NEG1(,XR1) DECRGMENT TO 2 : O4tB 778 HIRE ECO *-1 ; 
03FO 5F 00 00 05 740 SLC CTR(1,XR1),THC(,XR1) CHECK FOR END O41C 7B FS 1F 779 SBF CHKSS143(,X%R1) -X*F6* TO SET A BIT OW IF 
O3F2 741 FIVE §EQU) *~1 ’ OW1F 5C 09 2D 00 780 CHKSS1? HVC CHKSS2¢1(1,XR1) ,%-*(,XE1) SBYTEO THRE SBYTES 
O3F4 DO 01 914 742 BNZ FK1(,XR1) IF NOT DO NEXT BYTE 0423 5E 01 09 09 781 ALC DBATSWS(,XR1) ,DATSES (,XF1) 
03F7 C2 01 0000 743 LDREG LA %—* ,XR1 RESTORE Xk1 0427 58 02 2E 09 782 BRZ2 CHKSS242(,XR1) -CATSWS(,XR1) 
O3FB C2 02 0000 744 SK2 LA F-t ,XK2 } 042B C2 01 6208 783 LA SBYTEO,XR1 
O3FF CO 87 0000 745 B tt RETURN TO SECTION O&82F 788 BCDIFY ECU * 
0402 746 ARRSAV ECU t-1 O42F 7A 00 O00 785 CBKSS2 SBR e-4(, XRT} , e-* 
j 0432 3B 01 O42F 786 SBF SCDIPY,z*°Ot* 
0436 C2 01 0000 787 WxR1 = =LB +-%, IRI 
043a CO &7 C000 788 B e-2 
} 043h 789 SEISx@ EQD) %1 
0001 790 DROP XR1 
O40R 791 USING EATSHS-1,XF2 
; O43E. 38 02 0466 792 RTEST ST TEXIT1¢3,XB2 SAVE INDEX EEGS AUD SET OP BASE 
0442 C2 02 O40RB 793 LA DATS&S-1,XR2 
0446 B& OT 57 798 ST TEXIT+3(,X2) -XB1 fe 
0849 BH O8 5F 795 ST TESTE43 (,XER2) ,ARR LCAD RETURN ERARCB 
o44c CG 67 7800 796 B TEYFCD SEE IF FED LOALED 
0450 F2 87 OC 797 TSTCVL J TEXIT ( S¥S DATSWS(-XR2),0 ) READ SWITCH 
\ 0453 BD ED 00 798 CLI CATSWS-1(.XR2) .X°ED* 
0456.F2 8&@ 13 799 JH TEST1 
0459 BE DO O80 800 TEN DATSWS-1(,%R2) -X°DO® 
; 045C F2 10 OD 801 af TEST? FCR CARD SYS {( JT 0 ) 
O45E 802 TSIDSK 2Q0 *-1 
O4SF C2 01 O00CO 803 TEXIT La #-#,XE1 RESTICRE INDEX REGS AND EXIT 
j 0463 C2 02 0000 808 TEXIT1 LA e—#,XR2 SUBROUTI2E ae 
0467 CO 87 0000 805 TESTE B +-* 
O46B 40 O46B 806 DC XLiteo® ABNCBSAL TERBINATION 
} Os6c @07 TESTI ECU 
‘ 808 
O46C BC 3C 78 809 HLTA SSVI THLT+2(,XR2) IF HALT TO MOTE VALIC SW ENTRY 
; O46GF F2 87 OF 810 J THLT - 
git 
0472 BD 3E 78 812 TEST2 CLI THILT+2(,XR2) HP FORCE ALTERNATING HALT CODES OP 
} 0475 F2 81 06 813 JE LEST3 -KE- AND -BU- (BP FIRST) 
0478 BC 3E 78 8748 HLTB SSVI ‘THLT+2(,XB2) HP 
O47B F2 87 03 @t5 3 THLT 
| | j pe = | 
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. SNANCE DIAGNOSTIC PROGRAS PART WO. &288230 
IBM MAINTENANCE DIAGNOSTIC PROGRAM ee MOe S2S82305 FEE BAN TENA NC $ nace oA 
Cc ONTROL PROGRAB = MODEL 12 
FFF4 DIAGNCSTIC CONTROL FROGRAE ~ BCDEL 12 pFFF4  DIAGNCSTIC C 
Cc E 
ERR LOC OBJECT CODE ADER STMT SOURCE STATEBENT ERR LOC CBJECT CODE ADER SIRT SCURCE STATEMENT 
. } 879 eeee8808 seseenes 
O47D 816 13 EGU wae e BED F LINK FA PEH eS SSS ee HES HEE HOTEHHEEHE ERODES SSS OEEESEESEDHEEESEEERES LINK © 
O47E BC 6EF 78 817 TEST3 MVI THIT¢Z(,XP2),80 7 at eeasctta pee 
0481 FO 3B 00 818 THLT EPL *~#*, BH BALT -RE- OF ~HU- FIR SWITCH ERTRY 4 aN : 
819 > 
; 5 883 *  SUBROUTINZ TO FROVIDE ROUTINE TC RCUTINE AND SECTION TO SECTION * 
ee eee et 0489 a ISICRD Eon a Breen git ery ee } 864 * LINKAGE. THE CCNTRCL PROGRAM USES THE FOUTINE PREFIX AS AR * 
: & 
0487 B8& DO CO 822 TEN DATSWS-1(,XR2),X'CO" FOR CARD SYS ¢( 3 TEST? } a : INTERFACE BETWEEN DIAGNOSTIC SECTION ANC CONTRCL EROGRAR. : 
O48A BI 20 00 825 SEF Bar oea ten Ue) ah) 20" CE) SHOR SESE SES EERE TRESS SESEAERESE SORTER ES SESSEEESE ETS TET EREEESOEEEED ESE 
048D F2 90 23 824 JF TEST? } 86? 
825 , “ 
826 * D FOUND IN LEFTMOST SWITCH SC ZERO TAZLE GS2k 34 01 OS6B ee RLINK ST LNKS#3,2R1 SAVE xR1 
0490 C2 01 O7IFA Eat eae eee Pye ee en } 9525 Oo 8. O43E 691 LNK1 RIEST GO CBRECK DATA SWITCHES 
0494 3C FD 02F7 p26 we ee Pe 0531 892 I7R1 ECD #4 
Shee 7 a 37 7 aa6 a PAEECLEDS ant : 0532 38 40 0208 894 TBR SEYTEO,SSRO1 PROVIDE LCOF OR ROUTINE IP SS¥WO1 On 
rd 2 = 
i ee 0536 F2 90 OB 894 JF LNK2 
i OUA2 oe ace ree a Opt et oan nn ee ore ee 0539 3D 01 Oa03 895 INK7A C1I  KROB,X¢OT* IF FIRST BTW BEING RUN, GC TO 
: ao 4 s OVE DATA TO DISK LOAD TRELE 953 CO 87 0000 896 BE oe PRCGKAM BESTART 
O4A3 6C 02 G2 0% 833 TEST6 MYC 2(3,XR1),DATSHS(,XR2) MOVE DAT I é L ; iG Tae 
O4A7. 79 OF G2 834 TBF 2(,XR1),X*OF!* CRECK FCR DEXO 0547 F2 87 44 oe 8 
cg 
mie 7 A a 336 oe jae ekeods TORR BIT? OFF 0544 3D FF 0210 699 LUK2 CLI RPPX-1,X¢FF* IS THIS LAST BOUTINE 
O4B0 837 TEST6A EQU * 054@ F2 01 OD on JNE LHK3 HO, GO C8 TO CHECK FURTBRER 
LLOW REXT F°.TRY 
Ree eee ao F ec ee Oe . 054B 38 80 0208 902 TBX SBYTEO,SSHOO TEST FCR LOCP ON SECTION 
Cee Pes e ewe Se eee spl Weenh Chea ee : O54F CO 10 000C 303 BT 0 YES, GO FESTART PROGRANR 
U4B6 F2 0% 08 840 JNE TEST ; 
O4BS 8C 01 SF 0556 841 MVC =- TESTE#3 (2,XR2) ,ITR? 0553 CO 7 O26 er ae seg: cea? cpeeee NO, GC LCAD BEXT SECTION 
O4BE EO 87 67 842 B TEST2(,XR2) GC ALLCH WEXT ENTRY } eee: leer ee aaa 
O4C1 843 TEST7A EQH * 0557 00 ahs Cc 
: - 2 @ 
aes A e i oo oe ee tRenerhrd ; 6558 35 01 0211 908 LINK3 L RPFX,XR1 SET UP TC GC TC NEXT ROUTINE 
C4&C7 BD FO 00 846 CLI DATSWS-1(,2R2) ,X*FOt 055C OF 00 0103 0399 9c¢g ALC RNUS (17) ,ONE INCREMENT ROUTINE NUMBER AKT 
OUCA F2 071 15 847 IRE TEST11 7 e 0562 ibd 00 0A03 00 $10 cic BRUM (1) ,0(,XR1) CHECK AGAINST RIN PREFIX 
O4CD BA 01 24 848 SDN MODIFY(,XR2),xX*°O1¢ CHARGE TO SET PITS OFF 0567 F2 81 07 911 JE LNFS ; 
O4DO BD 30 01 849 TESTS CII CATSBS(,XR2),xX*308 BAKE SURF SS# WOM IS 00-2F } OS6A FO 3B 57 $12 HLTE HPL 83,BH *RTR ROK IM FLE Peas oe Serene 
04D3 F2 82 C6 850 JL TESTO OS6D CO 87 O52E 913 B LNK1 GO CHECK FOR CATA SWITCE ¥ CA 
O4D6 FO 3B 76 8£1 HLTD EPL 82,HH *ERRCE-SSR @ HIGHER THAN X-2F- ) oe * TICK 
852 4 CR *INVALID RTH SELECT OPTION € 
O4D9 EO 87 67 853 B TEST2 (,XR2} GC AILCW NEXT ENTRY 0577 1¢ 03 0271 03 ‘916 INKS AVC RPFX(4),3(,XR1) SET UP CURRENT ROUTINE PREFIX 
O4FC 854 TESTO FOU * 5 0576 38 20 0208 917 TBN SBYTEO,SSWO2 CHECK FCK BYFASS MANUAL INTERV RTNS 
O4DC EO 87 62 855 B SETSSW(,XR2) . 057k 78 80 01 318 TBN 1(,XR1),BITO CHK KIN FFEFIX MANUAL INTERV FLAG 
ONDF EO 87 67 856 B TEST2(,XR2) GC ALLCW REXT EXTRY O57D CO 10 0584 Siy ET INK2 SKIP RCOTINE IF POTP CONDITIONS TRUE 
O4WE2 BL F2 00 857 TEST11 CLI DATSWS-1(,3R2) ,X*F2* : Geet Me oario’ oo a A eeioaeS 
O4E5 EO 01 54 858 ENE TEXIT(,XR2) 2 ’ ’ 
O4E8 35 01 OAOT 859 L FRIN,XR1 START CHECKING WITH FIRST ROUTINE 0584 34 01 OS8F 922 ST LNK643,XR1 LCAL FOUTIBE STARTING ADLK 
O4EC 1C 00 OA03 00 860 MVOC =—- RFOB (1) ,0(,XR1) LOAD CURRENT RTN NOM WITH FIRST ONE \ 0588 C2 01 0000 923 INKS LA *-*,XF1 RESTCRE INDEX REGS 
O4F1 1D 60 0a03 GO 862 TEST12 CLC RNUM(1),0(,XR1) IS THIS RIN EREFIX CORRECT Q O58C CO 87 0000 228 INK6 8B e-* FXIT SUBRCUTINE 
OWF6 F2 81 06 862 JE TESTIS YES - ERANCH 925 
O4F9 FO 3B 57 863 TEST13 HPL 43,HH *HTN NUNPER CUT CF SEQUENCE } 
O4FC EO 87 67 864 B TEST2 (,XR2} GO ALLOW ENTRY AGAIN 
O4FF 9D 00 01 00 865 TEST14 CLC CATSWS(1,XR2),0(,XK1) ERANCBR IF THIS IS SELECTEEL 
0503 F2 81 12 866 JE TEST 16 RCUTIRE % 
0506 7D FF 02 867 ClI 2(,XR1),X*FF* CHECK FOR LAST ROUTINE INDICATION ” 
0509 CO 81 O4D6 868 BE HLTD YES, ERANCH TC FRROR HALT 
050D 2£ 00 0A03 03 869 ALC =- RNUB (1) , TONE (,XR2) INCREMENT ROUTINE NUMBER ) 
0512 75 01 03 870 L 3(,XER1) ,XR1 LOAD ADDRESS OF WEXT RTN PREFIX 
0515 EO 87 E6 871 B TEST12(,XR2) GC CHECK THIS RIB RUB 
0518 1c 03 0211 03 872 TEST16 MVC RPFX(4),3(,XF1) SAVE ROUTINE PREFIX } . 
051D D2 01 04 873 LA 4(,XR1) ,XR1 LOAL ADDRESS OF FIRST INSTRUCTION 
0520 BY 01 SF 874 ST TESTE+#3(,XR2),XR1 IN SUBROUTINE EXIT 
6523 34 01 O58F 875 SI LNK6¢3,XF1 SET UP LINK EXIT IN CASE LOOPING ) 
0527 EO 87 67 876 B TEST2 (,XR2) GO ALLCW NEXT ENTRY 
0002 877 DRCE Xz 
DATE 29A0G75 O7NOV75 19MAR76 0330R76 11FEB77 EROG IL FFr-" DATE 29A0G75 O7NOV75 19BAR76 G327N76 11PEB77 PROG ID PFF-4 
EC NO. 827804 827805 827872 571871 387010 PAGE 9 py EC NO. 827804 827805 827872 571871 387010 PAGE 
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IBM MAINTENANCE DIAGNCSTIC EROGRAM PART NO. 4248230, T6M MAINTEWANCE DIAGNOSTIC PROGRAM PART NO. 4208230 
PAGE 10 : PAGE 0A 
FFF4 DIAGNOSTIC CONTROL PROGRAM - MODEL 72 y FFFA DIAGNOSTIC CONTROL PROGRAM - MODEL 12 
ERR LOC OBJECT CODE ADDR STBST SCURCE STATEMENT ERR LOC CBJECT CODE ADDR STMT SCURCE STATEMENT 
927 *etekanne eeevasans) 0608 9C 00 ip 00 989 ¥VC NSFACE(1,XK2),0(,XR1} LCAD SPACE COUNTER 
92E * PRINT FEREERERAEEEREERERRERDE REESE EREE EE EERE ES HSOEEDEEEEE EERE PRINT * O60C BB F8 iL 990 SEF WSPACE(,XK2) ,X*F8* LIMIT TO SEVEN 
929 #eteeen0% ESCRES SSS, O60F 3C 60 06C3 991 BVI PRI64+1,96 SET UP COUNT FOR CONSOLE 1/70 
930 * LINKAGE TC ERINT IS AS FOLILCWS-- * 992 
921 * * 0.13 78 10 00 993 TBN O(,2R1),BITS ERANCH IF THIS IS SPACE OBLY OP 
932 * B PRINT WHERE PRINT IS EQUATED TO 1304 *) 0616 F2 10 BS 994 JT ERT? 
933 * pc XLI*FLAGS* * 0619 78 20 00 995 TEN 0(,%R1) ,BIT2 SKIF SETUP IF DATA FIELD READY 
434 * 1*DC ILt*LENGTH -MAXINOM CF 94-1" * G6iC F2 10 ag 996 JT PRI6A 
935 * 1*DC AL2 (ADDRESS OF LAST CHARACTER CF PRINT FIELD) *) er Stee. O711 oe oo coated 2 Scenes DUMMY COMMAND TC BAKE SORE WO BUSY 
936 * 2,1*DC XL2*MESSAGE IDENTIFICATION® * z 
937 4 FLAGS * 0625 OC 83 O8FF 0900 999 HVC = .EDATA¢137(132),LPCATA¢732 BLANK PRIRT BUF 
938 + BIT 0 - DEFINES THIS AS AN EFROR PRINTOUT *} ee S a ae se0e a ee SKIP HDG PRINT IF KOT CALLED FOR 
939 * 1 ~ FIRST LINE OF MESSAGE -HFADING PRINTED- * 2E 
940 2 2 - PRINT FRCS DCP ERIET AREA. * 0631 D2 01 05 1002 LB 5(,XBR1) ,ZR1 SET UP TO URPACK SESSAGE 
944 * 3 - SPACE ONLY ® 0634 B4 01 BC 1003 ST IDADDR(, X82) ,XF1 IDEWILEZER 
942 * & - RESERVED mu 0637 CO 87 O21E 1004 B UREACK UNFACK IT FOR PRAKTING 
943 * 5 - BITS 5-7 MUST CONTAIN THE NUSBER OF * + 063B 02 0635 1005 pe ILV#2° 
O4y * 6 - SPACES CESIRED. FOR A PRINT, -001- —*) bese 0008 ace ae eee | 
945 * 7 - MUST BE ENTERED TC PRINT AND SPACE TO * : o 
946 # THE NEXT LINE. -* sO— MAY BE FNTEREEL * 0640 CO 87 O21E 1008 BE pete PUT PROG IDERT I8 PRIBTOUT 
947 * TO EROVICDE FOR MOLTIFLE OPERATIONS ON *) pene ee eae acne Be AED IEnOGaE 
948 * THE SAME LINE. * 
949 ® * 0647 05¢c4a C648 1014 DC =—s_— AL2 (HDG 1+ 18) . 
950 # 1#NOTE ~ THESE PARAMETERS MUST EE ABSENT POR SPACE * pee 87 O21E au teas .. eee FUT ROUTING WOM IN HEADING LIWE 
951 * CNLY OPERATICNS. #! 1 
952 * * 064%E OA03 O64F 1014 pc AL2 (RRUB) 
953 * 2*NOTE - THE BESSAGE IDENTIFICATION IS INCLUDED * 6650 05¢c7 0651 7015 pe AL2 (BDG 1421) 
954 * ONLY FOR A FIRST LINE PRINTOUT. THE FOUR + be oo et aa gece weabioige. .:2 2 recent SEACE BEFORE PRISTING HEADING 
9&5 * DIGIT IDENTIFICATICN FEFERS TO A TABLE OF * 6 
956 * ERROR DESCRIPTICNS O8 ERINTOUT CEPINITION.*) 0658 2¢ %B 0893 1c aya FYC PLINE¢27 (28) ,HEG(,XR2) MCVE HEADER LINE TC PRINT FIELD 
957 * * 
ae ; * 1020 ** SET UP SENSE SWITCH PRINTOUT 
oes : ORT ee See i Eycuee Senleieee ces * 065B C2 0% 089C 1021 LA PLINE+28,2R1 SET UF PRINT FIELD POINTER 
960 * SS¥OS - USE ALTERNATE PRINTER : « 0661 BC 00 IF 1022 BVI SRUMB(, ZE2) ,0 SET SWITCH # TO 0 
961 * : * 0664 OF 05 020D 020D 1023 CHKSWS ALC SBYTE5 (6) ,SBYTES ADD SENSE BYTES 
962 Citra St Te cc ee sere erase eta SOC esO Ste SESS eee SSS eee Re shee est certs) fe “ 2 can ae reg Brasee omnes . TEST FOR HO OVERFLOW 
D 3A 
Ree ueee Bee te raeane 0671 D2 01 03 1026 LA 3 t-XR1) XBI SET UP PRINT FIELD 2 
0590 E2CSC3E3C9DED540 OSA7 964% THSG DC CL18*SECTION TERBIRATED* Dee a Gk oe = eeneseC aes aa ! 
‘ od # 
pede ea . } 0677 CO 87 0363 1028 B ROVEK URPACK SSW € INTO PRIBT FIELD 
0582 E2C5SC3E3C9DED540 OSAF 96£ LuSG DC CL18*SECTICN LCADEL* O67A 1029 ITRU = EQU #~1 
5 067B 01 067B 1030 XCFF pC IL1et?# 
ostG ce ace AL2(EUINE } 067C 0550 . 067D 1031 oc AL2 (SBUB) 
ope eee fee ace Aes ae * : ) 067E 009A O67F 1032 SSDEST DC XL2°009a8 
=D : : 0680 7C 6B 01 1033 BVI 1(,XR1),C*,* PLACE , INTC PRINT FIELD 
O5B2 40C9CKUOETE7TE7TE7 OSCD 968 HDG DC CL28* ID XXXxX. PROG DOXX-RR. ssws? } Dees Ae Gari tck 1038 WEXTSS ALC SHON (1,282) ,XOWE(,2R2) ce. careeue 
BeeD EueveTecbouceeca ts | . ; 0687 BL 30 iF 1035 CLI SHUM(,2R2),xX°308 CHECK FOR LAST SSH 
O5C2 EVETE760D9DS4B4 968 068A ED 82 B3 1036 : CEKSWS (, X82) BRANCH IF Lcw 
OSCA E2E2E6E2 05 968 . re } 068D 7¢ #80 04 1037 MVI 1(,XRt) ,c* ¢ CLEAR TBE LAST COBMA 
ce 989 Ses Bou tne _ 0690 3C 7% 06C3 1038 CRECHG BVI PRT6+1,xX"7F* ~ PUT ACTUAL LENGTH OF LINE INTO 
oe fear age er ee . Pre anu nans 0694 2E 00 06C3 CE 1039 ALC = FFTU*1(¢i) ,SSDEST(,XR2) - FFT6¢1 FOR THE KEYBOARD PRIWTER 
OSCF 9Gu0 0550 971 SNUM DC X12+08 } Oe ea kar oqak sane . pare GO PRINT THIS BEADING 
eee Mang econ ces. ee ar ae 069D £200 06°F 1047 ERTHG pC XL2*E200* 
u5SD2 34 02 070C 973 RPRINI ST PRTE243,XR2 SAVE INDEX REGS AND SET UP BASE Deer en Ga aan ae ease 
pent ee oa coos ae an poops } O6A3 E001 O6A4 1043 pc XL2°*ECO1* © 
O5DA 34 01 0708 975 RPCNE ST PRTEI+3,XR1 seas 
OSDE 3&8 08 0710 976 ST PRINTE+3, ARR LCAD RETURN ADDRESS 2 ; LL LOAD THE 
MVC PRI64¢1(1),7(,X21 SET UF HOVE WHICH wi 
OSE2 35 01 0710 977 L PRINTE+3, X84 SCtNs Ae EREY TED ist SR IRA yy DRA Ae 00. 0ees ae fae eee Spee coue ) PRINTOUT FCTHTED TO BY PARAMETER 
O5E6 3C 40 0900 978 MVI LPDATA#132,c" * SET BLANK CHAR INTO x900 ONCE Geob eet ae 9 Sh aT cae SKIE PRINTING IF COURT Is ZERO 
$79 : 
O6E3 iC 01 06C7 03. 1048 HVC PRI64¢5(2),3(,7 1) 
eee ea Gee aoe Wye: SEROUS ; } O6B8 2C 01 06C5 20 1049 BYC ERT643 (2) ,ER3 (¢ZR2) 
OSFE BC 40 01 981 MVI HDG1(,XR2),Ct * PUT NON-ERR PRINI INDICATION IN HDNG te none ces a0nG ALC ERTG*3(4) . 1681) . 
O5F1 78 80 00 982 TBN O(,XR1),BITO BRANCH IF THIS IS NCN-ERROR PRINT cee ae 56 eee nae 1024 hte. nee 9-9 (8-8) 8-8" SET UP PRINT LINE 
era ee ee eae re eas } 06C8 CO 87 0771 1052 FRT6A ERTE PRINT TBE LIBE 
O5F7 BC 5C 01 984 MVI HDG1(,XR2),C**! PUT ERROR * IK PRINT LINE i Rees toes a 12° E3008 
O5SFA 39 16 0208 985 TBF  SBYTEO,SSkO3 O6CC EZ0 sere . 
one bese) 08 286 4 rece : ORE¢1(,XR2) SPACE PRINTER DESIRED 
0601 39 98 0208 : 987 PRT2 MTBF SBYTEO,SSWO4 EXIT IF SENSE SW TO BYPASS THIS ares! O6CE AF OG 1D 2A tree ERT? Be ee Maude ee acaee 
0605 F2 90 £7 9@8 ERT2A JF PREXI1 . ERINTCUT IS ON O6D2 F2 82 OA 
. : -, : j i 
PROG ID FFF-& 
DATE . 29A0G75 | O7RCV75 =» 19MAR76 = O30UN76 = W4FEBT7— FROG ID FFF-G DATE gore pt aogenne ay breads 7 Tice 10a 
EC NO. 627804 827805 827872 571871 387010 PAGE | FOP EC BOs: G27 908 . a ee a; 
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IBM MAINTENANCE DLAGHOSTIC PROGFAK 5. , . PART NO. 4246230, IBS MAINTENANCE CIAGNOSTIC PROGRAR | PART NO. &248230 
oS PAGE 41 ; . FAGE QA 
FFF4. DIAGNCSTIC CONTEOL FROGRAN - BODEL 12 7 | pFFF4 = DIAGNCSTIC CONTRUL PRCGRAF - BCDEL 12 e 
ERR LOC CBJECT CODE ADDR STMI SCURCE STATEMENT ERR LOC OBJECT COFE ADLER STAT SOURCE STATEEFENT 
} 
57 0776 C2 02 05B1 1125 ERTEXT LA FR3,XF2 RESTCRE XR2 
ee eae” veyA O6LA vee SPAPRT ae aro hoods 077A 35 01 0710 112€ L PRINTE*3,XR1 RESTCRE FARAMETER POINTER 
O6DB CO 87 O6CE 1059 B PRT? } 077E CO 87 0000 sa FRINE 8B -* EXIT SUBROUTINE 
10€0 : 
O6DF OC 84 O8FF 0900 1061 PREXIT HVC LPDATA+#131(133),LPDATA+132 CLEAR ERINT BUF [LOWR TO C782 O52A 0763 1129 ITRZ dC AL2(RLINK) 
1062 * X°S7B* FOR PTR SYSTEM TEST } 0784 0990 0785 1130 ITk5 DC AL2(RHALT) ; ; 
06E5 35 01 0710 1063 L PRINTE+3,XR1 ADJUST EXIT ADDR TO MISS 1131 
O6E9 D2 02 00 1064 LA 0(,XK1) ,XR2 . 0786 1132 ALTERT EQU * 
O6EC 78 40 00 1065 TBN O(,XR1),BIT1 FARAHETEF LIST ) 6786 C2 01 078D 1133 LA ALTERI+7,XR1 SET UP INDEX REG FOR ALT PRINTER 
OGEF F2 90 03 1066 JF ERTE U78A F2 87 06 1134 J #45 GET TO THE START OF THE ALT PEINTER 
O6F2 E2 02 02 1067 LA 2(,XR2) , XR2 1135 * ALTERKATE FRINTER DEVICE CCDE BEGINS HERE 
O6F5 79 30 00 1068 PRTB IBF 0(¢,XB1) 7X* 30° ) 71136 SPSS AEEREEHAHE ES OOETEAAESH TESS EEREESEEEEEEEREEEEERED 
OoF8 F2 90 03 1069 JF ERTS 1137 * 5471 AS FRIMARY ALTERNATE 
OGFB E2 02 03 1070 LA 3(, X22) eXR2 Vi3E PRESTR ESHEEAFASAAIAERESE SEEDS OO OE $4999 084909 HREERE 
O6GFE E2 02 01 1071 PRT9 LA 1(,%R2) .XR2 ) 1139 
0701 34 02 0710 1072 ST FRINTE+3,X82 0711 1140 USING FRIN, X82 
1073 O78P 114% ERTRA ECU *# 
0705 C2 01 0000 1074 PRTE1 LA w—*,XR1 RESTORE IRDEX REGS AND EXIT \ 1142 
0709 c2 02 0000 1075 ERTE2 ILIA *—*,XR2 078D FO 3B 5F 1143 HPL H9, HH ' SKEYECARD ERINTER ERROR 
070D CO 87 0000 1076 EFRINTE B +-* 0790 EO 87 13 T1404 E ERINI(,XF2) 
1077 . 0792 2E 00 06C3 08 1WGS PTCIO ALC PRT641(1),ZONE(,XR2) ADJUST LENGTH OF ERINT 
1078 o* ; 0798 3B 80 06C3 1146 SEF  ERT6¢1,X*80! LINSIT NUMBER OF CHARACTERS TO 127 
1079 ** STANNARD INPOT/OUTEUT SUBROUTINE USED BY THE ¢FINT ROUTINE. : 079C BC 81 B5 1147 BVI = CIC2X#2(,XK2),X°81" SET UP TO DC PRINT 
1080 ** THIS SUBRCUTINE SUPPORTS THE 5203/1403 PRINTER ANC THE ALTERNATE ‘ 079F BD EO 5D 1148 CLI ERSIO+¢1(,XR2) ,-X*E0* CHANGE TC CARRIAGE RETURN IF SPACE 
1061 ** OUTPUT DEVICE ONDER CONTROL OF SENSE SWITCR 0S. COCING FOR : O7A2 F291 18 1149 JNE CI01 ONLY 
10€2 ** ALTERWATE PRINTERS FOLLOWS THIS SUBROUTINE. THE LOADER SELECTS O7A5 BD QO 5E 1150 CLI FRSIC#2(,XR2),0 SKIP CAKE RETORN IF SPACE 0 
1083 ** THE ERCEER SUERCUTINE. } O7A8 EO 81 65 1151 RE ERTEXT (, XR2) 
1084 4% O7AB 3D 02 OSCE 1152 CLI NSPACE,2 LIMIT NUM SPACES TO 2 
1085 O7AF F2 82 O48 1183 JE #47 
0711 1986 USING ERTN,XR2 } O7E2 3C 0Z OSCE 1154 AVI NSPACE,2 
0711 C2 02 0711 1087 PRIN LA ERTN, XR2 SET OP COMMAND AKD LOAD BASE i O7E6 3C 00 06C3 Vaiss BVI FRI6+1,0 
0715 B4 08 70 1088 St PRIRE¢3 (,XR2) ,ARR ; O7EA BC 41 B5 1156 MYT «=CIC2X#2(,XR2) ,X°41* 
0719 1089 ZONE EQU *41 ) O7VED C2 01 0880 4157 CroO1 LA X¥*880*,XR1 POINT XR1 AT PRINT FIELD 
0718 BS 01 70 1090 L FRINE+3(,XF2) ,XR1 07C1 7% 18 01 1188 CIO1B LIO 1(,xXR1),x*18* LCAD CHARACTER TC BE PRINTED 
O71B 9C 07% SE 01 1091 HVC PRSIO+2 (2, 382) » 1(,2R1) O7C4& F3 18 00 1159 CIO2X STFo *-*,X%°188 ISSUE CCMMARD TO 54871 
071F 8E 01 70 0338 1092 ALC =PRTNE4#3(2, XR2), TWO ADJUST RETURN ALCDRESS 07C7 BO 19 40 1160 SWS CICSTS(,XF2) ,x°19° HALT IF ERRCR 
0724 CO 87 0212 1093 PRTR1 B TEST CHECK DATA SWITCHES * MTCA BY 03 40 1161 TBF CIOSTS(,XR2),X'03* 
0728 38 80 05D1 1094 TBN PTAGS,BITO GO EXIT IF SSW TO EYPASS TEIS TYPE 07CD EO 90 7c 14€2 BF CTORLT (,XR2) 
072C F2 90 07 1095 JF PRIN2 CF FRINTOUT IS TURNEL ON . 07D0 7C 40 00 1163 MVI = O(,XR1),C* * CLEAR CUT THIS CHARACTER 
072F 39 10 0208 1096 TEF SEYTEO,SSWO3 07D3 D2 01 01 1164 LA 1(,XR1) ,XR1 INCREMENT PRINT FIELD PCINTER 
0723 F2 87 04 1097 ag PT90 O7DG 2F 00 06C3 08 4165 SLC PRI6+1(1) , ZONE (,XR2) ; 
0736 39 08 0208 1098 PRTN2 TBF SBYTEO,SSWO4 O7DB EO 02 BO 1166 BNI CIC1E(,XR2) CONTINUE UNTIL WHOLE LINE PRINTED 
073A CC 90 O6DF 1099 F190 28F FREXIT O7DE £0 87 65 1167 B ERTEXT (,XR2) 
1100 116€ 
073F 39 0&8 0208 1101 TBF SEYTFO,SS#05 IF ssw 05 o ' 0751 1169 CICSTS EQU  MSTAT 
0742 F2 90 41 1102 JF ALTERT PRINT ON ALTERRATE. f O7EO 1170 LAST EQU — 4 BUST BE LAST SS ATEBENT OF OVERLAY 
0745 38 04 0208 1103 HOALT TBN SBYTEO,SSWOS5 IF Sssw05 IS OH, O7BA 1171 C1O1A EFOQU ALTERT+CIC1E-PRINA 
0749 CO 10 0776 1704 ET  -ERTEXT DCK*T PRINT ON 1403. } 078D 1172 CICHLT ECU PRINA 
O74D F2 87 OF 1105 J FRIBE O7BD 1173 CIO2  £EQD ALTERI¢CIO223-PRTNA 
1106 1174 
0750 0000 0751 1107 MSTAT DC XL2*0* % FPEO 1175 ORG X‘FFFF*-X°800'+* = IF FLAGGED, X'800" BEING OVERLAYED 
OOF6 1108 LEBUSY EQU x*E6! TIC ¢ CODE - 221IC BUSY Pt 1176 
OOFO 1109 LENRDY EQD X* FOr TIO Q CODE - 221C ¥OT RDY OR ERROR 0800 1177 ORG x*soo# 
0752 0800 0753 1110 ER1 pc AL2(LPIMAG) ‘ 0800 1178 LEINAG EQD) # 
0754 O87c 0755 1141 ER2 Dc AL2(LFEDATA) ; 0800 FIFZF3FUFSF6 0805 17279 DC XL6* FUFQF3SFAFSF6* 
0756 7070 0757 1212 PR4 pc XL2*7070' FORMS LENGTH = 112 SC E1F WILL RUN 0806 F7F8F9FO7B7C O80B 1180 Dc X16" F7F8FSFO7BI7C* 
1113 * IN SFACING UF TO REAL PRINTOUT O30C 61E2ZE3EGESE6 0811 1181 DC XL6"6TE2ZESERESEG® 
| 1118 0812 E7E8ES506BeC 0817 1182 DC XL6"E7TESEOSO6E6C# 
0758 FO 3B 7D 1115 LPERR2 HPL #H6,HH *PRINTER NCI REALY OR ERRCR 0818 D1ID2D3ID4DSL6 08 1D 1183 DC XL6*DID2D3DUDSL6* 
075B EO 87 13 1116 B PRTN1(,XR2) \ C81E D7D8D9605B5C 0823 1184 Dc XL6°C7P8D5605E5C* 
O75E Et EO 4? 1117 PRIME TIC LEERR2(,XR2),LPRRDY GO HALT IF NOT READY OR ERROR | 0824 C1C2C3C4C5C6 0829 1185 DC X16*C1C2C3CHC5C6* 
0761 Bi EO 46 1118 LIC = FR4. (, 382) , X* EO! LCAD FCRES LENGTH 082A C7TC8C94E4SETD O82F 1166 DC XLO6"*C7CECOMEGRIE? .; 
0764 BI EW 42 1719 LIO EFR1V(,XR2) ,X'EG! LCAD FRINTER LSRS AND PRINT A * 1187 * TO FILL CUT IMAGE IW CASE UCS IS MOUNTED. 
0767 B1 £6 44 1120 LIO = =6FR2(,%R2),X*E6! LINE 0830 0000000000006000 0877 11288 DC XL72°0* BUT IMAGF IS &8. (120-&8=72) 
076A BB 08 SD 1121 SEF FRSIC+i(,XR2),X*°08" SET UP TC PRINT CN LEFT CARRIAGE 0838 0000000000000000 1188 
075D F3 00 00 1122 FRSIO SIO %-#,#-% 0840 0000000000000000 1188 
0770 £1 E6 5F 1123 BSYLP TIC BSYLF(,XR2),LPBUSY WAIT FOR BUSY TC DRGP 0848 0000000000000000 1188 
0773 E1 £0 47 1124 TIC LFERR2(,XR2),LENRDY GO HALT IF ANY FRROR 0850 0000000000000000 1188 
DATE 29AUG75 O7NOV75 19MAR76 03J0N76 V1FEBI7 PROG ID FFF-4 DATE 29AUG75 O7NOV75 19MAR76 033UN76 : F- 
EC KO. 827804 827805 - 827872 571871 387010 FAGE ’ a EC NC. 827804 827805 827872 25381 angio. pa oes 
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PAGE 12 PAGE ¥2A 
4 
FFF4 DIAGNOSTIC CONTROL FROGRAM - MODEL 12 .FFF4  DIAGNCSTIC CONTROL PROGRAM - MODEL 12 aoe 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADER STINT SCORCE STATEMENT 
0858 0000000000000000 1188 FFFF 1247 CRG xX" FFFF*-x'960tee IF FLAGGED, CODE IS OVERLAYING ITSELF 
0860 0000000000000000 1188 0980 1248 ORG x*960° 
0866 0000000000000006 1188 1249 * eeeeseeeeee HALT HUST START AT X*980° seesevenececse * 
0870 0000000000000000 1186 } 12£0 . 
1189 125% seeesene REOCEKED 
1190 4% | 1252 S HALT SES St esSSRtFSSSESAHSESEKS SASS SSEKEAKSSHERES ST SSSKISESAKKSHSHESESSTES RALT * 
1191 ** THE FOLLCWING INSTRUCTICNS COMPLETE THE SECTICN LCADER 8Y 1253 seeeens eesseere 
1192 ** HANDLING END CARDS. IT IS IN AN AREA THAT IS READ INTO PY 1zce ® * 
1193 ** THE DISK LCADEF. 1255 *® SUBROUTINE USED TO FROVIDE A CCMMOR HALT FUNCTION. ENTRY TO THIS * 
0aC3 1194 CRG xX*A03# 1286 * ROUTINE IS ACCCHPLISHED BY BRARCHING-- * 
OAC3 1195 ENUM EQD * 1257 * ; * 
O87F 1196 CRG X'87FE ’ 1268 * B HALT WHERE HALT IS ECUATED TO 13412 * 
O87F 1197 X87F EQD * 1259 * pc XL2*00xxX¢ BOX EBBCR TCENTIFIER * 
087F 17198 USING XY87F,XR1 1260 * ° 
0900 1199 ORG x*9008 1261 * NORMALLY, CNLY A HALT WITH CODE *XxX*® WILL CCCUF. EUT WHEN THE * 
0990 40 0900 1200 DC Clie 8 12€2 * SYSTEM TEST IS RUNNING, BAIT "UU* WILL FRECELE BALT *x>* TO * 
0901 1201 ENDRTN EQU) #* 1263 * IDENTIFY THE DEVICE IN ERROR. * 
0901 OC 16 0016 O97A 1202 MVC 22(23),RESTRI2 PROGRAS RESTART j , i264 * - 
0907 38 86 0A02 1203 TEN SPFLGS,EITO BRANCH IF NO ODT ENTRIES 1265 ¢@ 00 - ONIT IDENTIFICATION * 
090B F2 10 35 1204 JT LDEND 1266 *® XX ~ INDEX BNUSEER * 
O90E C2 02 OAOA 1205 LA SPUDT, XR2 POINT XR2 AT SFi cICB PREFACE UDT i 1267 ® 
0912 C2 01 0232 1206 UFIND1 LA UIAB, XR1 FOINT X¥R1 AT CCP UNIT TABLE 1268 * IF THE INDEX NOMBER IS CI-9F, THE HALT WILL OCCUR UNLESS SENSE * 
0916 6D 00 00 00 1207 UFIND2 CLC 06(1,XP1) ,0(,XR2) BRANCH IF NCT EROPER UDT 1269 *# SWITCH 06 IS OR. HALTS WITH INDICES AO-CF ABE FERFORMNED ONLY * 
091A F2 01 18 1208 JNE UFINDS } 1270 *® WHEN NCR-ERRCR ERINTCUIS ARE PEING EBYPASSEL -SSB® O04-. HALTS * 
091D 9C GO 02 02 1209 MVC 2(1,XR2) ,2(,XR1) LOAD SECTION PREFACE OPTION . 1271 * DO-PF ARE SLGSAYS PERPORHED. * 
0921 98 53 01 01 1210 ONN 1(¢XR2) -1(¢,XR1) 1272 S®HESSEEAAETAASLESALSHRESH SKETCHES ASSES SESASEEASSSESKG SS HEEFT SRES SSS SESE SSKSS 
0925 BA 20 01 1211 SBN 1(,ZR2) ,BIT2 SET ASSIGNED FLAG } O$80 1275 USING HLITAS,XRZ 
0928 B8 10 01 1212 UFIND3 T3N 1(,2%R2),BIT3 0980 4274 HLTTAB EQU) * 
092B £2 02 03 1213 LA 3(,XR2) ,XR2 INCREMENT SEUT EOINTER 0980 6F0376571E5D 0985 1275 DC XL6"6FO376571E5D* IRBLE OF SRITS O0-F 
092E CO 90 0912 1274 EF UFIND1 IF NCT LAST ENTRY, GO LCAD REXT ; 0986 7DOTTFSF3F79 098B 1276 Dc ZLG* IDOTIFSE3ETS* 
0932 F2 87 17 1215 J LDEND CTHEFWISE - GO START SECTION 098C 6C737C3C C98F 1277 DC ZLG*FECT37C3C* 
0935 78 10 01 1216 UFINDS TBN  1(,XR1),BIT3 CHECK FOR LAST ECP ENTRY 127€ 
0938 D2 01 03 1217 LA 3(,XKR1) ,XK1 JNCREMENT TC NEXT ENTRY } 0990 34 08 6802 1279 RBALT ST ARRSAV,ARR SAVE BETURN ALEFESS 
093B CO 90 0976 1216 BF UFINE2 CONTINUE IF NOT LAST ENTRY 09&46 CO 87 O3~—6 1280 EB SAVREG GO SAVE REGISTERS 
093F BS 40 01 1219 TRF 1{,XR2),BIT1 SKIE EPRECK HALT IF REQUIRED FLAG 0998 C2 02 0986 1281 Lk HLTTAE,XR2 LOAD BASE 
0942 F2 10 03 4220 JT #46 NOT ON 099C 35 01 0402 1282 i ARRSAV,XR1 FOI#T XR1 AT PARAMETER LIST 
0948S FO 3B 03 1221 HPI H1, HH *UDT CANNOT PE SATISFIED OSAO OF 01 9402 0338 1283 ALC ARRSAY (2) , THO ADJUST EETORN ALCRESS 
0948 CO 87 0928 1222 B UFIND3 BYEASS ERROR IF HALT RESFT O9A6 7D AO 03 1288 CLI 1(,XR1),X*a0* PRASCH IF THIS IS ERROR BALT PAIR 
O94C CO 87 021A 1223 LDEND B PRINT PRINT DCP HEADING ANC SKIP UP j 0939 F2 82 10 1285 di HALT2 
0950 47 0950 1224 LC XL7¢47¢ O9AC 7D CF 01 1286 CLI -1(, ¥R1) ,X*CF* DO BALT IF COLE *"LOt-¢ FF 
0951 OE 0951 1225 DC IL7¢14°8 O9AF F2 84 11 12e7 JB HALT3 
0952 OSAF 0953 1226 Lue pc AL2(LHSG) . 09B2 38 08 0208 1288 TBN SBYTEO,SSWOS EXIT IF NOT BYPASSING ¥CH-ERR PRIET 
0958 FFOO 0955 1227 BC XL2*FFOO! J O9E6 F2 90 3B 1Z89 JF HEXIT 
1228 O9B9 F2 87 07 1250 J HALT? 
0956 39 04 0208 1229 TBF SBYTEO,SS¥07 BYPASS HALT AFTER LOADING SECTION. O9BC 38 02 0206 1291 HALT2 TBN SBYTEO,SSHOE EXIT IF BYPASS EPROR HALT SET 
095A 39 08 OFC 1220 TBF FLAG,BIT4 Pelee aya ioge oe li 
C9SE F2 90 03 1231 JF #406 . 
0961 FO 3B 3F 1232 HPL HA, 5B HALT TC ALLC® DATA SWITCH ENTRY \ 99C3 98 02 61 O89 1294 HALT3 8EZ LHLT1+¢3/,X¥R2} ,.O(,XR1) SET OUP TC LCAL CODES FOR iST HALT 
1233 *# 09C7 98 03 65 00 1295 MNN ZBLTIA+3(,XR2) -0(,XR1} 
1234 ** THE FOLLCWING FIVE INSTRUCTIONS ARE STORED AT LOCATION ZERO O9CB 98 02 6C Of 1296 ANZ LHLT2¢3(,XK2),1¢,XP1) SET UP FCR SECOND HALT 
1235 ** (0000) AFTER LOADING OF EACH SECTICN IS COMPLETED TC PRCVIDE OSCF 98 03 70 01 1297 SHN  LALT2.43(,XR2) ,1(,%R1) 
1236 ** A PROGRAM RESTART (SYSTEM RESET/SIAET) . ; O9F3 3D FF 0A00 1298 CLI X*A00*, Z°PFFS PERFORMS FIRST HALT ONLY IF SYSTER TEST. 
1237 OSD7 33 CO OA01 1299 TRF X*AOT*,X*cOt (ACTUALLY PGMS FFO,1,2,3 } 
0A03 1228 USING RNUM,XR2 : ’ O9DB FZ 96 OF 13006 Jc LELT2,X°96° - JUMP FALSE OR BIGH CR LC 
0964 C2 02 0A03 1239 LA RNUM, XR2 SAVE FIRST ROUTINE PREFIX AND OSDE AC 00 67 00 1301 LHLT1? SVC HALTA+1(1,%R2),%-*(,XR2}) IGAD PIBST HALT 
0968 BS 01 04 1240 L 4 (,XR2),-XR1 OSE2 AC 00 68 60 1302 LHLTIA BYC HALTA+2(1,XR2),*-*(,XR2} 
096B 9C 00 00 00 1241 MVC =-RNUM(1,X¥R2) ,0(,XR1) LOAL CURRENT RCUTINE NUMBER OSE6 FO 00 00 13G3 HALTA HPL *#-*,4#-* HALT TO INDICATE DEVICE 
O96F 1C 03 0211 03 1202 MYC  REFX(4) 53 (,XR1) ! OSES AC 00 72 GO 1304 LHLT2 BVC HALTE#1(1,XR2),%-*%(,XR2) LOAD SECCED HALT 
0974 CO 87 0212 1243 B TEST CHECK DATA SBIICHES OSED AC 90 73 00 43CE LHLT2A BYC HALIBS2 (1, 322) -%-* (, X82) 
0978 DO 87 04 1244 RESTRT B 4 (, X81) START FIRST ROUTINE , O9F1 FO 00 CO 1306 HALTB HPL %-¥*,*-# BALT TO DISPLAY INDEX BOBBER 
097B 0000000000 _ O97P 1245 DC —«xXLS*O8 FILLER '  O9F& CO 87 O43E 1307 HEXIT FE RIEST GC CHF ¢ PCR SWITCH ENTRY : 
O9F8 CO 87 03F7 1308 8 LDRES GO RESTCKE REGS & EXIT SUBROUTINE 
13093 SEKFAKKEKSHSESAAAKRSSESRSESKSESESSESSESR 
} 7370 # TRANSFER TAELE CCNSTSNTS SESSSEVSEESSEEKEETSESSSATETSSSRES ESSERE SSETSREK SS 
4241 SESEESSTESEEESSEEESHESSSOHESSD 
j 0531 1312 TR1 EQU) ITR1 
0783 1313 TR2 ECU. ITK2 
O2CA 1318 TR3 EQU ITR3 
DATE 29a0UG75  =—s-« OT HOW75 19MART6 0330N76 11FEB77 PROG ID °~—Ss FFF-4 ~DATE 29R0G75 O7NOV75 1OMART76 3I30R76 11FEB77 PROG ID FFP-6 
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FFF4 DIAGNOSTIC CONTEOL PROGRAM - MODEL 12 


ERR LOC OBJECT CODE ALTR. 


O67B 
0785 
0231 
0556 


DATE 2940675 O7NOV7S 
EC WG. 827804 827805 





STMT SOURCE STATEMENT 


1315 TR4 
1316 IRS 
1317 TR6 
1318 TR7 


TSHARTE 
827872 


EQU ITRS 
EQU TIkSs 
Fou ITR6 
EQU ITR7 
O3IJUNT6 
571871 


t 


PART NO. 4248230, IBM MAINTENANCE DIAGNOSTIC FROGRAS 


ERR 1GC CBJECT CODE 


PAGE - i 
, FFFG- 
i FFFB 
j 
1FEE 
} 1FEE 
‘ 1FFO 
; 
) 
* VFFY 
i + EF6 
1FFS 
é TEFFA 
3 1FEC 
1FFE 
; OF 86 
} 
, 
? 
) 
} 
) 
} 
j 
} 
) 
+ 
5 
FROG ID FFF-4 DATE 
PAGE 13, EC NO. 


D?AGNCSTIC CONTROL EROGRAM - SCDEL 12 


0000 


CO 87 OEF86 


0000 
040C 
040D 
QE86 
1318 
O2ED 


29R0G75 
827804 


ACER 


TFEF 


TFBS 
VFF? 
TFF9 
VEFB 
VEFD 
VFFF 


0010 
0008 
0004 
0020 
0081 
0001 
0002 
O87C 
0880 
0200 
Oa01 
OA0z 
OA07 
OAOA 
0018 
03879 


0080 
oc40 
0¢20 
0010 
0008 
0004 
0002 
0001 
0080 
OCc4O 
0020 
0010 
0008 
0004 
0002 
0001 
0001 


00380 
0040 
0020 
0070 
0008 


G7NOV7S 


PART WO. 4288230 
«AGE V3A- 


STMT SOURCE STATEMENT 

1320 CRG X*FEFF*-x*a00'¢# IF FLAGGED, X*A00* BEING CVERLAYED 
1321 #eeenanaeanne ; 
4322 * XREF REKAEKSEKSESSESKE:. SOSKSTHSHSSS SSH SK EKSETHEEERETEE SEEKERS SEEOEEESD 
1323 @eeeeeeean8 

1324 ORG X*UFEE* 

1325 bc XL2*0000* GSED TO PASS DISK ADDR OF '*FCO' TO *143% 
132€ * FOR THE CE TO CHANGE ULT ANC CPu 

1327 

1328 B BEGIN IW CORE AT IFL TIME, ANE THEN START 

1329 @ AT THIS ADDRESS TC GET A NEW PRINT 

1330 * OUT OF THE SYSTEM DATA. THIS ADDRESS 

13321 4 SHOULD NCT BE CHANGEL, SINCE OTHER RELEAS® 
1332 ¢ DOCUMENTATICN TELL THE CE TO USE THIS 
1333 * ATLRESS. 

1338 Dc XLz*0000° ADDRESS TO LINK FROM DCP CALLED PROGRAHS: 
1335 bc AL2 (XBEEFS5) LCCATION FCR SSW VALUE 

1336 DC AL2 (XREF4) SUPRIN IC SET SSH 

1337 cc AL2 (XREF 3) ICAPER BRANCH @ WHEN DCP 3S LOADED 
1338 ac AL2 (XREF2) LOADFR BRANCH @ WHEN LOADING DCP 

1339 pc AL2 (XREF1) LCACER RETOFN IF NOT IN VTOC 

1340 

1341 ORG ALTPRT¢xX*700* THIS CRG TIED TO ORG AT END OF ROUTINE | 
1342 

1343 t#taneeanne 

1344 *# EQUATES SSSRESESESEEESESEEES THESES O84 OEFES8ESEEEESEEEEEEESOD COEDS ERERE 
1345 *¢e¢ee42008 

1346 IAR EQU x*10° INSTROCTION ADDRESS REGISTER 

1347 ARR ECU x*08* ADDRESS R2CALL REGISTER 

1348 FSR EQU x*oa¢ PROGKAB STATUS PEGISTER 

1349 ENIAR EQU x*20° FRCG LVL 1 IA REG 
1350 F7IAR £QD x*B1* FROGKABR “BECK REGISTER 

1351 XR1 FQU 1 INDEX REGISTFR 1 

1352 XR2 EQD 2 INDEX REGISTER 2 

13£3 LPDATA EQU x*87ct 22LC FRINT CATA AREA 

1354 ELINE £EQU x*B80* START CF DCP PPINT LIE 

1355 spr EQU x*a00* SECTION PREFACE TAELE 

1356 FROGID EQU X*aAO1® SPT - 2ND BYTF CF PGH IDENTIFICATION 
13587 SPFLGS EQU x*aQ2* SPT - FLAGS 

1358 FRIN EQU x*a07° SPT - ADDR CF 1ST RTW PREFIX 

1359 SFUDT £EQU X°AOA* SPT - UKIT CEFW TABLE 

1360 SIOI EQU x*18* SIO IMMEPIATE TC CET 

1361 CRTFLG EQU z*0879¢* FLAG SAYS 32XX MICERC LCADELD OK 

1362 

1363 ** COMMON SEWSE SWITCHES 

1364 

136£ ssw00. EQD x*80° LCOF OR SECTION 

1366 SSWO1 EQU x*g0* LCOF CR RCUTINE 

1367 SsWO2 EQU z*20° BYPASS MANUAL INTERV RENS 

1368 SSW03 EQD z°108 BYEASS ERROB FRINT 

1369 ss#04 EQN x06" EYPASS NCR-ERRCK PRINT 

1370 ssw0S £EQU x°oae USE MFCU AS PRIST DEVICE 

1371 SSR06 FOQD x*02¢* HALT ON ERROR 

1372 SSWO7~ EQU x°O18 LICKETY SPLIT 

1373 sse0e E90 x*808 USE 5203 RIGHT CARRIAGE 

1374 sswo9 EQU x*aQ8 INHIBIT SECT. SSW CLEARING 

1375 SSWOA ECU x*20° , 

1376 SS80B EQU x°10° 

1377 ssw0c EQU x*cse 

1378 SSWOD EQU 2°08" 

13739 SSHOE EQU x°O2¢ 

1380 SSWOF EQU x08 

1381 SSW2F FQU x*08 

1382 

1383 BITO EQO z*80° 

1384 BIT1 EQU x*uor 

1385 BIT2 ECU x*20¢ 

1386 BIT3 £00 x*°108 

1387 BIT4 EQoU x*08* 

19BAE76 0 2J0 N76 ' VUFEB77 PROG ID FFP-4 
827872 571871 387010 
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FFF4 DIAGNOSTIC CONTROL. PROGRAM - HODEL 12 . FFF DLAGNOSTIC CONTROL PROGRAB ~ BODEL 12 


ERR LOC OBJECT CODE ALCOR SIMT SOURCE STATEMENT ERR LOC CBJECT CODE ALDR STBT SCURCE STATESERT 
0004 1388 BITS Feu x*'oue : 1416 ** THE FOLLCWING INSTROCTIONS ARE FERFCREEC AETEE INITIAL OCP 
0002 1389 BITE EQU X*025 1417 ** LOADING ORLY. THEY ARE OVERIAED BY THE ERCGFA® SECTIONS. 
0001 1390 BIT? ECU x*ote } OF86 1418 XREF3 EQU * 
1391 OE86 1419 BFGIN ECU * 
: OO6F 1392 HO EQU X*6F* TABLE OF HALT CCLES - O-F & H VE86 OC 10 0010 113D 1420 RYC 16 (17) ,GOLOAD+16 SIORE A EBOCGFA# FESTART AT 0000 
0003 1393 B81 ECU x*o3¢ \ OEBC CO 87 1318 1421 z FIXACE 
0076 1394 #2 ECO x*76* OF90 1822 BEGINA EQU * 
0057 1395 B3 EQO x57 1423 
0012 1396 H4 EQU X' dpe . 1LQZE HORSES OERESSESESASAERETESSSSSSCESLSEAASS TSE FSELSISOIOHSAOHTSE HS HTHHSEHSKE HSS 
00SE 1397 HS EQU x*5pe HALT DISFLAY COLE -5- ) 1425 + 
OO7D 1398 H6 EQU x*7bD¢t 14626 * PRINT CPO aNr opt IBFCPPATICE 
0007 1399 8? EQO X°O7¢ 1427 * 
OO7F 1400 88 ECU X°7F¢ } 1428 # 
OOSF 1401 HS EQU xtSrFe {EZ SHEHKSKEESESEFETES OTS SSE SEESESHEESSSERHESESSH SORSHSAHOKSSSRSESASSSEHESESHESED 
OO3F 1402 HA EQU X°3F® 1420 
0079 1403 HE EQU x°798 ' OE9C CO 87 O2TA 1631 B ERINT SFACE PREISTEE 
006c 1404 BC EQU x*6ce OES4 11 OF94 1832 cc XL9°14° 
0073 7405 HD ECU x*73¢ j OESS OC 00 1179 0200 1433 AVC LINE1-16 (1) ,SHOD PUT BCDEL If IB FRISTOUT 
OO07C 1406 BE ECU x*7ce OZ9B 3c 00 0336 1634 AVI CTR, xX*0¢ 
003C 1407 HF EQU x*#3c¢ OEQOF 3D 01 0201 1835 cLI SIZE-2,X°'O04* SEP IF SIZE IS GEFATER THEN 64K 0a 
003B 1408 HH ECU X*3e¢ j QEA3 F2 82 iD 1836 JI TRY64 IF wet GC TC TERYES oa 
0068 1409 BL FOU x*68e HALT DISPLAY CCLE -L- 1437 
006B 1410 HU EQD x*6Bt BALT DISELAY COLE -U- 1837 
OC3E 1411 BP EQU X'3E* HALT DISPLAY COLF -P- } 1437 
1412 4437 
O1FD 1413 FLAG EQU  X*4FD* 1436 
O1FE 1414 DTABLE ECU Z'FE! } WH3E 
1438 
7438 
} OEAG OC 00 17135 0261 9639 AVC TEMEA (1) ,SIZE~-2 TRIS LOCP SEIS CF FOR GREATER THANGS 
W440 ¢ 68K BY BECVWIRG SIZE-2 TO TEMPA oa 
QEAC 3C 10 0336 1441 BVI CTR, 16 STABT WITH E8K (16X46=64) OL 
j CEBO OF 00 90336 1135 Wau2 LCCESZ AIC CTR(1} , x08 ACE 16K (&x&=1TE) 048 
CEB6 OF 00 1135 0399 1443 SLC TEMPA (1) ,ONE SUB 46K FEOP SICEAGE SIZE if TEBPAOS 
OEBC CG 01 OEBO Tau4 ERZ LOCFS2Z CUIT BEREB ZEEC 08 
} OECO F2 87 14 Vaas J rcsz on 
OEC3 3D FF 0202 7446 TRY6N CLI SIZE-1,X*FF* 
OECT F2 01 OF 1447 JRE ROT6S 
4 OETA 3C 10 0336 1448 BVI CIR, 16 
: OZECE F2 87 06 T44u9 J DCSZ 
OED O08 O02 0336 90202 7450 NOT68 34NZ CIR, SIZE-1 EUT COKE SIZE IB PKIRTOUT 
TBs 
} OED7 O& 20 1188 1145F 1852 DCSZ ZAZ LINE 1-1 (3) ,DFOUR~1 (1) 
OELD 06 4% 117188 1160 W853 FINDSZ AZ LINE I-17 (3) ,DFOUR (2) 
| OFE3 OF 00 0336 0399 14586 sic CTR (1) ,CRE 
OEE9 CO 01 OELD 1a55 BNZ FINDSZ 
1956 * SET UP CPU CPTICHS IF ARY. 
} OEED OC OF T1AD 11AE 1457 EVC LINE1A (16) -LIWE1A¢1 CLEAR CFTICNS IE LINE FOR 1PFO ENTRY 
OEF3 OC 00 12B2 0204 1458 AYC CEEOF (1) ,CPU PUT CFU CPTICES IK WCRK AREA 
GEFO9 3C 87 OF28 4459 AVI FOPe1,xX*87® SSUBE NC CETIOES, THUS NO OPT PRINT 
OFFD C2 02 V19E 1460 LA LINE 1A- 15 ,XR2 PCINT AT ERINYT LIKE WHERE OPTS GO 
} OFO14 C2 01 12A9 146% LA CETTAE,ZF4i PCINT AT CET BCBEEES. 
OFO5 OF OO 12B2 1282 1452 OFLOOP ALC OPBUF (1) ,-OPBUF SHIFT LEFT 1 
t OFOB CO 20 OFTA 1463 ENCL ¥ROTCE JUBE IF BSC CETICE BIT 
: OFOF 9c 00 00 00 T4648 aye 6 €1,X%R2),C ¢-XR1) BCVE CPT SU4EER sBTO; LIBRE 
OF?3 E2 02 Q2 kes LA 2{-XR2) ,XR2 RUMRE ZC BEXT LIBE POSITION 
; 9F16 3C 07 OF28 W466 BVI POPe1, X*O7* CAUSE HO-OE JOSE FCB PRINTING 
OFTA 1467 BCTCE ECD * 
OFIA D2 O01 071 1868 LA 1¢,Z2R1) ,XR1 BUMP TO BEXT CPTICH BRUMBER IW TAB 
‘ OFID 7D DB OO 14€9 CLI 0(,2R1) ,Cc*#C* ' JF t© JS A *C* , QUIT 
OF20 F2 87 O04 1470 JE POP 
OF23 CO 87 OFOS 1471 B CELCCE DC ALI 8 
QF27 F2 CO OB 1472 POP Jc HOPOP ,*-* JOME IC BEGULAB CELY OR FALL 7O OPT 
OF2A CO 87 O22 18473 B PRINT PRINT CFU LIBE GITH OPTIONS 
OF2E 02 OFZE 1474 bc XL7°02° 
OF2F 3B OFZF 2475 cc ILi*59*8 
OF30 11AD OF31 1476 BC AL2 (LISETA) 
OF32 F2 87 O68 Taq) J WASPOP 
. } 
DATE 29AUG75 O7NOV75. 1OHARTE O330N76 = 11FEB77 PROG ID FFF-4 DATE 29AUG75 O7NOV75 19HAR76 033576 VIFEBT7 PROG ID FFF-& 
EC NO. 827804 827805 827872 571871 387010 PAGE 14 , EC NO. 827804 827805 827672 571871 387079 PAGE IQA 
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FFF4 


ERR LOC CBJECT CCDE 


OF35 
OF39 
OF3A 
OF 3B 


OF3D 
OF41 
OFU2 
OF43 
OF4S 
OF49 
OFGR 
CF4B 
OF4D 
OF51 
OF52 
OF53 


OF55 
OFS59 
OFSD 
OF60 
OF63 
OF67 
OF6B 
OF6C 
OFGE 
CF70 
OF74 
OF77 
OFT7D 
OF81 
OF87 
OF8D 
OF9O0 
OF93 
OF 96 
OFSB 
OF9E 
OFA1 
OFAG 
OFAQ 
OFAC 
OFB2 
OFE8 
OFBC 


OFCO 
OFCY 
OFC] 
OFCC 
OFDO 


OFD3 
OFL? 
OFDA 
OFDF 


OFE3 
GFES 
OFED 
OFEE 
OFEF 


OFF1 


DATE 
EC NO. 


ALCR 


OF35 


cO 87 021A 


01 
17 


1189 


co 
01 
33 


87 


124F 


co 
01 
33 


87 


V1E1 


co 
01 
33 


87 


V2uF 


C2 
3c 
7D 
F2 
34 
co 
01 


01 
07 
00 
81 
01 
87 


0000 
0883 


C2 
BC 
oc 
3C 
oc 
oc 
719 
79 
F2 
8c 
BA 
BD 
F2 
8E 


3D 
F2 
8c 
3c 
F2 


35 
F2 
BC 
3c 


oc 
co 
01 
VA 


02 
60 
014 
00 
00 
00 
00 
06 
10 
00 
FO 
FA 
82 
00 
02 
01 
00 
oc 
82 


01 
01 
Le) 
02 
87 


02 
01 
06 
00 


19 
87 


V1FB 


OF29 
OF3A 
OF3C 


OF3D 
O21A 

OF41 

OF42 

OF44 
O2TA 

OF4S 

OFMA 

OF4C 
O21A 

OF51 

OF52 

OF54 


0232 
1161 
00 
8E 
OF6L 
O21E 
OF6B 
OF6D 
OF6F 
08848 
00 
145D 
115E 
OFBE 115¢ 
OF9ST 1155 
01 
02 
16 
G1 115E 
01 
01 
05 
01 
01 
115D 115D 
VISE 0399 
VISE 
OFS81 


0399 


1155 


1161 

oc 

09 1168 
1164 

10 


1161 

09 

OA 1172 
1161 


T1FB O89Y~A 

O2TA 
OFED 
OFEE 
OFFO 


78 10 01 


29AUG75 
_ 827804 


O7NOV75 
827805 


DIAGNOSTIC CONTROL FROGRAS - SODEL 12 


ST#T SOURCE STATEMENT 


1478 NCPOP EQU 


1479 
1480 
1481 
1482 
14e@3 
1484 
1485 
1486 
1487 
1488 
1489 
1430 
1491 
1492 
1493 
1494 
1495 
1496 
14$7 
1498 
1499 
1500 
1501 
1562 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1812 
1513 
1514 
TE 75 
15 16 
1517 
1818 
3519 
1520 
1521 
1522 
1523 
1528 
1525 
1526 
1526 
1527 
VS2E 
1529 
1530 
1531 
1532 
1833 
1534 
1535 
1536 
1537 
1538 
IS3s 
15480 
1541 
15482 
1543 


WASPOP 


UDTLP 


OADDR 


UDTLP1 


CHK1 
CHK2 


NEXTOP 


CKPTR 


PRODT 


B 

pc 
DC 
pc 


ECU 
5 
be 
pc 
DC 
B 
cc 
bc 
nC 
E 
oc 
pec 
pe 


LA 


cui 
JNE 
AVC 
BVI 
J 


CLI 
JNE 
RVC 
AVI 


BYC 
B 
DC 
bc 
DC 


1544 NOURIT TBR 


TSHAKR76 
827872 


O3JUN76 
571871 





* 


PRINT 
XL1*01? 
IL1*23° 
AL2(1.INE1) 


* 

PRINT 
XLIO48 
IL154¢ 
AL2 (DASH) 
PRIRY 
XL16018 
IL1*578 
AL2(LINE2} 
ERINT 
XL1°O48 
IL1*518 
AL2 (DASH) 


UTAEB,X1 
FLAGS,?1 
0(,XR1),x?0°* 
NCONIT 

UADDER, XRi 
UNPACK 

ILt*1° 

AL2 (*-*) 

B12 (FLINE+3) 
FLINE¢&,XR2 
O(,%R2} ,c*-! 
MASK (2) , ONE 
CERON,0 
CHK141 (1) , HASK-1 
CHK2¢1{1) , MASK 
1(,X51) ,*-* 
2(,XR1) ,#-* 
NEXIOP 

1(1, X52) ,CENU 
1(,ZR2),X* FO! 
1(,ZR2),X'FA? 
*4+8 

1¢(1, X82) ,XC7 
1(,XR2) ,XR2 
BASK (2) , MASK 
CEKIM (7) ,ONE 
OPNUM,x'OC* 
UDTLP1 


FLAGS, 1 
CKPTR 
9(6,XR2), LCDR 
FLAaGS,2 
PRODT 


FLAGS, 2 

PRUDIT 

10 (7, XR2) - FRNTR 
FLAGS,0 


LINE3 (26) , FLINE+26 
PRIRT 

XL1*O1® 

IL1*26¢* 

AL2 (LINE3) 


1(,%81) ,X*108 


VIFEEBV7 
387010 


PART NO. 
PAGE 15 
FFF4 
ERR LOC 
OFF& 
PRINT CPU LINE WITH CDT CFETICNS OFF7 
PRINT ---'S 
OFFB 
FRINT GNIT CEFIRITION TABLE HEADING OFFPr 
1000 
1004 
7005 
1006 
1008 
PRINT ---'sS 100C 
400D 
LOAD ULT PCINTER 7010 
INDICATE SFEL.4£ FOR FIRST ENTRY 1014 
SKI£E ENTRY iF NC DEVICE CODE 7015 
1018 
UNPACK DEVICE iLENTIPICATION 107C¢ 
1O1F 
4022 
POINT XR2 AT PRINT LINE 1026 
FUT CASH AFTER LEYICE ID 102A 
INITIALIZE DATA FIELDS 1628 
402C 
SET UF MASKS TO CRECK OPTION BIT TO2E 
1032 
CHECK TAIS EIT 1036 
BRANCH IF CFF 
FUT PRINTABLE OPTION NUMBER INTO 
PRINT LINE 
PCINT AT NEXT PRINT SLOT 
SET UF TC CHFCK KEXf OPTION BIT 
CONTINUE UNTIL ALL OPTIONS CHECKED 
BRANCH IF NOT FIRST UDT ERTRY 
INDICATE THAT THIS IS LOADING DEVICE 
INEICATE SFCCND UDT ENTRY 
GO ERINT THIS ENTRY 
BRANCH IF NCT SECOND UDT ENTRY 
INDICATE THAT THIS IS PRINTER 
FIRST 2 ENTHIES BAVE BEEN HANDLED 
SET UP AND PRINT LINE 
CHECK FCR LAST ENTRY 
FROG ID FFF-4 DATE 
PAGE 15 EC NO. 


CBJECT CCLE 


D2 
co 


co 
V1 
co 
05 
21 


01 
90 


8 
87 


121C 


co 
70 
F2 


co 
AO 
F2 


C2 
7D 
F2 


co 
co 
01 
3c 


87 
Ot 
87 


01 


a 
5 


AG 
01 


87 
87 


128A 


co 
co 
14 


87 
87 


03 
OFSC 


O27A 
O21A 


T2E5 
27 
T2E5 
iF 
0232 
00 
15 


12BE 
O2TA 


12BF 
O21A 


29A0G75 


827804 


ACER 


OFFF 
1004 
1005 
1007 


100C 


1074 


102: 
1028 
102D 


1036 


O7NOV75 
827805 


4288230 IBM MAINTENANCE DIAGNOSTIC PROGRAS 


DIAGNOSTIC CONTROL FROGRAM - MODEL 12 


STST SCURCE STATEBENT 


7545 
1546 
1547 
i548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1857 
1SSE 
155s 
1560 
1561 
1562 
1563 
1564 
1565 
15€6 
1567 
1568 
1569 
1570 
1571 
1872 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
15280 


LA 
BF 


3(,XR1) ,XF1 
ULTLP 








PART 
PAGE 


BO. 8288230 


15a 


SHSERSRSEKHKESSSSESCHSHERSTSSSSSHKESSSEAEKSEHHE POHKSE HSS HEKEKRETESEROREEEESSEEEE 


s 
* 
2 
£ 


co 


MISCELLANECUS 


SCP PRINTOUTS 


SOMERSET SEKASHSSSLHEKSHKKHKSAS SH STSSHASESKSHSKESHSKESKOS EE OHEESESEEEREEKE OERERERED 


x6 


ISHAR76 
827872 


B 
cc 
B 
oc 
BC 
bc 
B 
cc 
JHE 


E 
bc 
JNE 


LA 
CLI 
JRE 


pc 
DC 
prc 


DC 


O3JUN7E 
571871 


FRINT 
XLieite 
FRINT 
XL7°05* 
IL1*33¢ 
AL2 (LIWES) 
CEKID 
XL7*70¢ 
TSTO7 


CAKID 
ZEV*A0# 
TST07 


UTAB,XR1 
0(,XR1),X*a0® 
TST07 


PIX 
PRINT 
XL1¢018 
IL1°608 
AL2 (X81) 
PTX 
ERIRT 
XLUC1He 


11FEB77 
387010 


SPACE PRINTER 


"DCP IS LCADED* 
TEST FOB TAFE OW SYS‘. FA 
SJUSF IF IT IS HCT 
TEST FOR 54848 OR SYSTES 
JUSF IF IT IS NOT 
ECINT AT X*232* 
IF 5444, PRINT TAFE MESSAGE 


PRINT LINE OF ‘-8* 
PRINT MESSAGE TO CU™D TAPE ERROR ST. 


PRIVT LIWE OF *-* 
SPACE & 


PROG ID 
PAGE 


FRP-g 
U5A 


} 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


PART NO. 8288230 


PART NO. 4248230. 1BM MAINTENANCE DIAGNOSTIC PROGRAE 
PAGE 16° 


PAGE TEA 
FFF4 DIAGNOSTIC CONTROL PROGRAM ~ MODEL 12 _ FFF4 DIAGNOSTIC CONTROL FROGRAM - BODEL 12 
ERR LOC CBJECT CODE ACER STMT SCURCE STATEMENT ERR LOC OBJECT CODE ADER STAT SCURCE STATERERT 
1582 OOdaed nnn ERERERE RNR ARAAHEOERAESSERRERE SO REESE SEEGERS ARES RE SED EEREEEREE 1634 
1583 * : ee SSCTSSEKRSSSCESSRASSSEASSASSSOKLSSKSS SE SSKKSEKAKESKESESEAS 
1sey CHECK FOR MODEL G * 
1585 * } 1637 * SEARCH SEARCH VTOCS FOR FD6,143,FCO AND INSERT 
GS BG RHEREAEAEREEESEEHERAEEEETREREAESERERERE ERASE RERSRERTERETEKAEEEKEEEREKREEREE 1638 # CISK ADDRESSES IN *B LOAD* 
15€7 1639 SHKEKSPSESSHSSERESSLSESKRSESSHSSKVHSSSESEKSKSETSSHSHKSSKSHSE 
1037 1588 1S107 EQU #* ) 1640 
1037 3D c7 0200 1589 CLI S"%CE,C*G TEST FOR RUNNING ON MODEL 'G* Berta caaaia: rene petetae ee ices 
103B CO 017 1123 1590 BNE  DCHA BRANCH IF WCT +3, 
103F 3D 40 0232 1591 CLI UTAB,X*4Ot TEST FCK LOADING FRCH 3741 } iene a - s a nee eS ae Bee ea LOAL FLAG BITS 
1043 F2 81 2E 1592 JE FD6C IF TROE GO SET OP FOR LOADING 109D 3c EE 8 
1046 38 80 0233 1593 TBN UTAB+1,X'80t TEST FCR LOADING FROK DISK i 10A7 3C 00 10FE 1644 BVI SHEFLAG,O SET FLAG TC ZERC (SUPPCET IRSTR AT *TFFPO*) 
104A CO 90 1123 1594 BF DOBRA IF NCT, HALT HA ee co 87 O22A ia ee BS ee SEEK TC VTCC AND CHECK FCR PRCGRAB 1&3 
1595 A 
159€ SEMEL IES ESSA USO TE SAS AREAS ENS AS STOO REM ACCES TES SN ED CEP OR TEREST SLT E EASES, TOAA C2 61 0886 1647 LA X°880°,xXR1 LOAC XRT AS POINTER TO VTOC RECORE 
1597 © 1648 
1593 * LOAD AND EXECUTE ANY  PRCGRAMS WHICR MUST BE bas a6 87 022k sees aoe, READRC __ areca TO READ HEXT RECORE ITO xX° 880° 
1599 * 10B 5 
1600 * RON AT DCP LCAD TIME i 16B3 7D FF 00 1681 cLI GO (,XR1) ,X*FF?* TEST FOR ENDL OF WTOC 
1601 * 10B6 CO 81 10FF 16£2 BE BE2 JUNE IF YES 
tooo pee eg eee eee }  JoBD co 81 torr 1624 ce owen SURE IF Y25 
{60G SESSSESLEHREREESESHEREERAERE REE EAREAEEREREKE SE ERE SEE TREREEREATESEREEEYEERE 10C1 4D O02 O02 12BB 1655 cic 2 (3,281) ,ACTKON JEST FOR ar oe vTCC ENTRY 
1605 5 10C6 CO 01 10FF 1656 EKE KE2 JOME IF RB 
104E C2 02% 0232 16C6 ISAQ LA X*°0232*,XR1 SET-UP XR4 ALDRESS FCR UTAE TABLE «cece! 1657 aie 
1052 7D AQ 00 1607 CLI 0(,XR1),X*AO' SEE IF DISK IS A 5&4 *#GC* ance = es ae teee Sa ae c See ree ee Sauce in Wroc 
055 F2 01 04 1608 SNE  ISA1 JUEP IF NOT A 544QG DISK *GC* 2 2 
1058 3c AO 10Fi 1606 MVI DKFLAG,X"AO* IDENTIFY IT A 5444 CISK seca 10D1 3c 07 10D9 bade eee boa. a zeCaDeN THORNS IF 3340, LEAVE CISPLACEBERT AS XS 
1619 
105c CO 87 1095 1611 ISAT B SEARCH GO GET DISK ALDK OF PROGRAMS *GC*) 16D5 1¢ 02 113EB 06 Hele BVCID SVC VTID(3) ,ID3340(,XR1) HOVE ID IRTC TEMP AREA 
1612 
1060 38 20 10FE 1613 TEN SRFLAG,BIT2 SEE IF FD6 FCURD ON DISK oC 2 re be 12BE aece TRYFD6 oe dl ae LOOK FOR ID OF FD6 *6CDP 
1064 F2 90 20 1614 JF FD6RIN IF NOT, DCR*T RUN 10EO F E 
1615 REEEREREEERER TR EEERERERERSRRERESEREEEES EERE EREKES BAER EEEREDEREREES ) 40E3 Ic 01 1084 O04 1666 avc FLG6S (2) , VTAD (,XR1) POVE IN DISK ALER OF FD6 (5888) 
1616 * TEST ULDT TABLE FOR BCISK FILE 2340 CR DISK FILF Sauy 1O0E8 1c 04 414A OF 1667 BYC CCHH2 (5) -VT33(,XR1) ACVE IN CCHHR ADDR FROS WTOC (3380) 
VED] EERE REREEEEE EE REREAD ERE RERERES ERLE EERSE ERASE TASER ARRE SAR ERE RE } TOED 3A 20 10FE 166€ SBN SRFLAG,BIT2 INDICATE FD6 FOURD 
1067 3D AO 10FD 1618 CLI DKFLAG,X*AQOt SFE IF DISK IS A 5444 stat ah Maire 10F1 aesa TRYOUT toe oe — Biewet cegen see 
106B F2 81 06 1619 JE FD6D JUNE IF IS = ° 
106E 0C 014 1084 1150 1620 HVC =FD62@(2) ,CCHH22@ MCVE IN ADDRESS OF 3340 CCHHR (FD6) } anes = ao Rone oS oe 4g BERDEE Sere acca tes Say 
1074 1621. FDED EQU * } - 
1622 BHREREEREESRERESEREREREERAEORERESEEESSEREEESES EASE SEES EEE ERERERERRE - 0007 1673 IDS&4as EQU 7 EISPLACEMERT OF ID a Shae bes 
1074 OC 01 1FF5 1086 1623 HVC -X"1FF5"(2),FD6ADR | SET UF FCR FD6 IC CCHE BACK “2 DEO: ete spoane Fon Ce Areal te ate Ge cae SCOREES 
107A 3A 01 020D 1624 SBN SBYTES,SSW2F SET ON SSW 2F TC SHOW FI6 TO LINK BACK OG04 1€75 WIAD EQU & veers IN YTCC OF 2240 ADDRESS CCBRER 
107E CO 87 022A 1625 B LOAD LOAD AND RUN LSR TESTS ented opRE are eet eon ee LOCATI 33 - 
1082 08 1082 1626 FIG1 DC XL1°088 ; 
1083 DFD6 1084 1627 FD6@ DC XL2"DFD6? DISK ADDRESS FILLEE IN BY *SEARCH® RTN } 10FE 00 1OFE 1678 SKFLAG DC X217*00* BIT 0 - 143 
1085 1087 1086 162@ FD6ADR DC AL2(FD6RTW) 1679 * BIT 1 - FCO 
1087 1629 FD6RTN FOU * RETURN HERE FRCM FD6 } 1680 * BIT 2 - FD6 
1087 OC 10 0010 113D 1630 MVC =: 16 (17) , GOLCAD+# 16 STORE A FRCGRAM RESTART aT 0000 16st ped tee 
108D 3c 10 O1FD 1621 ISTFD6 BVI xX*1FD',x*10! RESET FLAG BIT FOR LOAL RTN eae ao a apes FE2 zo hdl a DID 
1991 CO 87 1123 as 
ont : ee . pee oe 1106 OC 02 4.95 12BE 1684 MYC LIDLOST (3) ,FD6X08 HOVE ‘*FD6* INTO SFSSACE 
- 110C CO 87 O21A 1685 B PRINT 
} 1110 02 1110 1686 pc XL1°02¢ 
: 4111 1E 4111 1687 pc ILI*30° PROGRAS XXX NOT FCURD O8 DISK 
1112 12a8 1113 1688 pc AL2 (RCTFRD) 
‘ 1494 1685S TOHO EQD * 
J 4114 CO 87 O21~A 1690 B PRINT 
1118 #17 1718 1691 pc XL1°17° SPACE 7 TIBFS 
; 1119 FO 3B 6F 1682 HEL 80,88 HO BALT TO SHOW PGH*S MISSING 
f 111C FO 6F 1B 1693 HPL 484,86 SECORDARY H’'.T SAYS FGH'S BISSING 
1694 
} 111F CO 87 10F9 1695 B SRI RETURK TD CALLER 
} 
} ae 
. | i FFF-a8 
DATE (29Ak0G75 O7NCV75 I9MAR76 O330N76 VUSEB77 PROG ID FFPF-4 DATE 29a0G75 O7ROV75 19MART76 0330876 VIFEBI7 : PROG ID 
EC NO. 827804 827805 827872 571871 387010 


PAGE 16 .EC NO. 827804 827805 | 827872 571871 387010 _ PAGE - eS 


’ 


, : eat; IBH MAINTENANCE DIAGNOSTIC PROGRAB PART NC. 8288230 
IBM MAINTENANCE DIAGNOSTIC PRCGRAS ud BERT RO: me8e230) FAGE kL. 


, FF4 DIAGNOSTIC CONTKOL EROGRAS - MODEL 12 
FFF4 DIAGNOSTIC CONTHOL EROGRAH ~ MODEL 12. yF 


ERR LOC CBJECT CODE ADER STMT SCURCE STATERENT | : ERR LOC CBJECT CCDE AEDR STAT SCORCE STATEBERT 
. } . 1743 *eeeusaneeees 
1123 38 01 0208 1697 DOHA TBR SBYTEO,SSHO7 1744 © ERINTOUTS 4969000688 600004 0804820809 0O08O8080O8F8S OFTEN OEEEEEREOERE 
1127 F2 10 03 aes JT GCLOAD 17US seeseenesenee 
ed * CRATES SAKE REERTACERREEEREEERESERES HEREKRESEERE EER 1746 
iia eee a aeKMai ican 1166 D3D6C1C4CSD9 116F 1747 LDR = DC_— CLO" LCADER* 
1702 * B H a a » 196C D7D9C9DSE3CSD9 =: 1172: 1748 PRNTR BC CL7°PRINTER*® 
1703 * H H A A 1173 D4D6C4CSD34G0E74B 1189 1749 LINE1 DC CL23"MCDEL X. STCRAGE XXXK* ' 
1704 ¢ HHHHBBRHEY AAAAAARAAAA VIB 4OUOEZEZL6L9CICT 1749 
1706 * # i a A 178A 4O4O40C3D7E4GODE 11AD 1750 LINEIA DC C136" CPU OPTIONS ARE x © | TOGETHER 
1707 * H H A A 1192 D7E3C9D6DSE240C1 1750 
REA EKSEASSSEAKEREAARART SHEARER TEEEEERERERSE ES 119A CICSXOCOET&ONO4O 1750 
ieee SRSEKRKKSKSRAKAKKRHESKKEEEARESES } V1A2 4040404040404040 1750 
112A FO 3B 3F 1710 BLTG EPIL 4#A,HH DCP LOALING COMELETE TIAR 4O40UOUO 1750 : 
1120 1711 GCICAD EGU) * y «VIAE_-4O TIAE 9781 DC cLit \ 
ere ere ee 1712 5 TEST CHECK DATA SWITCHES TAF E4DSC9IEZ4OCHCSCE 1104 1752 pc CL22°UNIT CEFINITICN TABLE * 
1131 CO 87 O2ED 1713 B XREF1 GO 1CAD SECTION 11B7 CIDSCSEICSDEDS 40 1752 
WD 1S SESRe eee ER eae S STRESS SERREETE EERERE SED ES OSES SS ORES TEESE EEEREEEEEEREKEE ED 11C5 4B4UBYBUBSODYEGE2 11£1 1753 LINE2 DC CL29*.... SUST BE CORRECT -VERIFY-° 
ates 11CD £340C2C540C3D6D9 17ER 
* c? FCR DCP 191D5 D9C5SC3E34060z5C5 1783 
Aa ‘ seoneee ee | 44nd p9coceEa6o 1753 
W719 F8ESSRERERSSESESEEEEEEESEESEREESS EE EKEREEE RESETS. EARREREREREREREREEEE RE TTE2 4O4040U0KOKO4ORO 11FB 1784 LINE3 DC CL26* ¢ * 
1720 » YEA 4040404040404060 1754 
1135 00 1135 1721 TENPA DC XL1°008 VIF2 60404040404 04040 W754 | 
1136 04 1136 i722 x04 = DC—S—s«éEEL;VP1QQES 04 11FA 4040 1754 : 
1139 000000 113B 1724 VIID DC  =£XL3*000000* TEMP STCRAGE FOR ID FROM WTOC 1208 40804C8040404080 tee 
113C 0000000000 1140 1725 CCHHO DC XL5*0000000000° CYL HED REC FCR 143 (3340) 120C oes cesbec secs qsae 
1141 0000000000 1145 1726 CCHR1 DC x15*0090000000° CYL HED FEC FCK FCO } eas Ce q9Ee 
2 L5*0000000G00" CYL BED REC FCE FD6 5 
atub sic sane 1728 CORHOA be aco icceaay 121D 4040404040404040 1232 1756 pc CCL 22¢ ¢ 
114D 1145 114E 1729 CCHHIa DC AL2 (CCBB1) ; 1225 pogegonoapecucas es 
VISE 116A 1150 1730 CCHH2@ DC = AL2 (CC HB2) peep Z Sd 
1151 0100 1152 1721 x100 De XL2*7008 1233 6060606060606060 124F 1757 DASH DC 29C1L1t= 
1153 0008 1154 1732 ERIV. pC = X12" 0008" PRIVILEGE CLE CNLY }  123B 6060606060606060 V757 . 
1155 C7 1155 1733 XxXC7 pc XLV°C7* 1243 6060606060606060 1759 
1156 F2 87 29 1734 3 J TEST7-ISTCRD-1 124B 6060606060 1757 : : 
1159 F2 87 33 1735 31 J 1F2-LXx2 ) 1250 C¥E4D4D740E3C1D7 127D 1758 Dc CLU6"DUMP TAPE ERROR STATISTICS PEFCKE FUNBING DISK 
115C 0000 115D 1736 MASK DC = xL2*08 1258 CS40CSD9DSDEDI4O vse 
115E 00 11SE 1737 CENUM DC XL1*°0# 1264 E2E3C1E3CS9E2E3C9 1758 
115F FOFS 1160 1738 DFCUR DC Bp12*ae » 1268 C3E24OC2CSCEDELI W7se 
1161 00 1161 1739 FLAGS DC XL1°Q8 1270 CS40DSEaDSsD5c9D5 1758 
7162 0000 1163 17480 x0000 nc XL2*0000° 1278 C74OCUCIE2L2 17£e 
1164 O1E0O 1165 1781 DOSBO DC IL2*880* } 127E 4OC4CSCICTDSDEE2 126A 1759 x1 DC CL13* DIAGNOSTICS-* 
1286 £3C9C3E260 1759 
128B C7DILECTE9CID44O 1295 1760 IDLOST pC CL11*PROGRAB Xxx? ---- {| SUST BE TOGETHER 
, 1293 EVE7E7 1760 
1296 SODSD6E340C6D6E4 1248 17€1 NCTFND DC C119* RCT FCUND ON DISK * ——— | 
129Z PSC4uCLELS4Oc4cs 1761 
,  12A6 E2D240 1761 
12A9 1762 OPTTAB EQU- * TABLE FOR CEU OFTIONS 
12A9 FIF2F3P4F5F6F7F8 12B1 1763 BC = C19" 123456789" C SIGHALS ENT 
; (1281 be 1763 
12B2 00 1Z£2 1764 OPBUF DC x11*00° 
12B3 FIFGE3 1255 1765 MICLDR DC C103°1%3¢ 
)  12E6 C6C3FO 1288 1766 MICDAT DC CLO3*FCOt 
12B9 C1C3E3 1ZEB 17€7 ACTKON DC C1LO3*ACT® 
12BC C6CUFE6 12BE 1768 FLEKOK CC CLO3*FD6* 
1769 
} 1770 SRSSSERESSS SS OSESOESE SERESESESE SESESSSSESSETESSS DEDEDE SEESTEREESE BASS 
1771 * SUBRCUTINE TO PRINT  --~--- o---+-------- 
j 1772 PEOESEOTE AEE STA EESSSEREE SEED ESE SEES Ory OEESEEEEEES ES SOESESOEEEERERESE 
1773 
12BF 34 08 123 1774 PTX ST PTX@+3,ABR 
. 12€3 3C 02 1284 1775 aVI CNT, 2 
'  -12€7 3 60 O8BC 1776 x21 HVI X*880°*60,c#-8 
12CB OC 3A O8BB 08BC 1777 NVC K*880'+59 (59) ,X*880" 460 
; 
DATE 29AUG75 O7NCY7S I9MAR76 033UN76 VIEEBV7 PROG ID FFF-q DATE 29AUG75 O7NOV7S T9BART6 ts JUK76 11FEB77 FROG ID FFF-4 
EC NO. 827804 827805 827872 571871 387010 PAGE 17, FC NO. 827804 827805 827872 571871 387010 


EAGE 17K 
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} 


FART NO. 4248230, 15M MAINTENANCE DIAGNOSTIC PROGRAR FART KC. 8288230 
PAGE 18 PAGE 168A 
FFF4 DIAGNOSTIC CONTROL FERCGRAM - MCDEL 12 )FFF4 DIAGNOSTIC CONTBOL PROGRAMS - RODEL 12 
ERR LCC OBJECT CODE ALTER STMT SOURCE STATEMENT ERR LOC CBJECT CODE ACER STBI SCURCE STATEMENT 
aa 4 87 0212 eas aie E PRINT } VBOS $94 868 6695988606898 8 554 OSE OESEEESEESENESEESENSHODEESDOEEDEEDESSESEDERES 
5 DC XL1*21¢ 1806 * 
1Z2D6 OF 00 12EF4 0399 1780 SLC CNT,CNE ae a 
12DC CO 01 12¢7 1781 BNZ X21. } seas OVERLIAYS 
12EO0 CO 87 0000 1782 FTX = E *-% 1809 * PERFORM VARIOUS OVERLAYS ABD SET UE VARIOUS 
12E4 00 12E4 ae CKT DC IL1"O§ \ 1810 * 
1811 * LINKAGES EC 
1785 PAERERERSEEE EER CERESERS SER ESEERERERER ESTE EREESEEEEEEREREREREEE RESO ERERE 1812 * BECESSARY PASEO < SOLE: ARE FRINTERS 
1786 * CHECK IF FASSED ID IS IN UDT ( SUERCOTINE } 1813 « ATTACHED FOR PROPER FONCITOWING OF  pDCP 
1787 HERES ERERESEREAREE SEER EEE EERER ORES RERTES EES CESAR EEEERSS ERE ESERRERER EEG! 1814 * 
___ 1788 1815 # THIS SUBROUTINE IS EXECUTED CNLY ONCE-- WHEW TRE 
pee Susuecaaas 1ZEE sion CHKID eee e ve ' 1816 * FIRST COMMENT (*) CARD IS ENCCUNTERED OR WHEN 
s KX@+3,ARK 1 * "s EN ‘ 
12E9 34 01 1313 1791 ST CHKSR143,X51 ae * TE GRU Aey CRED ea eRD 
eee 2 04 1317 1792 L CHK X8+3,XK1 \ BIG FSFE EEREE AE TEESE EEKEESFESEEEESEESE: SOEREREREDSSE ESSE OERESESEREEEE SERED 
12F1 OE 01 1317 0399 1793 ALC =—- CHK X@+3 (2) , CHE 1820 
12F7 1¢ 00 1301 00 1794 MYC eypt) Ot cet) 1318 1821 XREF2 EQU) # 
12FC C2 01 0232 1795 LA UIAB, XK1 SUEKCUITINE TO CHECK IF A PASSED 1318 34 08 13cF 1822 FIXHOB ST LEXIT+3, APR 
1300 7D 00 00 1796 XTCHKL CLI 0(,XR1),0 ID IS IN THE U3 TABLE. ON EXIT ) 1823 
1301 1797 SID EQU)  #=2 131C 3D SC 0880 1824 CLI X*880*,cCess 
1303 F2 81 OA 1798 JE CEKSR1 THE CCNDITION CODE WILL BE SFT 1320 F2 81 08 1825 JE TRYCPU 
1306 78 10 01 1799 TBN 1(,XR1),X*40! TO ECUAL IF If XS PRESENT, NOT EQUAL ' 1323 3D cS 0880 1826 CLI x*880*,crEe 
1309 D2 01 03 1800 LA 3(,XR%) -XB1 IF ID IS KOT ERESENT 1327 CO 01 13D8 1827 ENE LIVBCE 
130C CO 90 1300 1801 BF XICHRKL , 132B 3D 06 6200 1828 TRYCPD CLI X*200",x*OG* iP A CFU CARD PROCESSEL, THEN DO FIXNOB 
1310 C2 01 0000 180Z CHKS&1 LA #—* XR 132F CO 01 133D 1829 ENE TSTULT -HO- HALT © CARD FOUND EEFORE CPU/UDT CARDS 
1314 CO 87 0000 1803 CHKX@ 8B e—% 1333 70 3B 6F 1830 HOH HPL #0,HH 
1336 FO 6F 76 1831 BPL #H2,HO SECONDARY HALT. * COMMENT OR ERI FOUNE BUT BO CPU 
1339 CO 87 13D8 1832 B LVMOB 
133D 1833 TSIUDT zQU * 
133D 3D 00 0232 1838 CLI UTAB,O IF BO UDT CARD THEN BALT 
1341 CO 81 1333 7835 BE HOR 
1345 CO 07 13D8 1836 CNCEXX EC LVBCB,X*07* DC THIS RCOTIBE CELY OSCE 
) 1349 3c 87 1346 1837 BVI CNCEXX4¢1,x°87" 
183e 
134D OC 07 029A O1FD 1839 BVC  ENTRY1(2),X* 1ED* 
} 1353 OC 01 0331 OFF 1840 SVC ENTRY2(2),X°1FF* BOVE ENTEIES POINTS 8 INTO LCAD ETB 
- 1359 OC 02 0852 1352 1841 SVC ‘TISTOVL4+2 (3) ,ASTINS*2 
135F 38 80 0233 1842 TBN UTABS?,xX*80° IS TBIS A CISK SYSTES 
} 1363 F2 10 19 1843 JT DSKSYS 
1366 OC 02 O2FA 115B 1846 BYC 8 =—- LX 2+ 1. (3) , 9942 
136C 3C 00 OGSE 1845 “BVI 4 =6ISTDSK,0 
\ 1370 OC 02 0489 1158 1845 HVC ‘TISTCRD (3) ,3¢2 
1376 OF 03 O1FF O1FF 1847 SIC UDTABLE¢1(4),DTABLE¢1 CLEAR CARD LCAL2B PLAGS. 
137C F2 87 06 1868 3 RCTD WC DTAELE CLEAR CH “ARD SYS 
127F 1849 DSKSYS ECD) * 
1375 OF OS OFF O1FF 1850 SIC DTABLE#¢1(6),DTABLE*1 CLEAR DTABLE FOR DISK SYS 
1385 3p c5 0200 1851 NCTD CLI SMCE,C*E® IESI FOR MOTEL FE 
) 1389 F2 01 03 1852 ONE CKCIC JUSE IF KOT 
1853 * 
1858 * OLD MCVE CF CRT CVERLAY WAS BERE 
138C F2 87 49 7855 3 LVBOB 
138F 1856 CKCIO ECU * 
138F 34 01 13D7 1887 ST SAVE1¢3,XR1 SAVE XR1 
\ 1393 CC 87 125 185& B CBKID 
1397 10 1397 1859 bc XL1*10! ALT. PRINT RIN. WITH 5471 HODULE 
1396 F2 01 03 1860 JRE TR5424 JOSE IF ROT 5871 
139B F2 87 36 1861 J SAVEi IP 5671, THEN NC BORE CBECKING 
i 1398 CO 87 12E5 7862 TRS&2& B CHKID CHECK FCEK A 5628 ATTACHEL 
412a2 FO 4342 1363 rc XL1°¥FO* 582~ DEVICE COLE - 
: 13A3 F2 01 09 1864 SEE TR37481 GO TO CHECK WEXT CEVICE 
: 1386 OC 3B O7C8 16C3 1865. MVC ERTHA+S9 (60) ,MBLT2459 CWERLAY ALT. CODE GITH 5828 CODE 
134C F2 87 25 1866 J SAVE1 EXIT THIS ROUTINE 
, 13AF CO 87 12E5 1867 TR3741 B CEKID CHECK FOK A 3781 ATTACHED 
1353 40 13B3 1868 Dc XL1"'408 378% DEVICE CCLE 
13B4 F201 09 1869 JRE <TRI882 GO CHECK NEXT DEVICE 
: 13B7 OC 42 O7CF 17CR 1870 YC 8 «=—- PRTHA+66 (57) ,DHALT¢66 CVERLAY ALT. CODE WITH 3781 CODE 
: 13BD F2 87 74 1871 7 SAVE1 EXIT THIS RCUTIBE 
13C0 CO 87 1285 1872 THRI442 B CH#EID CHECK FCR A 1842 ATTACHED 
i 
‘DATE 29AUG75 = O7NOV75 19MAR76 0330N76 11FEB77 PROG ID FFF-4 DATE 29aUG75 O7ROV7S 19HARTS 0330N76 11EFEBI7 FROG ID ss 
EC NO. 827804 827805 827872 571871 387010 PAGE 18 , EC NC. 827804 827805 827872 571871 387010 PAGE : 
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IBM MAINTENANCE DIAGNOSTIC PROGRAB ; | PART NO. 4248230, IBM MAINTENANCE DIAGNOSTIC PROGRAN _ | PART WO. 4288230 
oo : PAGE 19 ° PAGE 19A 
FFF4 DIAGNOSTIC CONTROL FRCGRAB - BCDEL 12 , FFF4 = DIAGNOSTIC CONTROL EROGRAP - MCDEL 12 
ERR LOC OBJECT COLE ‘ABER STHT SOURCE STATEMENT . ERR LOC OBJECT CODE ALCR SIMI SOURCE STAICSERT 
13c4 51 13C4 1873 DC XL1°518 1842 DEVICE CODE } 
13C5 F2 01 09 1874 JNE  SHBALT GO HALT IF NO ALT. FOURD 
13C8 OC 4B 07D8 18D3 1875 BYC = FRINA#75 (76) ,PHALT#75 CVERLAY ALT. CODE WITH 1842 CODE ) 
13CE F2 87 03 1876 a SAVE1 EXIT THIS RCUTINE 
13D1 FO 3B 3B 1877 BHHALT BPL #8H,HE HALT TC INDICATE NO ALT. FOUND 
13D4 C2 01 0000 — 1878 SAVE1 LA *-*,XR1 RESTORE XR1 \ 
1358 1879 LVACB ECD : 
13D8. CO 87 0212 1880 “8 IEST 
13DC CO 87 0000 1881 LEXIT B +-* ) 
1882 
1882 
O4OB 1883 USING DATSUS-1,XR2_ } 
13EZ0 BO 00 01 1884 ISTINS SHS LCATSHS(,XR2) ,0 
‘ 
3 
a 
, 
2 
j 
é 
5 
? 
} 
DATE 29AUG75 O7NOV75 I9HAR76 03JUN76 11FEB77 
= PROG ID FFP-4 DATE 29AUG75 O7NOV75S 19BAK76 U3JUN76 19 
EC WO. . FEB77 ae 
827804 827805 827872 571871 387010 PAGE 19 . EC NO. 827804 827805 827872 571871 387010 ce nr Ae: 
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LBM MAINTERANCE DIAGNOSTIC EROGRALR PART HNO. 8246230, IBM MAINTENANCE CIAGNOSTIC EROGRAS PART KO. 624868230 
PAGE 20 PAGE 20A 
FFF4 DIAGNOSTIC CONTROL PROGRAM - MODEL 142 pFFF4 DIAGNOSTIC CONTRCL ERCGRAR - BCDEL 12 
ERR LOC OBJECT CODE ADDR STHT SCURCE STATEMENT ERK LOC OBJECT CODE ALLR STMT SOURCE STATEMENT 
1887 AOD REREEEEEEAEERE EEE AE REEL EEED CHORES ERE EREN ROR ERER RS AEEEEEEEaERenenel 1897 71 50 4&2 1955 LIC FUNNOS ({,XR%) ,-X*50¢ LOAG PUNCH COUNT REGISTER (128-8) 
1868 * 5424 ALTERNATE CCDE * 189A D150 00 7956 EUNERR TIO PHALT(,XR1),X'SOt TEST FCK NOT REALTY OR ERROR 
VERS HARSH REESE RTE RKEEERREETE REEDS ' 18CD F3 54 00 1957 SIC X*OO8 .xt5ue PUNCH CNLY 
FBSA 1890 ORG X°FFFEt~x*1686%t4¢% IF FLAGGED, CVER LAY PROELES TGA0 D152 18 1958 PIZZEE TIC PIZZEE(,XR1) ,¥'52! WAIT FCR BUSY TC DROP 
1688 1891 CRG x*16888 18A3 BO 53 40 1959 SNS  MHSTAT(,XR2),X'53* GET STATUS EYTES 
0717 1892 USING PRIN, XR2 18A6 BS 36 40 1960 TEF STAT (,XR2),X"36" CHECK PCR ANY ERRORS 
1688 1893 USING MHIT2,XR1 18A9 BO OF 40 1961 TEF BSTAT(,XR2),X*OF* HOFE ERRORS? 
1688 FO 3B 5F 1894 MHLT2 HPL R9,HH *HFCO NCT REALY CR EFRROR BAC DO $0 12 19€2 BF PONERE(, XR4) REEFUNCH THE CARE 
168B EO 87 13 1895 B FRIN1(,XR2) ISAF 7D FF @3 1963 CLI FLGTWC(,XR1),X°FE* CHECK IF 2ND CARD FLAG IS SET 
168E BD EO 5D 1896 ALS424u CLI PRSIO#1(,XR2) ,X* EQ? GO EXIT IF THIS WAS SPACE OPERATION 16B2 F2 81 16 1968 JE PONDUON IF SFI, THEN GO EXIT TRIS RTW 
1691 EO 81 65 1897 BE FRLEXT (,XR2} 18E5 3C 80 O8cR 1965 NVI  LPDATA?79,%°40? MOVE IN FIRST ELANK 
1694 BO F3 40 1898 SNS MSTAT (,XR2} ,X*F3° READ MFCU STATUS } i8Bo2 OC 1F OCA GBCE 1966 BYC LPLCATA#76 (32) , LPLATAt*79 ELANK OUT REST OF INPUT AREA 
1697 B8 10 3F- 1899 TBN MSTAT-2(,XE2),X*108 IF NC CAPD IN SEC WAIT STATION, 18BF OC 2F O@AA OS8FA 1967 MVC LPDATA¢46(47),LPDATA¢126 MOVE IN THE REST OF THE DATA 
169A F2 10 09 1900 JT DCIT ISSUE FEED COMMAND. 18C5 7C FE a2 1968 NVI ELGTHC(,XR1) ,X°FF? SET THE 2ND CARE FLAG 
169D DI FS 00 1901 TIO SHLT2(,XR1),X'FS* TEST FOR MNFCU NOT READY } 18C8 DO 87 12 1969 B PUNERR (,XR1) GC _FUNCH THE SECOND D:TA CARD 
16a0 F3 FE 00 1902 SIC ¥'O? Xt Fee CIVE WITH THE FEED COMMAND 18CB 7c OCG 4aB 1970 EURDOR #¥I FIGTHCE,XF1) ,Xx"O! RESET 2NC CARD FLAG 
26A3 D1 Fi 4B 1903 BSYLPO TIO BSYLEO(,XRi),X'FI TEST UNTIL NOT EUSY 18CE EO 87 65 19714 B ERPEXT (XR?) FETUEN TO RETORN oe 
1646 D1 F8 00 1904 DCIT TIC MHLT2(,XR1) -X#FB* GO HALT IF MFCU NOT READY y  18D1 0030 W8D2 1972 FONNUK DC = - XL2* 0030 PUNE COUNT FON Ihe 
16a9 B1 F4 42 1905 LIO  ER1(,XR2) ,X* Fat LOAD SFCU FRIN™ ADDRESS REGISTER 16D3 00 18D3 1973 FIGTWC DC XL1"O¢ FLAG FOR 2NE CARD PUNCHED 
GAC F3 FC AG 1906 SIO -XtaAUt, x¢FCH FRINT CN MFCU CARE ‘oe 
16AF BO F3 4O 1907 BSYLP1 SNS  MSTAT(,XR2),X°F3° WAIT FO SY TC DROP 1 
46B2 B8 40 3F 1908 TEN erie Lens P> 4 aor cece one pues 7 D ) eae Beer ee a Rg RP eT T ay Ter eee eae ete Ghee Tee tno 
BJ 
scua fi re sb sac . ce ud * BEGINNING OF DCP RESERVED STORAGE X*7800'-xX*7FFF* (2K) * 
TIC MHLT2(,XR1),X'FS!* GO HALT IF ANY ERRORS t 1 G : a 
16BB %C 83 O8FF O90N 1941 BVYC LFDATA+131(132) ,LPDATA*%32 PLANK PRINT BUFFER bls : Z 
16C1 EC 87 65 1912 "og FRIEXT (,XR2) RESTGRE XR2 AND RETURN 
1°13 ste snanesseasseysuasaesssaeetessanennsecseausnessanesssensnecsssenessen) 1980 SHKHSKKTAHKESSESSSELRHKSEKSPFKLSEKRKKS SSS KCSESKSASTSSCKRSIKSCRSFRKSSSASASKKE RIESE KSEE KISSSK 
1914 4 3741 ALTERNATE CCLE * 7800 1981 ORG x*78008 
1915 BEERS EAERESEEEERESESEEADSERE ERD 7800 CO 87 04590 1982 TEYFDD B ISTCVL THIS INST OVERLAYED BY FDD 
FF3B 1916 ORG X'*FFFFt-X*1788te% IF FLAGGED, OVER LEY PROBLEE } 1983 
1768 1917 ORG x*1788! 1983 - 
07114 1918 USING PETN,XR2 . 1983 
1788 1919 USING DHALT,XR1 ) 1983 
1768 FO 3B SF 1920 CHALT HPL 4#9,HH #3741 NOT READY OR ERROR oes 
178B EO 37 13 1921 B PRIN1(, XR2) RETUFN TO TRY AGAIW 
178E£ 71 41 35 1922 IIc FUNCSH(,XR1; ,X*41¢ ICAD FUNCTICN REG ) see eee ng ee eee eee ee nee een megane ere 
1791 BD EO SD 1923 RITREC CLI PRSIO41(,XR2),X*EO! IS THIS A SPACE OPERATION ; 
1734 EO 81 65 1924 BE  PRTEXT(,XR2) RETURN IF IT IS. ue : SPACE 1403 34 TIMES AATHER THAN 6 OF 7 
177 ie #0 1925 XFRSES SHS XFRLIN(,XR1) ,-X*43" SENSE THE TRANSFER LINES } 4988 SSERSHRSSRSESKEKERKKSSKSHKKKSSLAKSEKEKLSRSEIRSASSRASCHRESSKSSCKSESEKHKKKCKAKCSESAGKKESSH VSS 
179A 78 04 3F 1926 TEN XFRLIN-1(,XR1),X*04* TEST FCR 3741 ON-LINE BIT ON : (caasneics SF FLAGGED, C¥ER Lad PROBLES 
4.3D DO 90 00 1927 BF DHALT (,XR1) GC HALT IF 3741 ROT ON-LIBE FRO3 1989 ORG X¢FFFF' xX*7D e 
17A0 78 01 3F 1928 TEN XFRLIN-1(,XR1),X*O01" TEST FCR BRITE EIT ON y 7 B00 are es evs a . 7B00 
47A3 BO 90 OF 1929 BF XFRSNS(,XB1) LCOF IF WRITE BIT KOT OF 2 u 
1746 F3 43 08 1930 SIC x°087,x'438 NORMAL RESPCNSE TO 3741 7D00 38 04 0209 1992 TBN SBYTE1,x°Ou! SS¥OD an tear bucetoRigo 
V7A9 31 44 0755 1931 LIC FR2,X*4ge LCAL DATA ADDRESS REGISTER ,  7DO4 F2 90 08 1993 Se eaeeeacenoua a 2eegohcdbe uw os 
V7AD 71.42 4? 1932 LIC RECLEN(,XB1},X'42* LOAD LENGT« COUNT REGISTER 7D07 3B 04 0209 1994 SBF SBYTEY,X*0 GE ae 
1780 F3 42 00 1933 SIO =x*OO",xt428 WRITE A RECCKE 7DOB CO B87 7DHE oe a a ey DCDOBE 
1783 D1 42 28 1934 ISBIZ TIC ISPIZ(,XR1},x'42" WAIT TILL NCT EDSY E 4 
1786 RO &2 4O 1935 SNS MSTAT (,XR2) ,X "42 GET THE STATOS BYTES } TDCF 38-014 62693 1397 TBN ea TF SSW OF ON, AND SE 6 OF HORE DO 3 
2789 BO OA 3F 1936 TBF MSTAT-1(,XR2),x°OA? TEST FOR PARITY ERROR OR OVERFLOW 7Di3 38 06 OSCE 13998 TBN RSPACE,X*06 
17BC DO 90 00 1937 BF CHALT (,XR1) IF ERROR, HALT AND TRY AGAIN ; Ley ae ao pees ae a Souace 44 oe ease 
17BF F3 43 08 1938 SIO x*08*,x#438 NORMAL RESPCNSE TO THE 3741 e 
1702 £O 87 65 1939 B PRTEXT (,XR2) RETURN TO RETURN ROUTINE TDtE OF 06 OSCE 7DFO 2001 DCREG? SLC RSEACE (1) 2cunt SPACE 36 LOCP 
17C5 9000 17C6 1940 FUNCSH DC = x12* 40008 FONCTION REGISTER DATA ; 7524 CO 82 O6ZF 2002 Ee eee 
17¢7 0000 17C8 1941 XFRLIN DC = XL2*008 TRANSFER LINES LATA AREA © -7D28 CO 87 0714 oo ees 5 sorbose” -iepwenrs 
17¢9 O007F Q7CA 1942 RECLEN DC XL2*OO7F* LENGTH OF RECORD TO BE WRITTEN 7£2c £003 7DzD 2008 DC RL2° ECO s 
1943 SPREE RERS EERE SEEN S ERE REE ENE EEA A ERASERS ERERTEREES EER EEEEEE EE EEE REEM TD2E CO 87 TDIE eos SnoE jee eae pepice tl ehas SPACE LOCP LIKE DCP 
1944 * 1442 ALTERNATE CCDE % 7032 OF 00 OSCE TDF EG =t')e 
VQOGS FCHRERERERERERRERESESRE SHEE EE SEEESS 7D38 CO &Z O6DF 2007 BL FREXIT 
FP42 1946 CRG X*FFFFt'-x*1g8gtse IF FLAGGED, OVER LAY PROPLEM 5 yee co 0741 ae anne ae Se eoais 
1888 1947 CRG x? 18888 : 
0711 1948 USING PRTN,XR2 7242 CO 87 7D32 2610 B DCREG 
1888 1949 USING EHALT,XRi ; ee 
9688 FO 3B SF 1950 PHALT HPL 4#9,HE *1442 HOT READY CK ERROR n 
798B FO 87 13 1951 RB ERTN1(,XR2) TRY IT AGAIX 2012 a a a Na a 
188E BD £0 5D 1952 PUN42 CLI PRSIC+1(,XR2),X"EO! EXIT IF THIS WAS A SPACE OPERATION ) 2013 
1891 EO 81 65 1983 BE ERTEXT (, XRZ) 2014 * DUHE STORAGE ROUTINE 
1894 B1 54 44 1954 LIC ER2(,XR2) ,X*5ut LOAD PUNCH CATA ADDRESS REGISTER 2615 * 
. | ID PFP-& 
DATE 29A0UG75 O7NOV75 (19HAR76 0330N76 11FEET7 PROG ID FFF-4 DATE 29A0G75 O78OV7S I9HAR76 0350876 = 11FEB77 cice 20A 
BC BC. 827804 827805 827872 571871 387010 PAGE 20 }BC NO. 827808 827805 827872 571871 2atON0 
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. FART HO. 8248230 
IBM MAINTENANCE DIAGNOSTIC FROGRAB sane RO. sage 20 206 MAINTENANCE DIAGNOSTIC PROGRAS ee Sty 
FFF4 DIAGNOSTIC CONTROL PROGRAM - ACDEL 12 | FFP4 DIAGNOSTIC CONTROL EAOGRAE - BCDEL 12 
ERR LOC CBJECT CODE ADER STMT SOURCE STATEMENT ERR LOC OBJECT COLE ACER STAT SOURCE STATERERT 
2016 €FFHEREEEEEEEEERESEESERERAEEESEEEEREERED TDEF 0001 JTDFO 2083 CWNT cc X12°0001* 
2017 7DF1 0010 7LF2 2084 CHN16 DC XL2*0010! 
2018 FHOSEEKEEEERE EERE EERE $EESEEESEESEREEEEHEAE TDF3 0030 TDFG 2085 CWN&SB CC X1L2*00308 
7D46 2019 DCDUME EQU * 7DF5 0000 7DF6 2086 CWRSW pC XL2*00008 
7D46 CO 87 021A 2020 B FRINT SPACE TEE? 0000 7EF8 2087 CWNOLD DC xL2"00008 
TDMA 11 TDMA 2021 pc XL1°11¢ 7DF9 00 7DF9 2088 CLESKC fc xXLI*008 
7D4B CO 87 O21A 2022 B FRINT CLEAR BUF 7LFA 00 7DFA 2089 CLDIP a XL1+008 
7DUF 81 JOE 2023 pc XL1°61? TEFE 00 TLOFE 2090 KICTR oc ayy Oe 
7D50 28 7250 2028 DC IL1*408 CLEAR BUF 7DFC 0000 7CDFD 2091 TC = X12*0000" EXTRA 
7D51 7E25 7252 2025 pc AL2 (DEMG) TDPE C3ICBCIDSCICSHOE2 7E25 2092 DEMG DC CLUO*CHANGE SWITCH 1 AND 2 FOR KEW DORE ALDER 
7D53 OC 73 O8F& 7E9E 2026 BVC =. X¥* 087" 120 (116) , DPHG1 MCVYE HEADINGS FOR LUMP TEO6 EGCIFICZCEUOF 140 2092 
7D59 CO 87 O2Z1A 2027 B FRINT TEOE CIDSC4MOFQ2UOCELE 2092 
7OSD al 7DSD 2028 bc XLI*‘A1# CBN BREA a. pura 4c unene epee 
3 2 ‘ e Pp tT 0000 co é 
meee =e aC aoe ete ni Sie as oni Sete pe wore TE26 "O4O4O4OKOCICUCK 7E54 2093 rc Clave ADDR 00 02 O&8 06 O8 OR OC OF ' 
7D66 30 00 7DF8 2031 SNS  CWNOLD,X*00* &RKE CLD = PRESENT (SENSE SWITCHES} TEZE LIGOUOFOFOUO4OFO 2093 
2032 7E36 F24O40FOF44OKOFO 2093 
2032 7E3E FEXO4OFOFS4040FO 2093 
7D6A 2033 CPLP FQU. * TOP OF DUMP LOOP ae OLLceaaen: Snes 
7D6A 30 00 7DFE 2034 SNS  CWNSW,X'OO" GET SHITCHES E 
7D6E OD 01 7DF6 7DF8 2035 CLC OWNSW(2},CBNOLD IF WG CBG TO SSB, GO OW TESS 4O4O8O4OFCFO4OKO 7E78 2094 cc CL36° 00 02 O48 06 O8 OA OC OF 
7074 F2 81 10 2036 JE CCNTU TESD FOF24O4GFOF440KG 2098 
2037 7E65 FOF64OU0FOFB4040 2094 
2038 * MUST BE NEW VAL IF SR, SO INSERT If ead rccacas oaee 
6 8 VC SRC (2),O8RSW E 
ee - i enee vee anes pote de enecatGne START AT 256 EYTE BOURTARY 7E79 4O4O40404ONO4OND TESE 20S5 LEBG1 DC CL38? 00 02 98 O06 O8 DA OC OFF 
7D81 OC 01 7DF8 7DF6 2044 MVC) =CWNCLD(2),CWNSHW PUT NEW IN CLE 781 FOFOMOUOFOF24940 2095 
2042 * EEFORE PRINT SEE IF WE'VE CHANGED TC NEXT E°S00* BYTES 7E89 FOFSUOUOFOF6S040 2095 
7D87 2043 CONTU EQU * 7E91 FOFBUOUOF0C714040 2095 
7D87 OE 00 7DFB 7DF2 2044 AIC) =6BLCTR(1),CWN16 PUBP cTR 7E99 FOC3404GF ICS 2095 
7D8D F2 20 10 2045 JNGL NODPHS CAUSES HEADING ABOUT EVERY 16 LINES 
2046 
TESO CO 87 OZ1A 2047 B FRIST SPACE 
7D94 11 7094 2048 DC XLI¢448 
7D95 OC 73 O8F4& 7E9E 2049 BVYC =. X* 08704120 (116) , DPHG1 MOVE HEALINGS FOR DUMP 
709B CO 87 021A 2050 B FRINT : 
7D9F A1 7DOF 2051 oc XL1°A1* OWN AREA 
2052 
7CAO 20£3 MODPAG EQU * 
2054 * 
2055 *# 
2056 * SET UP DUMP FRINT LINE (3 UNPACKS AKD THE ADLRESS) 
7CAO CO 67 O21E 2957 E UNPACK 
7CA& 10 7DA8 2058 pc IL1*16¢ 
7DAS 0000 7DA6 2059 SRC Dc ALZ (#~#) 
7DA7 O8A6 7DA8 2060 pc AL2 (LPDATA48+6¢ 32) 
7DA9 OC 01 7DBE 7LA6 2061 MVC = SRC 1.(2) , SRC 
TCAF OE 01 7DBB 7DF2 2062 ALC SRC1(2) ,CWR16 
7DBS CO 87 021: 2063 B UNPACK 
7DB9 10 TEES 2064 pc IL1°16¢ 
7CBA 0000 7EEB 2065 SKC4 DC AL2 (*-#) 
7DBC O8CE 7DBD 2066 DC AL 2 (LPDATA484643248432) 
7BEE OC 01 7DD0 7EBE 20€7 MVC SRC2(2),SRC1 
7DC4 OE 01 7DDO TDF2 2068 AIC SKC2(2) ,OWR16 
7DCA CO 87 O21E 2069 B URFACK 
7DCE 10 TECE 2070 DC IL1°168 
7DCE 0000 72D0 2071 SRC2 vc AL2(¢*-#) 
7DD1 O8F6 7DD2 2072 DC AL2 (LEDATAtK46+324843248432) 
7003 CO 87 O21E 2073 B UNPACK PACK THE SCURCE AEERESS 
72D7 02 7DL7 2074 DC IL1*2¢ 
7DD& 7DA6 7pDD9 2075 Dc AL2 (SFC) 
7DDA 0884 TELE 2076 pc ALZ (LPDATA¢U44) 
TUDC 3c FO 0884 2077 BVI LPDATAe&+4, Cot ELIAINATE THE F FROM ADDRESS 
7DEO CO 87 021A 2078 B PRINT --~ PRINT THE LINE CF DUNP --- 
TDEG A2 7LEY 2079 rc XL1®A2* CWN AREA 
7ZES OE 01 7DA6 7DF4 2080 AIC = SRC (2) , OWNGB 
7DEB CO 87 7D6A 2081 B DELE CONTIRUE DUKE 
2082 
DATE 294UG75 O7NOV75 19MART76 0330N76 VIFERV7 PROG ID FFF-4 DATE 29A0G75 07NOV75 1OMARTE O35 N76 11FEB77 PROG ID FFF-4 
EC NC. 827804 827805 827872 571871 387010 PAGE 21 EC NO. 827804 827605 827872 57.971 387010 
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IBM MAINTENANCE LIAGNOSTIC FROGHAS PART NO. 4248230 IBM MAINTENANCE DIAGNOSTIC PROGRAS . PART NO. 42488230 
FAGE 22 PAGE 22A 
FFF4 DIAGNCSTIC CONTROL FROGRAM - BCDEL 12 FFF4 DIAGNOSTIC CONTROL PROGRAM - SBCCEL 12 


ERR LOC OBJECT COLE ALDER STMT SOURCE STATEMENT ERR LOC OBJECT CODE ALLER SIMI SCURCE STATESERT 
2097 *THIS FIXES DUAL PRCGRAM FEATURE PROC CHECK PRCELEM, BY DISABLING FEBA 2109 ORG X*FFFF¢-x°8000'+* IF THIS ORG FLAGGED YCU'RE OVER 
2098 *CEF & RETURNING DCP CONTRCL TC ERCGRAM LEVEL 1. 2110 * CCKE BCUNLARY. 
7E9F 2099 DPFIX EQU. * DUAL FRCG. LVL CHANGE FIX 2111 
7E9F 35 20 7EBA 2100 1 DISDEF,F1IAR FCINT PIIAR TO LCISABLE DPF 2111 
7EA3 F100 00 2101 APL x*00*,xX*00* ADVANCE ERCGRAMB LEVEL 2111 
7EA6 F3 00 00 2102 LABEL1 SIO =X? 00", X*00: DISAELE CEF FEAT. 210i 
7EA9 C2 02 0208 2103 LA LEASE, XR2 LOAL XR2 O6CE 2112 ORG PRT? ORG AT END SO IF NCT ENOUGH CORE, LINKAGE NOT DONE 
7EAD 34 01 029F 2104 st TCDEN¢3,XR1 SAVE XR1 06CE CO 87 7D00 2113 B SPC 34 INTERCEPT SEACE CCBMANLS AND TRY TO SPC 38 
75B1 CO 87 0212 2105 F TEST 2114 
7EBS CO 87 0279 2106 B RINFIX RETURN FROM DPF FIX RTN. QUIS SHSSeHHLSSSESSESSSAATAHHSATSERSSSSESSSESTSSCSESESSKS ISSES SHS SARAASKHESHESERSTE 
7EB9 7EA6 7EBA 2107 DISDPF DC AL2 (LABEL 1) ADDF FIIAR TO DISABLE DPF 2116 * THE FCLICWING 10 *TREP* CAFLS WERE INSERTED TO PROVIDE 
2117 * A BEANS OF CEANGING UDT,CPU AND CHAIN IMAGE WHEN 
2118 * CEERATING CH A 3741. 
ZUG SHSSSSOSSESETOESS, PHKSSSSS SHS SEEESS SKEET SRESAS SESS KEKEHERSESHSHESSESSS 
2120 TREP 
2121 TREE 
2122 TREP 
2123 TREE 
2428 TREP 
2125 TREE 
2126 TREP 
2127 TREE 
2128 TREP 
2129 TREF 
2120 * TREP 
2731 RPSESSESERTESESSKS ST SCHESSESSSSSSESESESASERESVKES SSH SASCKSAEH SE SHSHSSTTIKSEHSESSSSE AVS 
2132 900e8099080582 
21233 IREP 
2138 TREP 
- 2135 TREP 
2136 <BEP 
2137 IREP 
2138 _ SREP 
2139 TREP 
2180 TREF 
. ; 2181 TREP 
21482 TREP 
2143 TREP 
2148 TREF 
2145 TREP 
2146 IREP 
2147 TREP 
2188 IREF 
2189 TREP 
27150 * 
OE86 2181 END PEGIN 
DATE 29aUG75 O7HOV7S  § 19MAR76 03JUN76 11FEB77 FROG IL FFF-u DATE 2940675 O7NOV 75 19MAR76 O350"76 - T1PEB77 ; PROG ID . FFF-& 
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: ; 
FFF4 DIAGNOSTIC CONTROL FROGRAN - ACDEL 12 y FFFA = DIAGNOSTIC CONTROZ FROGRAM - MODEL 12 
CRCSS-REFERENCE CRCSS-FEFERENCE 
% 
SYMBOL T LEN VALUE DEFN REFFRENCES * SYMBOL T LEN VALUE DEFN REFERENCES 
ACTKON A 003 12BB 1767 1655 5 CKCHN A 001 OPEF 0428 0422 
AINPUT A 001 0067 0107 6110 ‘CKCIO A 001 13€F 1856 1852 
AJDEST A 003 012C 0232 0229 CKCOM A 003 0154 0252 0458 . 
ALTPRT A 001 9786 1132 4102 19330 «11710«1173~2~=«O«1341 _CKCOMA A 003 OAOF 0319 0220 
AL5424 A 003 168F 1896 CKCOM1 A 004 0113 0220 04598 
ARR C 001 0008 1347 0108 0280 ¢€294* 0573 0651 0679 0703 0721 0776 0795 0976 1088 CKCFU A O03 OA3L 0334 0320 
1279 1641 1774 #1790 1822 : CKDCES A 005 OBSE 0422 0372 

ARRSAV A 001 04802 0746 0653 0656* 0679% 0721* 1279* 1282 1283% CKEND A 003 OBA? 0445 0430 
BEGIN A 001 OF86 1419 0460 1328 2151 CKPTK A 004% OFD3 1533 1528 
BEGINA A 001 OESO0 1422 CKREP A 004 010C 02718 0127 0152 
BITO C007 0080 1583 0282 0593 0596 0615 0918 0982 1094 1203 CKUDT A 003 OAAS 0371 0335 
BIT1 Cc 00% 0040 1384 0594 1000 1065 1219 CLRCCR & 00% 0108 0203 0216 
BIT2 C001 0020 1385 0282 0297 0579 0590 0995 1211 %613 1668 1670 1682 CMLOCP A 004 OOBE 0139 0144 
BIT3 C 00% 0010 1386 0385 0582 C993 1212 7216 CNPK A 008% 033C 0651 0680 0722 
BIT4 C001 0008 1387 0282 0590 1230 CHPKX@ A 001 0362 0662 0651% 
BITS C001 00048 1388 0276 0282 0579 0os590 CNT A007 122E4 1783 TIS* 17€C*# 
BIT6 Cc 001 0002 1385 0590 CONTG A 002 #7D87 2043 2036 
BIT? C 001 0001 1390 0621 CPU A 00% 02048 0506 O348* 0355 1458 
EIZZEE A 003 18A0 1958 1958 CPULP A 005 OA69 0350 0354 
BOOT1 A 004 0000 0022 0021 0031 CPUOP A 00& OA6S 0349 0359 
BOOTIA A 003 O00D 06026 0026 CRICHG A 0048 O069C 1038 
BOOTiE A 003 0017 0030 0623 0027 CRTFLG C 001 0879 1361 
BOOT?1 A 00Z O001F 0033 0024 CTR A 001 0336 0646 0654 0655 0657* 0698% 0723 C725* 0740* 1434% 1441e 1442% 1448 1450% 
BOOT2 A 004 0200 0054 0028 0052 0053 0058 14549 
BOOT2A A 003 620D 0058 0056 0066 » DADDR A 0017 O4A2 0832 0830* 
BOOT2E A 003 0216 0061 6061 - DASH <A 001 12uF 1757 1488 1496 
BOOT2E A 003 020A 0057 0058 0062 DATSWS A 002 O480C 0769 0268 O772 0777 0781 0781* 0782 0791 0793 0798 0800 0820* 0822 
BOOT21 A 003 0205 0071 0065 } 0823 Of32 0839 O844 O846 O849 0657 O865 1883 188Ke 
BOOT22 A 001 0239 0072 00654 *" DECO a 004 O01F4 0300 0290 
BOOT23 A 002 0238 0073 0059 DEC1 aA 001 O1FS 0301 0292 
BSYLE A 003 0770 1123 1123 } DEST A 002 013A 0237 6227 0230 0238* 
BSYLPC A 003 1€A3 1903 1903 DEST1 A 001 0382 0690 0658* 0691% 
BSYLP1 A 003 16AF 1907 1909 DEST2 A 001 O3DB 0733 0659* 072398 
BT2 A 003 0204 0055 0071 \ DEV A 001 OAA7 0370 0382 0390 0394 
BUSY A003 0074 6112 0112 ‘ DFOUR A 602 1160 1738 1452 «1453 
CCHHO A 005 1140 1725 1728 DHALT A 003 1788 1920 1870 1919 1927 1937 
CCHHO@ A 002 114C 1728 - DISDPF A 002 VEBA 2107 2100 
CCHH1 A005 11245 1726 1729 DKFLAG A 001 10FE 1677 1609* 1619 
CCHH1@ A 002 118E 1729 DODUMP A 001 7D46 2019 1995 
CCHH2 A 005 114A 1727 1667* 1730 DORA A 004 1123 1697 1590 1594 1632 
CCHH2@ A 002 1150 1730 1620 DOHO =A 001 1114 # 1689 1683 
CDERRO &£ 003 OA9SD 0365 DO™T A 003 WAG 1904 1900 
CDEXIT A 004 OQO7D 0115 0108% DOLIC A 003 OO6E 0110 0117 
CDREAL A 004 0060 0105 0104 6105 0723 0136 0281 0308 O869 0478 0879 DOREG & 006 7D32 2006 1999 20%¢ 
CHAIN A 005 OAOB 0315 0429 DOREG1 A 006 7DIE 2001 2005 
CHCTR A001 OANE 0317 0432* 04991% 0467* DOSZ a 006 OED? 1452 1445 14849 
CHKEND A 003 0198 0274 0261 DPFIX A 001 7E9F 2099 0574 
CHKFG A 003 QO30F 0628 0623 DPLP A001 7D6A 2032 2081 
CHKID A001 1285 1789 1561 1565 185@ 1862 1867 1872 DPMS A040 7E25 2092 2025 
CHKSR1 A 0048 1310 1802 1791% 1798 DPMG1 A 038 TESE 2095 2026 2049 
CHKSSW® A 005 0169 0260 0253 DSKSYS A 001 137F 1849 1843 
CBKSSO A 004 O17F 0264 0272 DTABLE C 001 O1FE 1414 0286 0294 0578* 0619 0637 1847 18878 1850 18508 
CHKSS1 A 004 O41F 0780 0777* 0779% DUSCCH A 002 0624 0998 
CHKSS2 A 003 OW2F 0785 0780* 0762* D048 =A 003 OAO2 0312 0436 
CHKSWS A 006 0664 1023 1036 DO430 aA 002 1165 17481 
CHKX@ A 008 1314 1803 1790* 1792 1793 ° D120 A 003 OANS 0313 0434 
CHK1 = =€ 003 OF8D 1513 1571% ENDCLR & 001 0132 0212 0209 
CHK2 A003 OF90 1574 1512 ENDRTN A 901 0901 1201 
CIOHLT A 001 O78D 1172 1162 : ENTRY? A 001 O29A 0585 18398 
CIOSTS A 002 0751 1169 1160* 1161 ENTRY2 A 001 0331 0639 1840% 
C101 A904 O7BD 1157 1149 ERR A 003 0081 0116 0109 
CIOVA A 001 O7BA 1171 FD6a = & 002 1084 1627 1620 1666¢ 
CIOUE A003 O7C1i 1158 1166 «1171 ; FD6ALK A 002 1086 1628 1623 
C102 A 001 O7BD 1173 FD6D A 00% 1074 1621 7592 1619 
C102xX A003 d7cK 1159 1187* 1156% 1173 ‘ FDOKON A 003 12BE 17638 1664 1684 
CKBLK A 003 013F 0239 0243 ‘ FD6ETN A 001 1087 1629 1614 1628 
DATE 29A9G75 O7NOV75 ISBAR76 0330N76 V1FEER77 PROG ID FFF-s DATE 29AUG75 O7NOV75 19OBAR76 13IUN76 V1FEBT ie 
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FFF4 DIAGNOSTIC CONTROL FROGRAM - MODEL 12 FFT2 DIAGNCSTIC CONTROL FROGRAB - SCDEL 12 
CRCSS~REFERENCE CROSS~-REFERENCE 
SYMBOL T LEN VALOE DEFN REFERENCES ’ syspoL T LEN WALUE DEFN REFERERCES 
FINDSZ A 006 OEDD 1453 1455 _ IPL Cc 001 0040 0482 0025 0060 
FIVE A001 0O3F3 0741 0656 ; “ ISAO A008 104E 1606 ; 
FIXMOB A 004 1378 1822 0327 1421 ISA1 aA 004 105C 1611 1608 
FLAG C001 OTFE 1413 0276 0282 C6297 0827 1230 , ISBIZ A 003 1783 1934 1934 
FLAGS A 001 1161 1739 1499* 1527 1530* 1533 1536% ‘ISCHN A 004 0B77 0831 
FLGTWO A 001 18D3 1973 1963 1968* 1970# ISEND A 001 OBBB 0850 0446 
FLG1 A OGi 1082 1626 1642* ,ISSSW A003 0178 0263 0826 
FRTN C001 OAO7 1358 0859 *ISWIN A 001 10D5 1661 1659 
FUNCSH & 002 17C6 1940 1922 IS120 A 0048 OB9C 0441 0435 
FO C 001 OOFE 0568 0632 0828 ,ITR1 A 001 0531 0892 1312 
F1 C 001 OOFA 0569 *ITR2 a 002 0783 12129 1313 
F4 C 001 OOF1 0570 0628 ITR3 A CO1 O2CA 0602 1314 
GOLOAD A 004 112D 1711 1420 1630 1698 ,ITRS A 001 067A 1029 1315 
GWN A 001 7DOF 1996 1993 ITRE A 002 0785 1130 1316 
HA C 001 003F 1402 1232 1710 ITR6 A 002 0231 0530 1317 
HALT A 004 0222 0526 ,ITR7 A001 0556 C905 0881 1318 
HALTA A 003 O9E6 1303 1301* 1202% Fd A 003 1156 1734 1846 
HALTE A 003 O9F1 1306 1304% 1305% 31 A 003 1189 1735 1648 
HALT2 A 004 O9FC 1291 1285 , LABEL A 008 OOD& 0145 0137* 0146* 0148 
HALT3 A 004 09C3 1294 1287 1290 LABEL1 A 003 7EA6 2102 2107 
HB Cc 001 0079 1403 LAST A 001 O7EO 1170 
HC C 001 006C 1404 0630 LBASE aA 001 0208 0510 0567 9572 0617 2103 
HD Cc 601 0073 1405 0295 ‘LDEND A 008% O094C 1223 1208 1215 
HDCTR 2 G01 7DFB 2090 2084s LDPT2 A 004 O1ARP 0280 0296 0305 
HDG A 028 O5Cc 0968 1018 , LDR A 006 116B 1747 1529 
HDG1 A 00% OSB2 0967 0981* 0984* 1007 1014 17015 'LDREG A 00% C3F7 0743 0701 0708* 1308 
HE Cc 001 007C 1406 0609 LDROK A 001 OBC9 04856 0852 
LEXIT A 004 O9F4 1307 1289 1292 ; LDUDT A 005 OAFS 0394 0391 
HE Cc 001 003C 1407 0809 - LDWORK A 004 005D 0879 0132* 0133 0287 0288 
HGO A 004 OBBS 0451 0455 LDX A 004 01:87 0278 0298 
HE C 00% OO3F 1408 0030 0057 0116 0295 ©6325 0365 0387 0438 O8487 68532 0609 0639 .LDX@® A 001 OTAA 0279 0280* 
0818 0851 ©0863 0912 1115 1143 1221 1232 1692 1710 1830 1877 LD1 A 007 0247 0589 o5e3 
1877 1894 1920 1950 : LENGTH A 003 OOBB 0138 0149 
HHHALT A 003 13D1. 1877 1874 pLEXIT A 004 13fC 1881 18229 
HL c 001 0068 1409 LEW A 003 0287 0615 0612 
HLiA A 003 O46C 0809 LE2 A 004 032E 0638 059% 0616 1735 
HLTB A003 0478 0814 _LHLT1 A 004 OSDE 1301 12948 
HLTC1 A 003 0311 0630 0636 *“LHLTIA A 008 O9EF2 1302 12959 
HLTD A 003 O8LD6 0857 0868 LHLT2 A 00% OSES 17304 12962 1300 
HLTE A 003 056A 0912 _LHLT2A A 008 CSED 1305 1297% 
ELTF A003 02D7 0609 . “LINE? A 023 1185 1749 1433% 1452% 1453¢ 1482 
HLTG A O03 112A 1710 LINE1A A 036 11AL 1750 14057 44S7* 1860 1476 
HLTHD A 004 O1DB 06294 0289 ; LINE2 A 029 19ET 1753 1492 
HLTTAB A 001 0980 1274 1273 1281 ‘LINES A 026 11%FEB 1754 1538¢ 1582 
HP C 001 OC3E 1411 0812 0814 LINTG A 033 121C 1755 1560 
HU Cc 001 006B 1410 0817 , LINK &2 004 0216 0523 
HO C 001 OO06F 1392 0325 0326 0365 0366 0387 0388 08638 0439 O447 O488 0453 O4S5E ' Lue A 002 0953 1226 
1692 1693 1830 1831 . LHSG A 014 OSAF 0965 05239 1226 
HOH A 003 1333 1830 1835 yLMSG@ A 002 022F 0529 
H1 Cc 0017 0003 1393 0448 4221 LNK1 A004 OS52E 0891 0913 
H2 Cc 001 0076 1394 0851 1833 LNKTA A 004 0539 0895 os98 
H3 c 001 0057 1395 0388 0863 0912 pLNK2 2 004 0508 0899 0894 0919 
HY C 001 OO1B 1396 1693 LNE3 A COG 0558 0908 0960 
ES © 001 OOSE 1397 0030 0057 0116 0326 0454 LNK4 =A 005 «0571 «9916 091% 
BS C 001 007D 1398 0366 1115 pp bake A 004 0588 0923 osese Ces? 
H7 C 001 0007 13569 0439 LNK6o A 008 O58C 0924 0875* 0922 | 
H8 C 001 OO7F 1800 LOAD A004 022A 0528 1625 7685 16489 
H9 C001 OOSF 1401 1143 1894 1920 1950 _LODEH A 004 O029B d5£6 OS71* CEGO 2708s ; 
IAR C 001 0010 1346 0522* 0523 0524* 0525* 0526* 0527* 0528+ “LONE A 001 027D 0577 0628 
IDADDR A 002 O063D 1006 1003% LOOF A 003 O0O09B 0128 O0%125 0734 
IDLOST A 011 1295 1760 16848 ence 7 a bece aoa aaa 
” az ~~ 
Sueudwe oor Goes icae: eee LPDATA C 001 O087C 1353 09784 9999 0999 1061 1061 1111 1911 1911# 1965* 1966 1966* 1967 
IMGADR A 002 OBDE 0465 04314 0466* : 1967* 2060 2066 2072 2076 20778 
INADRY A 002 OBF9 0472 "LPERR2 A 003 6758 1115 41170 «4424 
INPUT C 001 0880 04877 0106 0135 0178 0218 0226 0345 0360 04648 6472 LPIBAG A GO1 O8CO 1178 0433* O0442% 1770 
DATE 29A0G75 07N0V75 19OMARTG 0300N76 V1FEBT77 PROG IL FFF-4 DATE 29RUG75 OTNCVIS ISBARTE C3JUNTE ViFEE77 bRoe 2% =e 
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IBM HAINTENANCE DIAGNOSTIC PROGRAN ous ee | PART NO. 4248230. IBM BAIYTENANCE DIAGNOSTIC PRCGRAB a PRET WOe: ENO Z20 
FFF4 DIAGNOSTIC CONTROL FROGRAB — BCDEL 12 pe ee 7 | , FFF4 = DIAGNOSTIC CONTEOL FROGRAR ~ HODEL 12 : 
/ | CROSS-REFEFENCE | | | CRCSS- REFFBENCE 
SYMBOL T LEN VALUE DEFH REFERENCES ' SYMBOL 7 LEN VALUE DEEN REFERENCES 
LPNRDY C 701 00£O 1109 1117-1124 ae ‘ es ooae orce 
LPTONE A V0 OOEF 0455 , 
LVHOB A 001 1358 1879 1827 1832 1836 1855 aon : eae aaee nace a. ae 1956 
Lx? A 004 O02F4& 0619 . 3 as boy < 
LX2 A 001 O2FE 0622 1735 1644 ‘ PK2 A 004 03CA 0727 0738 
MASC A 004 OA7E 0355 0349* 0352 0353 03524 PK3 A005 03D8 0731 0729 
MASK A 002 115D 1736 0411* O&81H O414* 0416 0417 1509% 1511 1512 1522 18z2* , PKG BA 00% Q3EC 0739 0736 
MHLT2 A 003 1688 1894 186£ 1893 1501 1904 1910 eee _ sa aoe ae nae oe re 1506 1507 1538 
MICDAT A 003. 12B8 1766 
MICLDR A 003 12B5 1765 - .PREXIT A 006 O6DF 1061 0988 1056 1099 2002 2007 
ANN C 001 0003 0645 0661 0726 PRIME A003 O7S5 1117 1105 eas 
MNZ C 007 0002 0644 0692 0695 PRINT A OO& O21A 0524 0256 03230 1223 1631 1473 1879 1485 1889 1893 153° 1585 1557 
MODIFY A 001 O82F 078% 0786* O84uer : 1574 1579 1685 1690 1778 2020 2022 2027 -2047 2050 2078 
MOVE A 905 OOFC 0164 0154* 0155* 0157 . / PRINTE A 004 O70D 1076 0976% 0977 1063 1072* 141126 , ‘ 
MOVID A 003 O031E 0634 0626 PRIV A002 1154 1732 
MSTAT A 002 0751 1107 1169 1898* 1899 1907* 1908 1935* 1936 1959 1960 19614 beoete : ae as ee ae 
MVCID A 005 1055 1662 16604 o 6 
BYVX1 A 00171 O36F 0683 0681* 0692 0695 PRSIC & 003 OF76L 1122 10S1* 11421% 4148 1150 1866 1923 1952 
MVX2 A 001 0O3D9 0732 0726% 0735 0737 ) PFTEXT A 008 0776 1125 1104 195% 1167 1867 1912 1928 1939 1953 1971 
MZN C 001 0001 0643 0735 0737 eae : one cae anes pele 
BZZ C 001 0000 0642 RTE 
NEG1 A 002 0338 0647 0691 0697 0658 0734 0739 y PRTUG A002 O69F 1041 
NEG4 A 002 008A 0120 0187 PRTN aA 004 0711 1087 0997 1016 1040 10462 1052 1057 1686 1087 1169 1892 1918 1989 
NEWD A 006 7577 2039 2003 2008 
NEXT A003 012F 0233 02465 ) PRTMA A 001 O78D 1141 T1710 «4172 0=« «11173 -1865* 18708 18752 
NEXTOP A 006 OFAC 1522 1515 PRTNE A 004 O77E 1127 1088* 1090 1092 
NEXTR A 00% O08B 0123 0069 0177 0210 0217 0280 0255 0258 0273 0275 0329 0332 0364 PRINT A 004 0724 1093 1116 «61944 «69895 «61921 1951 
0367 0389 9402 O480 O449 0468 p PRTH2 A 004 0736 1088 1095 
NEXISS 2 004 0683 1034 1024 PRT2 A CO& 0601 0987 0983 
NE2 A po ac 1682 1652 1654 1656 aeaes A 003 peae Taae 0986 
NINE A 001 41B 0778 0730 PRT A 00S O6A 104 1001 
ROALT a 004 0745 1103 ) pre B 006 06C2 1051 0991* 1038% 1039% 1045* 1046% 1048 10998 10502 1145* 1166 1155* 1165¢ 
' NOBME A 003 0291 0582 0&80 FRT6A A 004% O6C8 1052 0996 
NOCHG A 003 OBA 0843 0437 } PRI7 A 0046 O6CE 1055 0994 1047 1059 2112 
NODPAG A C01 FDAO 2053 2045 PRT8 A003 O6F5 1068 1066 
NOPOF A 001 OF35 1478 1472 PRT9 Ak 003 O6FE 1071 1069 
NORM C001 0000 0483 0111 , PRUDT A 006 OFE3 1538 1531 1534 
NOTD A 004 1385 1851 1848 ’ PRI A 002 0753 1110 1119 1905 
MOTFND A 019 42A8 1761 1688 PR2 A 002 0755 1111 1120 1931 1954 
NCTOF A 001 OFA 17867 1462 . PR3 A 002 OSB1 0966 0963 0974 1049 1125 
NOT64 A 006 OED1 1450 1447 * PRY A 002 0757 1112 1116 
RCUNIT A 003 OFF1 1544 1801 PSR C 001 0064 1348 
Nox A 00% Oa55 6341 0338 « PTAGS A 001 05214 0972 0980* 1054 
NSPACFE A 001 OSCE 0970 0989% 099CG* 1055* 1152 1154* 1998 2000* 2001* 2006 ‘PTCIO A 005 0793 1145 
paeee A i ee 0211 0206 PTFDC A003 OABE 0377 0374 
N A 002 0088 0119 01862 0238 . PIMSG A 008 02C7 0601 0595 
N24 A 001 OAOG6 0314 0466  prR A 001 O2F7 90620 0628 0632* 0633* 0€34 08282 
KS A 001 O2A6 0369 0469 PTX A 0C% 12BF 1774 1573 1578 
OK A 008 O1F6 0297 0291 0293 . PTXa 2904 12F0 1782 1778% 
Bence A aca Bcee 0462 0870 ‘ PTZERO 3 004 02C€3 0600 0635 
CLDSEC A 1 DF9 2088 PT90 aA 0O& O73A 1099 1097 
OLDTP A 001 7DFA 2089 , FUNDUN A 003 18CE 1970 19648 . 
ONCEXX A 008 1345 1836 1837% PUNERR A003 189A 1956 19862 1969 
ORE A001 0399 0659 0667 0576 0725 0909 1086 1443 1454 1509 1523 1780 1793 PUNNUM A 002 18D2 1972 1955 
ONEA A 0902 OAOD 0316 0411 0412 , PUNS2 A003 188E 1952 
CFBUF A 001 1282 1764 1458* 1462 14862* FIIARF C 001 0020 1349 2100* 
eepoe A he our gece 0358 P7IAR C 001 0081 1356 
A F 462 1471 KDCD A 00& OBEE 0869 0443 
OPNUB A 001 1415E 1737 1510* 1516 1523* 1524 READ C 001 OOF1 O484 0025 0060 0111 
OPTTAB A 001 1289 1762 1461 . READRC A 0C4 10AE 1649 1671 
OWNOLD A 002 7DFe 2087 2031* 2035 2Ca1* — ; RECLEN A 002 17CA 1982 1932 
OWNSW A O02 T7DF6 2086 2034* 2035 2039 2081 " RED A003 OO8F 0124 0283 0299 
OWN1 A 002 FDFO 2083 2001 2006 RESTRT A 003 0978 12448 1202 
Secac ‘ oon rea Soce 2084 2062 2068 , RHALT A 004 0990 1279 1130 
2080 ; * RITREC A 003 1791 1923 
PACK A 004% 0226 0527 0224 0234 0265 0343 0379 0462 RLDA aA 004 O02A3 0588 0573* C575 0576* 0581* 
DATE 29AUG75 O7NOV75 TOMAB76 033UN76 1EFEB77 - PROG IL FFP-¢ DATE 29a0G75 O7NOV75 JOBAR76 9397 
. } P- ‘ J2N76 11PEB77 PROG ID R-8 
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FFF4& 


SYMBOL 


RLD2 
RLFLGS 
RLINK 
RLOAD 
RNUS 
RPACK 
RPFX 
RPONE 
BPRIRT 
RTEST 
RTNFLX 
RUNNER 
SADDR 
SALLY 
SAVE1 
SAVREG 
SBYTEO 


SBYTE1 
SBYTE2 
SBYTE3 
SBYTE4 
SBYTES 
SEARCH 
SETSSW 
SETS%@ 
SETO 
SID 
S101 
SIZE 
SHOD 
=U 
SPAPBT 
SPBF RG 
SPC34 
SPFLGS 


SSDEST 

| SSB 
SSWD 
SSWOA 
SSWOR 
SSWOC 
SSWOD 
SSWOE 
SSuar 
SSwoo 
SS¥01 
S$S¥02 
SSwo3 
SSWOS 
SS¥05 

- $SW06 
SS¥O7 
SSWOB 
SSw09 
SSW2F 


DATE 
Ec NO. 


DIAGNOSTIC CONTEOL PROGRAM - MODEL 12 


T LEN VALUE 
A 003 O2DD 
A 001 02CB 
A004 052k 
A004 026A 
A 001 0203 
A 004 03B4 
A004 0211 
A 004 OS5DA 
A 004 O5D2 
A 004 043E 
A 003 0279 
A C04 0363 
002 0185 
A005 0a43 
A 004 13D4 
A 008 03A0 
A001 6208 
A 001 0209 
Rk 001 020A 
A 001 0208 
A 001 020C 
kh 001 020D 
A004 1095 
A 004 QUOD 
A 001 0483D 
A001 0463 
kh 001 1301 
C001 0018 
A002 0203 
A 001 0200 
A 002 05D0 
A 002 O6DA 
R002 0657 
A C01 7D00 
Cc 001 Oa02 
Cc 001 0aGo 
€ 001 OAOA 
A 002 7DA6 
hk 002 0138 
h 002 7DEE 
A 002 7Db0 
A 001 10FE 
R008 10F9 
A 004 0380 
A 064 O3FB 
A 002 067F 
A 001 O5CC 
A 003 OBF7 
c 001 0020 
C001 0010 
Cc 001 0008 
c 001 0004 
c 001 0002 
C001 0001 
¢ 903 0080 
Cc 001 0080 
C 001 0020 
¢ 007 0010 
C001 0008 
¢ 007 0004 
C001 0002 
c 001 0001 
c 001 0080 
c 001 0040 
c 001 0001 
29A0G75 


827804 


DEFN 


0611 
0603 
. 0889 
0571 
1195 
0721 
0517 
0975 
0973 
0792 
0575 
0€79 
0267 
0336 
1878 
0703 
0511 


0512 
0513 
o514 
0515 
0516 
1641 
0774 
0789 
0766 
1797 
1360 
0505 
0503 
0971 
1058 
1017 
1991 
1357 
1355 
1359 
2059 
0236 
2065 
2071 
1678 
1672 
0707 
0744 
1032 
0969 
04271 
1375 
1376 
1377 
1378 
1379 
1380 
1365 
1366 
1367 
1368 
1369 
1379 
1371 
1372 
1373 
1374 
1381 


O7NCV75 
827805 


REFERENCES 

0608 

0593* 0596* 

1129 

0904 

0860* 0861 

0526 

0872* 0899 

1055 

0601 

0706 0891 

2106 

1028 

02644 

1857* 1861 

0652 1280 

0254 0328 

1096 1098 

0825* 0611 

0262 0262* 

1611 

0269 O85 

0776* 

0770 0775 

17944 

0346 1435 

0336* 1433 

1022* 1031 

2113 

1203 

1205 

2929* 2030% 

02334 

2061* 206z* 

2067* 2068% 

1613 1644% 

1é41* 1695 

0703* 

0705+ 

1027* 1039 

0260 

0422 

0598 0902 

0597 0&3 

0917 

0985 1096 

0987 61098 

71101 1103 

1291 

0254 0328 

0€11 

1624 
TOBART6 


827872 


CRCSS~-REFERENCE 


0869* 0895 0909* 0910 1014 1238 
0908 0916* 1242% 

1307 

1866 1871 «1876 

O424* 0597 0599 0607 0783 0893 
1107 1103 1229 1288 1291 1697 
1992 1994* 1997 

0613 06413* 1023 1023* 1025* 1624¢ 
1439 #1886 61450 

Ses 1851 

1034* 1035 
2039%* 2040* 2061 2075 2080% 
2067 
1668* 1670 1682 

1288 
0607 1229 1697 

O3IUNTE T1FEB77 

571871 


387010 


PART NO. 
PAGE 

1239 12449 

0902 0917 0985 0987 
PROG ID 
PAGE 


8248230 IBN MAINTENANCE DIAGNOSTIC PROGRAS 


26 


FFF-U 
26 


FFFG 


SYMBOL 


STATUS 


‘STEP 


Si 


$2 


TBASE 
TEMP 


_ TEMPA 
TEMP 


TEST 
TESTE 


‘PESTI 


TEST11 
TEST12 
TESTts 
TESTS 
TEST 16 
TEST2 
TEST3 


_TESTSA 


TEST6 
LTESTOA 
TEST? 
TEST7A 
TESTS 


_TEST9 
TEXT 


TEXITi 
THLT 


" PHREE 


TMSG 


, TORU 
" TOMUCH 


TONE 
TRYCPU 
TRYFDD 
TRYFDE 
TRYOUT 
TRY64 
TRI 
TRI€42 
TR2 
TR3 


, TE3T41 


TRE 
TR5 


.TR5424 


TRS 
TR7T 


. TSTCHD 


TSTDSK 
TSTFC6 
TSTINS 


“@STOVL 


ISTUCT 


_TSTO7 
“TWO 


TWOK 


_T3 


UADBR 
UDTA 


_ UDTB 


uDTc 
uDTD 
UDTLP 
UDTLP1 
UDT? 


DATE 
EC NO. 


DIAGNOSTIC CONTRCL ERCGRAB - BCDEL 12 


LEN VALUE 
004 OO0SF 
OOS O37A 
004 900C2 
00& 00C6 
001 0803 
00% 0362 
001 1135 
001 03890 
O04 932172 
004 O4867 
00% Oo46c 
O03 O4F2 
00S O4Ft 
003 O&FS 
004 OFF 
005 0518 
003 0472 
003 OTE 
O08 O49F 
O08 O4Aa3 
00% O8FD 
C03 ONE3 
00% o04aci 
003 OnDO 
001 O«8fc 
00& O45F 
C04 0463 
002 6481 
001 dO2E4& 
078 OSA1 
003 OnFS 
001 010% 
007 . OBOE 
004 1328 
004 7800 
006 10DA 
001 10F1 
00& OEC3 
00% 0531 
004 :3C0 
002 0783 
001 O2CA 
004 tI3AF 
001 <OS7A 
002 O785 
O04 1395 
002 023% 
001 0556 
001 Ouac 
00% O&8SE 
004% 108©F 
003 1350 
003 04850 
001 13352 
00141 1037 
002 0338 
002 1138 
004 O87D 
002 OF6D 
005 OAES 
003 OBIF 
003 OB22 
006 OBas 
003 OFS5D 
006 OF81 
007 O249 
29A0G675 
827804 


DEFW 


0478 
0633 
01490 
OI 
0765 
0663 
1721 
0689 
0522 
0805 
0807? 
0857 
0861 
0863 
0865 
0872 
0812 
0217 
0831 
0853 
0837 
2839 
0843 
0849 
0858 
0803 
Ce8oe 
0818 
0614 
0964 
0163 
0165 
G77% 
1828 
1982 
1668 
1669 
Ws 
W312 
1872 
13743 
4316 
4867 
4315 
W316 
1862 
317 
1318 
0821 
c8c2 
1631 
1864 
0797 
1833 
18e8 
0649 
1723 
08 16 


1505. 


0290 
0&07 
0410 
08 16 
1500 
1541 
04e0 


O7NOVTS 
827805 


REFERENCES 


O0113% O118 
0629 
0138* 01395 
012S% 


0727% 
18398 
06824 
0610 
07954 
0799 
0ea7 
0871 


0728 
14834 
0684 
oeie 
084 1% 
0801 


0862 
0866 
0838 
0813 


6842 


0635 
0624 
0840 
O8Kas 
0850 
07342 0797 
07324 

O809* O8t0 
0633 

0605 


1738 


0163 
0869 
1825 
0796 


1665 
7836 
0522 
1869 
0523 
0528 
1868 
0525 
C526 
1860 
0527 
0528 
W736 
18854 


1881 
181% 1982 
1829 
1563 
0S8t. 


1567 
07486 


1802% 
03986 
0808 
0808 
0413 
15486 
1525 


TOMAB76 
627872 


20600606086 


T8GEs 


CROSS-REFERELCE 


0182* 0183 0186 

0730* 0731 

0685 0687 

9631 1093 1283 1712 1880 2105 
O87Re 

0853 0856 0866 0876 

0s8S8 

O812 O814* 0815 08179 


1871 

1092 1283 

0330076 V1FEBT7 
571871 387010 


PART KO. 42488230 
PAGE 264 
PROG ID PRF-4& 
PAGE 


26A 


e@5oebee 





intact Seti SoS a Unter dD camila a) lected cu ake Na tentials Ooty alist Sh notin st / ®@ @ ® ®& @ @ @ ®@ @ & & S ®@ @ @ & @ & @ & @ @ 


IBM MAINTENANCE DIAGNOSTIC PROGRAS PART NO. 4248230 IBM MAINTENANCE DIAGNOSTIC PROGRAB PART WO. wanveae 
ae: FAGE 27 ; PAGE 27A 
FFF&  DIAGNCSTIC CONTROL ERCGRAP - BCDEL 12 FFF4 DIAGNOSTIC CONTROL PROGRAM - MODEL 12 ; 
CROSS-REFERENCE CRCSS~REFERENCE 
SYMBOL T LEN VALUE DEFN REFERENCES SYMBOL T LEN VALUE CEFN REFERENCES 
: 0139 0139 0142 0142 0143 0164 0186 0146 0187 0142 ©1409 0156 
aEauee OE oe ao6c 1214 0155 C157 C230 0233 0238 0238 0240 0243 02865 0255 0258 0275 
UFIND2 A 008 0916 1207 1218 0283 0299 0329 0332 0364 0367 0383 0384 0384" 0385 0390 0392 
UFIND3 A 003 0928 1212 1222 0394 039 0356 0418 C419 O44O0 0468 VY5S67 0571 0572* 0573 0575 
UFIND4 A 603 0935 1216 1208 0576 0581 0587* 0593 0596 0597 0599 0607 0610 0611 0613 0613 
ULP1 A 00% OAC1 0378 0406 0617* 0618 0626 0628 0631 0632 0633 0633 0634 0635 0653 0657 
ULP2 A003 OAD2 038% 0393 ; 0658 C65S C660 0660* 0682 0697* C705 0727 0734* O748* 0791 0792 
ULP3 A 005 0B33 0812 0915 : 0793* 0794 0765 0798 0800 O8fe* 0809 0812 0814 0817 0820 0822 
ULP4. A 003 OBOB O4CO 0420 0623 0830 0833 0838 0839 0841 0842 O844 CEeX6 0848 08489 0853 
UNPACK A 004 021E 0525 0286 1004 1008 1012 1503 2057 2663 2066 2073 ne oan aces Ae poee hoes ne ae ae: cee oo cs 
ee ; ont RELE cee foee 1034 1025 1036 1039 1049 1055 1055 1068* *067 1067* 1070 10708 
UNPK3 A 004 O37F 06288 0686 107% 106071% 1072 1075* 1086 1087" 1088 1090 1091 1092 14116 1117 
UNEK& A 003 0393 0697 0694 1148 47119 14126 1121 1123 17128 4$725% 1140 T1404 ti4a5s 1147 11488 
UOK A 00% OA2A 0327 0322 03248 1150 7984 9186 1160 116% 1162 4165 4166 1167 12058 1797 4209 
UPTR A002 OACE 0381 0278 1210) 921% #1212 7213 12138 1219 1238 1239 31240 124% 1273 12818 
USET2 A 003 OBS1 0448 04 16% . 1294 4295 1296 1267 1301 1301 4302 1302 1308 1430& 1305 1305 
USET2 A 003 OBS& 0819 04173 1E60* TEN WES 1465" 1507*% 1508 1516 1517 1518 1520 1871 152% 
UTAB A001 0232 0534 0321 0323 0375* 0376 O0376* 0382 045% 1206 14698 17569 1591 1593 ; ba eee ice teae foes bi aca Aa i ics tee eta 
1795 u 78a Z 9 
VTAD C001 OCO& 1675 aces oes ee oa 1952 1953 1954 1959 1960 1961 1971 21038 
VTID A003 413B 1724 1662* 1664 , XTCHKL A 003 1300 1796 1601 
VT33 € 001 OOOE 1676 1667 XZ A 004 1207 1776 178% 
VXR1 A O0G4 0436 0787 0774 x00COQO A 002 1163 1740 
WASPOP A 001 UF3D 1464 1477 , X04 A 001 19136 1722 1842 
xC7 A 901 1155 1732 1520 X700 A 002 1152 1731 
XFRLIN A 002 17C8 1941 1925* 1926 1928 X200 A 001 0200 0214 0209 
XFRSNS A 003 1797 1925 1929 , X39 4 001 0389 0653 0687 
XF1 A 00171 OAS6 0362 0350 X87F A 004 O87F 1197 1198 
XM A 004 1022 1573 ZCKE A 001 0719 1089 1465 9 9165 
X41 A013 128A 1759 1577 , ZEO A 006 0112 0205 0206* 0207 0208 
XORE A 001 067B 1930 1034 
XREF1 A O0O4 O2ZED 0617 1339 1713 ZOTAL STATEMENTS FLAGGED IN THIS ASSEBBLY = Q 
XREF2 A 001 1318 1821 1338 ' 
XREF3 A 001 OE86 1418 1337 
XREFG A&A 001 O4O0D 0773 1336 
XREFS A 002 OWOC 0772 1325 } 
XR1 © 001 0001 1351 0021 0022* 0023 0024 0026 0027 0031 0052 0055 0055* 0063 0068 
0064* 0106* 0124 0126 0128 0130 0131 013141* 0132 0135* 0140 0180 
C141 0181 0145 01465 0147* 0157 0154 0155 0156 0156* 0164 0178% ; 
0179 0218* 0219 0228 0230* 0231 0232 0232* 0233 0239 0281 0241* 
0242 0284 0244* 0252 0260 0263 0263% 0266 027C 027% 0271* 0274 
0277 90286 C290 £292 0319 0334 0336 0337 0339 0339 0380 03482 ; 
0350 9351 0356 0356* 0357 0360* 0363 0371 0373 0377 0O2377* 0378 
0397 0397* 0398 0400 O460* 0401 0803 0805 O405* 0407 GHOS O481L 
0412 0422 0429 0434 0436 O4485 0458* 0459 0575* 0578 0578 0582 j 
0586* 0590 0594 0615 0619* 0621 0624 C625 0627 0634* 0635 0637 
0654* 0655 0656 0656 0657 0658 0659 0681 0682 0684 0685 0687 
0687 0691 0691 0692 0695 0696 0697 0698 0698 0700 0701 O704a 
0723 0725 0726 0727 0728 0730 0730 0731 0738 0735 0737 0738 
0739 0739 0780 0740 0742 0743* 0770 0774 0775*% 0776 0777 0777 
0779 0780 0780 0781 0781 0782 0782 0783* 0785 0787* 0790 6798 , 
0803* 0827* 6829 0829 0830 0831* 0833 0834 0836 0859* 0860 0861 
0865 0867 0870 O870* 9872 ©6873 0873* 0874 0875 0889 09C8* 0910 
0916 0918 0921 0921* 0922 0923* 0975 0977* 5980 0982 0989 9993 i 
0995 1000 1002 1002* 1003 1021* 1026 1026* 1027 1033 1037 1045 
1098 1050 1063* 1066 1065 1068 1078* 1090* 109% 1126 11338 1457% 
1158 1163 1164 1164* 1198 1206* 1207 1209 12130 1216 1217 + 1217% ) 
1240* 1241 1242 1254 1282 1284 1286 1294 1295 1296 1297 1461* 
1464 1468 14868* 1469 1498* 1500 1502 1513 1514 1544 1585 1545" 
1569* 1570 1606* 1607 1647* 1651 1653 1655 1662 166¢ 1667 1791 j 
1792*% 1794 1795* 1796 1799 1800 1800* 18602* 1857 1878* 1893 1901 
1903. 1904 1909 15910 1919 1922 1925 1926 1927 1928 1929 1932 
1934 1937 1949 1955 1956 1958 1962 1963 1968 1969 1970 2104 
£R2 C 001 0002 1352 COS3 0054* 0058 0059 0061 0v62 0065 0065 0066 0164 0105* 0108 
0109 0170 0472 0113 0174 0117 0132 0133 0138 0136" 0137 6138 
} 
DATE 29A0G75 O7NCV75 1OMARTE 0330876 11FEB77 FROG IL Fi: F-4 DATE 29AUG75 O7NOV75 19MAET76 c WONT 11FEB77 PROG ID FPF-8 
EC NO. 827804 827805 827872 5712871 387010 PAGE 27; EC NC. 827804 827805 827872 571871 387010 


PAGE 27A 





IBM MAINTENANCE DIAGNOSTIC PROGRAS 


FFF4 


THE CHARACTER 


CL 1% THROUGH 16 CL 17 TEROUGH 32 


THEDI{D ~"03=G"a 
T+-EBOH* S@HABHA 
T+-E'-K"K SE" EOC 
T+-F8/*BG SOR 
1+-G3<aBG /8h +2 


7 6G5a1D 
7 0G" F ADO 
Tt-¥:3{L80+. OF<{ 
T+-Z5/2*"00C2 OM 
T+~DOBK@E-OBGBWU 
T+-,,8-DH| BEOO 
T+-SWAGG << ABLE 
T+-_y DW;" CD 
T+->#CCO. --a@ 8 
T+-?PAGY+| [OHS1H 
THE?9IT H,O- C- 


eewmoeavenees 


T+-H: 

asain autres 
T+-HO/7:-_8F;1-F 
+-.,6 C2DAP#-<4 


T+-<WE*HB -T-/0, 


DATE 
EC RG. 


29AaUG75 


827804 


="03"G2a."0a8 Jk 
'65C SY |OH*EI-6 
= 31K 66-7" ("PC 
EC<BGA 5*EOGK 6| 


PJ4B ESE@-DEGE< 


eeeewoneve ees eecaneaneus 
ee enaeteoeeneaennevenes 


HO*XN D =NO @-D 


* H AG7FE?HAASO 
: HDA-DASH <ayD 
% VSEP*HAALEABS? 
<  Bzex, $0 8 
pe ss 
IOH*As D4DAOY.@-D 
GIX7E <BABST0+6" 
~7&YECO BC-#R8 & 


eeetoecaveaecene s 


(J 
: 9U* -G" xXUU {[H 
86 C D S9>E OA 
B&G"; D az ($- 


O7NOVIS5 
827805 


VOMAET6G 
827672 — 


DIAGNCSTIC CCNTROL FROGRAM - MCDEL 12 


GBJECT CARD LISTING 


CL 33 THRCUGH 48 


ACLUA JL / DKCK<4 
H/ED:~*MA®-DF_&G 
2 688 GHHSA 70H 


~GEGOH* STTE + 


At E"2-3<) OG5PYH 


eeeGeneuvesneveesae 


Y{& B<SBABSY'@ B 
CG198@ Ra EF /OR 
DOH*BR*HABEC2/0G 


/OH® - BD-=P -# 


h PS- {HA *HA PS 
+ JE)DN7 0%3C 
O|A*.7LOBB-8a 
0$0} /OB.|E B<?H 
20B* Q<BGE* PSE>Q 
ECLBEAB<SE wH(T” 


@eeeor eneeeseveoeneset 


SAQGAX~-<#3A 37 
<BGA) .GD-0/"0B 


B)P-{ ?HGEEXRS ,7 


— 0300N76 
571871 


CL 49 THROUGH 64 


A"q"QH* SOD 


34H* G-DH_ G*0Hn* 
BFSG-/2" ( -HE3< 


A.3-D ~7E0HG /0 


AB3MH ~"0474 /OF 


weaenwmoeeevrsescnortvtese 


2@YDF@C_?a@F*} 08* 


WA-SH -<@ HDI D 
1-**D@HD?70C_20F* 


?8-HC>A A@Z HAC_ 


<BA H_*E0C2 &- 


eM/EtC | .NJE)>- 
SLEH.B-P2-JE( -% 
AB? #$"A?P*BGBET 


HS& 


F;TMEABMSD H1(I 


ewveaeecenensenace ew 


S0H* <HA CE - 
8 &CZD $04+73-/7CD 


VE"HABS #$4+BGB, 3 


TIFEB77 
387010 


INDICATES A PLANK CCLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT. 


CL 65 THROUGH 80 


BI-H e7G3.G5 


RK RY] OH( -7K 64 


( -ADSBG F 9, G 


?4B A™® & Fa-73] 


Seeanevunneceaenenece 


LFC-A -T-CE" /0H 
H349 C DO+U<eYD 


*SH*7BEA'S C2 E5 


2@F*POH* S84 D 
K 6. /0,An5 a-H 
A>- BOH*.EDGB -? 
H 7HAD™ #S"A7A=B 


B SEM( DAESBGCYS 


EN-O? #& 


A 4 -HSO-HEE.E 


OH* GU> {HE-$D 
8& G2D K? OMESsH 


‘4:0 #925 3"_ 6H 


PART NO. 
PAGE. 28 


pire 


ler 1 THROUGH 16 


CL 81 THROUGH a6! oo tere oe 
T+-(/ 1D* ~G" $B 


} 
OOMFFF40006 Tt-+* CEHA . s0< 
} Cy 
* osBRFF40007 T+-|P4H=A( -CR3E 
} 
4 6D 8K<FFP4O008 T+-&FF 
e e 
}S8CFFF40009 Te-J(R (4BCZO 10 
e i . 
7Z<FFFG0010 T¢-KH; C2/02' #6C 
} ° e 
K OFFF40011 Tt-LC .U- |H&H@H 
} e 
oe 6S*#PFPHO012 T+-L=@YDI?-> 
; os ° 
* SHOFFF40013 T#-H9X& A [EADX7 
} e ee 
“PYOFFF40014 T+-N4 GYCOHD (8 
) oe 
'G << 3,HPFF40015 T+-O7 3-- 
} e e 
XOYD GEQFFF40016 T+-PDBHA 2*3 Y= 
} e ase oe 2 
EL-  FO*FFFKO0017 Tt-QV B 2D A; 
) s 
7@-D QOCOPFFH0018 T+-R--OT"BEABE C 
} oe 
6.30 :T<FPF40019 Tt-E$? —7C-EBCEH 
} e 
"JOH 2H<FFF4C020 T+-$OD;H OH*GD; 
} 
re apppuoo21 T+-#3A1G- *BGARS 
} e * 
M:DFFF40022 Tt-)< -*3_ /0_8E 
i seo ce 
HX% 3, DFFF40023 T+-;Gay*¥+ HH / 
} 
O7- SI4UFFFH0024 T+-7BA872/0$0+45" 
} 


@/ */ FFF40025 TGE-- 


B16 <-I 


"SA 


0a! 
@-D 
EH: 


om 


-/8- G 


=~<Q ° RE.U 


} 
=9HD NO PFPS0026 Te-- 384.3" {P6""T 
4 
PROG ID PFF-u DATE 290675 
PAGE. 


28 )EC NO. 627804 


4248230, IBM MAINTENANCE CIAGNOSTIC PROGRAK 


DIAGNCSTIC CONTHCL ERCGRAE - 


CL 17 THROUGH 32 


Gc ons jue 
a~ <9E A G,OKX7 
A "YG: -1=O0H*DIXB 
«£4 2-6Ra E16 /9I 


13 "--~P E@AEEY 


2/ae@% C20 7B 6. 
h -Ya"G.7PORE ,6 
N>-DU?L A@YHFAC_ 
® FBAA(Q>. YC 7M 
GIC7" C2 648- B 
"Dp NDG-DD( CETaB 
194_"5*x014CU9+— 
"az H?EOQA+3 BBIB 
2UGLK 604 (3 /0B 
(@S O4-DEC) HA #6 
AG. FOOD} $c 9x 
</ T*BE 5 6*54-h 
OX Ez: QGA* <#0n* 
2*GC0+77-/ 14/803 
-~/1<> $CBC> Ax+ 
CE4+BE“G1 (BA Ka 


92G_@0;.19+PW9=T 


O7F7NOVIS 
827805 


19HARTE 
827872 


: ; . | | ‘ ' : | . ts . . | 
eee 020e@020e0deedeeeeeeeoeeeoeeeeweoee ee eee ee 8 8 8 8 


ECDEL 12 


OBJECT CARD LISTING 


CL 33 THRCUGH 48 CL 49 THROUGH 64 


B{ -CO%BG : 5 <6 


:K?7HEAE@ KV<a 


G 4B 6BOH*C{G- 
; EMEPO A) AU*H 
¢ S@IC-DBBGY C% 
“O-H <BG a ?C1 
AV@HA AS -HAs6@ 
68H) X8H*BER) X7-H 


A =BG9/0C /DC4-D 


HOA <BG WY (SC 


A C 0 8%Pcsax 


XQ (XRKSCS8>$S" 


GACUB ~T20(;* A¥& 


: - ASX /OB; -¥ 


A3RBG 6<RAS WET 


2-/%* &$G 20RARH 
"3D @Z C8-HEsL 
BDTS A)G2U *9D H 
18DE19DH190K#BE7 
a-s0° 8872 35° tt 
"axcue Boes)v 


Z2MF_%&&).LS(PO5'T 


O3J0N76 
571874 


BO-DC (V8A3.5% 
PeF< XGB¢sHRAXO 


A {HSAM@ ¢R- ¢ 


A Ce - OR® Ha 
AAB"B & OH® CS 
8aY* |?L98aYDF?C9 
Ba/ C;0D 8B) xX7;68 
”g EM(EDHAI0 B-< 
D_ Ex( DET=EGR3E 
BDE8 B-<CWI4 B-< 
OSHCT1) X82) PAS@E 
*" CgEAO3B -O1{ D 
” >0-)1F FO7-6 [8 
BA®L OH; 6YCAt~ 
» E8 GaD*<a"—-, ¢ 
"g- Figpe Ct 
“az C8-HCB-HA( 
HOT#D¢C~EBCERB: @ 
3° c/9ve/ennB -0 
--on! -peaTHDA # 


eeaeaeeeceooeseaeueeeas 


ROE_*0*.C1<BE1@T 


11PER77 
387010: 


PART #0. 
PAGE 


CL 65 THRCUGH 80 


” $ ECAFOAZEKS -. 


Be) BStGQOB V8 G 


Tf & GTO.{HEAES 


BA HA BA & && 


BAFSB -6._ EF_ / 
Sarec7F_8acs % 
"a-DHT E-ARS-/6; 
"68 H 0C2-8$0¢5— 
AAC? sOG=eD BEE 
" aypGac_POB*E. 0 
DEXECEAXOSACLSRG 
GECEHA1 5 6*64D_ 
&_f-- |BED*ECAIG 
"0858 D&FOSSG<H 
at pa-0Sc.- Foat 
” /0#38-B? AUD2YH 


GD<HA CE - OB 


GA HH@ZAA+ GBE< 


1(SDGD<BG = EB-8 


E3T0 AS+@ESPB ES 


eaaeeoanovoonoecaeneaeeasve 


ILu_* 


PROS If 
PAGE 


&288230 
28a 


CL 81 THROUGH 96 


"70 338FFP80027 
& LH =REFFPSO028 
"48 K3QFFP80029 
90-D $C8FF780030 
~OB* OGCXFFPSO031 


A>(  730PFP8C032 
‘ss 3D FFFS&O033 
~/6* ESOPFFS0038 
EB36 ) S8PFFROO3S 
C /D OQ*FFFSGo3€ 
D1*s§ REBPFPSO0037 
I 10 03¢PFFSGO3E 
- 0 ROGFFFEON39 
ABIO P,@FPF&CONO 
" /0® KOFFPSGGUE 
HOn* ) BOFPFS0082 
* co PE FFFS0083 
5270 7DOPFFAO0GS 
60-D JESFFY8C045S 
“e3- 20-PPFROORE 


© *FPFS0087 


e¢n*PPPsoose 


FEF-a& 
282 





IBS MAINTENANCE DIAGNOSTIC PRCGEKAB PART NG. 4268230. IBM BAINTENANCE DIAGNOSTIC PROGRA 


PART 
PAGE 29 - 


PAGE 


nO. 42468230 


29A 


FFF DIAGNOSTIC CONTROL PROGRAH ~ MCDEL 12 , FRFG DIAGNCSTIC CONTFOL FROGRAE - 


CL 1 THROUGH 16 


T+-75 
T &/7 
T+-U:& OO AQI;TS 


T+-V50I IE,V -~H 


T+~W0 /.6/08 
7+-X, DL-H -T20C? 
TCOX# HO *0CO C 
TDI"" C 7O:E 
T+-# CA DAD*0H* 
T+-##/16 ""OHB@-D 
T+-@GH<HBDR#E JB 
T+-"1 /YAEVFIOH* 
T-=%BHK@Q < JE 
T+-"X JE) DNG+ AE 
T+/ SWEBG /YAF/G 
1+/A) /1H"0H*BF-D 
T+/BQDIMSHAC=82_ 
T+/CLIA-&-T0 G=8 
T+/D+6JOBDL&FCER 


T+/EXF-H;DDT /OH 


T¢/FD AE DANJK-D 


T+/FVGenX9*l EDC 
DATE 29A0G75 
EC NO. 827808 


CL 17 THROUGH 32 


"B=. 2DC#B -YHO-D 
& " § aBGBKT /08 
*” acy V*SPP4G—Sa 
2/0*8 -HHay 18 I 


/06=0B#C*0 

DC G(CYCLF «_ 
LF<BG /YJC  J;8B 
GIA C(2HGA--B 3¢ 
ZC- K%/H20B |FZO 
BF-D3DU" /OHE L< 
) 9U@ AEC {T/E 
3 9U°CAE;OBRI-L4 
#5A AU-DCOI | P*E 
aDY, /1H"OH*BE/E 
-|E 6".BAA-CADHE 
@ AC=OH*EE-.B &S 
J*lH=a-Deg DE & 


EE" #S"A?7Fa@BGL IU 


TGSY*Zay*3 
C5=J 5_~12) $N80C 


OTNOV75 
827805 


TOMART6 
827872 


CBJECT CARD LISTING 


CL 33 THRCUGE 4&8 


B<wG C2 Js* 8 
EJOSE,"a@ ¢&DBECU 


*s3O0T13-COUB EBOH* 


7 I-CREBC BOAR ( 


{ C(T4&A -G2- 74 


B -&-DQ-JFOQJDQ- 
"cs -Raacar4—p 
J8*BG /YA<TI}0-D 
#C |UJE) 36 As. 
ADOG2 62<A&UJE30 
G /YJOB*EF-4/D/3 
"10H 0 DJH35 7. 
Ju OAG"AE/TYA -7 
“OH*BH/At"0C ~JC 
*AAEKCTY-D{ 88BRAC 
8 SRHay Cacx"oH* 


@1& + AB(POOFL 
AG*N &+) EDA EDA 


O3J0N76 
571871 


CL 4&9 THROUGH 64 


@eevanmeoamencasneae 


eneeoeweveseoaesecoaoe 


BR <A £¥~- $-5 3H 
H ~720 10¢3"E ~¥ 
CY<HBBC 5 &&RC-D 


0 L7"E~ 390 YAaZQ 


eece wre eee oaunevee 
t 


eavosoenweoeteoanues eve 


> 


< ADS -DaD <6c- 
go 2 39CcR* ac_4 
An)- @YDDOH*}A48 
B<TOADOE® 2-08 
Bas OT ADN::@ F 


BDOG2/1 * sE/a-D 


/1.V*{HALT@BGD>C 


2-K@6- H30XI JHBH 


/OHDE ("ODH*<D 


"36 OHDE"4GE /H 


=Q0I &,%BG Cc" CH 


BDSBG >4 A - 


E6) ~K2) PT1) XMSEL 


6DA &TA EDA 9(P 


VIFEB?V7 
387010 


CL 65 THRCUGE 80 


eeeteostaeonovne se ee 


er eee event eeoen neon 


B @BéBI.27i) 87 G 


enoee o 


C_EDDX AOC Db 


D -<€5E A@YRE~*8 


ey AX HU ECG B 


ee ene@w@eneoeceseoevveae 


C(sD6CO J(E*RO D 
<C1F_DE8< AH2 -& 
BaBG /YE*1F_a@yY* 


& 6 _OH*BG-pD = S 
1=-G2--0+ DINSH 
IT QHDPH@ AE/CAD 
-a-D~0-DE<X6- | H 
A TI*Y C2 &EAYAC 
SDL4aD Gt OH*IH3E 
#0 DE"37A T.2-56 
-D}#2D 8< /HRE,# 


EXACXKSA 8> 10646 


ITS4CD 1*#S15*xKXT2)$ 


% GH 


PROG ID 
PAGE 


CL 81 THROUGH 96) CL 1 THROUGH 16 


) 


*/EFFFUGONS T+/G:0*. LIMA. KG_ 
; . °° 

EI<FFP4O00SO Tt/H5EDA EDA EDA 

K 6< EC&FFFG0051 T+/IOQFA-QFA-QFA 


¥ 
t 


@eeeos 


ewmeeee 


COH* * ~FFF40052 T+/H,& (XU5) PI5*) 
; 
AQYE SS$UFFF4HOOS3 T+/.¥°1P6T"TO 1G 
ia 
@REFFFS0054 T+/</Di*4 J<L(ED 
) ae 
H/@FFFY6055 Tt/(*BC7TEBHC Jj 
} . 
SIJBFFFS0056 T+/+PD=H8- H3a/ 
} 
*%[H J2CFFF40057 T+/]|Ké-DCaY*60H* 
} 
@/G@ ROOFFFS00S8 TC1{/S*@HA C /OR 
. b 
HOH* O/BPFF4U00S9 T+/SB@C_~GH*L?5A 
i 
CO-H "R*FFFY0060 T ASCRE 
) 


e 
eaoen 


e@oaeneeaveae 


B&8 *IOFFFU40061 T+/~BéC_~8H*L*AD 


} eoeweoae 


J=0- LINFFF&0062 TA1-H/6N Ga 


*H&.FFU4O0G3 T+/TE@C_~BH¥*L?25A 

‘OH* =-OFFF40064 TDATLE[Z3"4?7E/11 
a ; * 

HD{O K3DFFF40965 T 7-COH*DS 

OSDPFF&0066 T+X4:+ ESBB~HEBCE 


) 


GHUFFFS0067 T*+XS57@BGA1G— *B 


) 


OADFFFU0068 TtX60L OA~ER** 10 
i 
“BE FFFUOCG9 TtX7,~$_'ORBG /8 
} ee e 2 
NE&4+< =D4SFFF40070 T+X8W/75D D D 
) 
FFF-4u DATE 


AE 


ea 


@aAl 


/O8 


Gis 


29A0G75 
827804 


CL 17 THRCUGH 32 


6 (LUB>( OFN O'S 
"SDA EDA EDA EDA 
~QFA~QFA-QFA-OQFA 
 aexS4UCE2*6G5) $ 
§$aaSCa<GC8asD'TE 
LEOBADI*CWIO DOD 
CLE B < AD370¢6" 
RC HE=/E$|_ DP-0 


K9eC2 6U<+0~2HES| 


ROH* . 6 


) SHEVE|( >A "ay 


ee ow eowaeweawnvaea se 


=?sA)SHEV#D( 3 & 


omen nnneaewvrewmanvan 


) SHEVENJD*NAHGH 


@ D?-/6B < 


en seowvweouveowanawvevsn 


D -X /75F* LBEL- 
Gal. /OHED*BG /T 
I-EQG< P78~20+ G7 


~e 


&  H3-OA*)A'D>03 


aenateceavenewe 


0 Oat 


O7NCYV75 
827805 


TOMART7E 
827872 


ECDFL 12 + 


OBJECT CARD LISTING 


Cl 33 THROUGH 48 


R6*PCEUA-S*PR2*S 
” TCE PECESE (1CO*L 
-QFA-QFCD9 {LPE+| 
SBaXCBRCP6) $G69C 
HD><@ /.O[F H? 0 
“O=DE<ya GHABX- 
O$7S /TLO1E B<KE 
BAHUJC @C =@a"r"e 
2/2P /1.VE{HABE1 
IUa- a= 4aDS4~- 


"QI 3; DVaT 1asu< 


aeereasuneseacdsdeve 
a@5& GNEQRE( >LE 


erenveaneeweusan vee 


eae e2eoeeeanesdeoneaetce 


FA®#2UA-@CEE+CG 
AHGEYCG<B'G: 308 
@+~. 2HAC /OHEDS1 
An) A*Q%BG /85 


AS *n EG. 823 IC2NC 


CsJUN76 
571871 


CL 49 THROUSH 68 


YODA SDA GCA EDA 
FIDA GDA EDA EDA 
AS@N 1) XR5_V 8>} 
BE¢AX9UCHS>( 1_$ 
:B.%B7<BG /Y/CC 
& )HA @BED0Ce & 
AD3{ AILO1H*1I-0 
GA-aF -aa"37E -c 
BA@dE27HGE<EGD>N 


woeeeeeaeoecanenenene 


” g-9Ba"20%4 ( >D- 


eeoeonadhdeoseeeneaeanve 
H<MEGNPEBE? (B (E 
>&? WI Kas". ayD 
E3X700RGF7@EGAIG 
BPDDA@C7ER] A*ZL 

3BIJ=Z2%BG /D/0Ht 


H°%BG /BB~EQH/C3 


1E<GNIDC2E<SC6BC 


T1FEB77 
387010 


Cl. 65 THRCUGH 60 


"GEAR EDA GEA EEA 
“ELA SDA GDA EDA 
A82@ £SBIXCRUCEI*S 
uS*) S_N 1<xS4UC 


K9 RO DKV@86G 


OH® CéHDta'P s 
A ZYA"EOA 3DA"CO 
2 612/404 J}POH* 
J8-DICDEGEATLET# 


"LA Xun~ CHCB"OU 


eeeanaoeeGeoeoeeneea ee 


BH#ABE.UHI*EG 1 ( 


OJD B200~B<Y8200 


- @BG~JB{ PeanC 


a~-0 G76CEE**x7 
BG - sxc E*>76 


CPHL /OHEY-8A7ER 


N1;R T¢LBSUCA ICL 


PROG ID 
PAGE 


CL 81 THROUGH 96 


“sr” “eLpprraco7t 
-QF RKYPFP&0072 
06*H 2SYPFP40073 
1a?< *3aFPPH0074 
” =" pcnrFr 40075 
“ay 13-FFPG0076 
BAEB ©$4PFF4S0077 
K93_ LEQPFF40078 
CaCk ¢/4PFF40079 
ee BrPFaooRO 
“ane ©. cFFFSO081 
nn" eSHPPPaCO82 
CB¢ 38BFFFG0083 
ee OR PFPuOC8S 
>BHY IZOFFF4008S 


SIOQFFY 40086 


424PFF40087 
“=-Q RRCPFPSO08E 
Bay 82 FFF4O089 
WC-D PQ PFF40090 
''< WKOPFF4OO91 


RED 3HUPFP40092 


¥YFF-4& 
294 


IBM MAINTENANCE CIAGNOSTIC PROGRAS 


; 





PART NO. 4248230, IBM MAINTENANCE DIAGNOSTIC PRCGRAB PART RO. 9268230 
PAGE 30 PAGE 30A 
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4 
* « e os e . e ec * oe e ee i se se . eese = eee eee eew ee & oo . e e 2 @eeeev8e0eecete eevee eece 
T¢X9/EDA E<GD1(V  GICOSDCOBUA BiJ  ESICEEDCO=DA @<E E{CCEDCOIMA EDA ELA SICOSDA @)I Gi SCUFFFU0093 * O4-SYPASS NCN- ERROR PRINT. * F 2 x X - GO TO RCUTI RE XxX. * FFFAOT1S 
x 
oe e . J e e «. » cd e e ° ee ; e te es . e e @eeesenpoaeoeaeswoeoeeseesv @e@eeaeeteenoaeceenaeaanene @®@eeeeaesooneeeoeaeande ae ee@ eae 
T+X:*'DA @{R G{C BEDCOOMA @<( EYC EEDA EDA EDA G{C OSDCOBUA @{I EIC GEDCO=DA B<E GIC CED S8YOFFF4O094 * OS-PRINT ON AL ‘ERNATE CEVICE. ® * FFPP&0116 
TGP::@<M5HG::@6 80 O-HETCEA Z#  /CHKOR*E;P:6 ne nnn ne ne ee a2 FFFU009S * O6“RBYPASS ERRO B&B BALTS. * £ E X E+ TERMINATE S FECTION. *  ¥FPFSO117 
f 0$30H)* : e * eaneaoe @#eecoeenvsetstseee eects on UYHPFFG0096 * G7-LOAD AND GO 4 g 2 FFFSO118S 
TBE4IO'<UG(XEO'S 1 ey ee conn nn een nn eee ee ge FF FFF4Q097 * O8-NOT USED. * p x x KX - DISK-RUN SE CTION Xxx. * Pe FF40119 
TBEGIS<LTE(XEC*S 1 Tenn en nn nnn nnn nn ee eee eee ZOOFF FFFU0098 * O9-LEAVE SECT. SWITCEES OW. * p x 4 © - DISK-RUN DE VICE XX SECTICNS . * PEFFUO120 
TEG4ZQOGC2<GISMC X9=) QECCS=fIS_ F A&O 7 eae tat Seg are) has “BXFF | FFP40099 * OD-SPEC. PUBFO SE STORAGE LUKE. * *  FFF&O121 
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PAGE 1 PAGE 
DDS3 3340 CE DISK EDITOR BOD 12 DD63 = - 33340 CE DISK EDITOR HOD 12 
ERR LOC OBJECT CODE ADDR STST SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STHT SOURCE STATEMENT 
203225:77 66 * 3. SET SWITCH 17 TO USE 3741 AS INPUT. * 
: : DECK 4 ua eee : 67 * &. SET SWITCH 18 TO USE THE 1442 AS INPUT. * 
4 SEQ 0 68 * 5. SET SWITCH 1A TO USE THE MFCU AS INPUT. * 
* 
0000 5 STARTX START 0 es 7 6. 547141 IS THE INPUT DEVICE IF SSW 17, 18, OR 1A IS ROT ON 7 
6 TREP 2 
OAOO 7 ORG X*OAO0# - SEKREKESHEEKESEEEKEREKESESEEEERECRESESEREKESE SEREKEREEREEEKEAEKESESEEEKEEEEESSTE x 
0A00 8 EDIT EQU * is 
0A03 9 RNUM EQU *¢3 2 
10 EHREEKEEEKERESSESEKERREEEERERREKKERHEREREKEESESAKEREE EEREESEEAEEKESS EE SEE ES 72 x wig Sudden kd eda de teks dnc Kaked bKb aw ck dca sescaeensksaeuaeeences 
- 44 SECTION PREFACE * oe ore. * : 
12 * * * 
OAOC DD63 OA01 13 pc YL2'*DD63* - : SELECT DISK DRIVE, AND INPUT DEVICE ; 
0a02 00 OA02 14 DC XL1°008 SECTION FLAGS a e Ss 7 
aaol ee ee i one ne ee peers 78 RESKKKERSKERRSETEEESEKESKEESSSERESKSSEREEEEERSEKKSEESKERKEEEESEEKEEERERERESRE SS 
OA06 0B99 0A07 17 pc AL2(EDITA) ADDRESS OF FIRST ROUTINE PREFIX OB9D 79 SETDSK EQU) * 
0A08 0000 0A09 18 pc AL2 (*-*) ADDRESS OF ERROR RECORDING TABLE OB9D 38 80 9233 na ene peer ear. ae eres ee cee ance ae 3 
OAOA €14000 oaoc83 -'19 DC XL3'C140008 OBA? F2 10 08 4 T sees ee Ane 
OAOD £00000 OAOF 20 x5203 oc XL3"E00000° OBAY 31 C5 2B2% 2 LIO XREG,X - os ) 
Cet ee Oe a ager ee Paar eres baie 3b 4 ere i ay eurecnes Ceuse IF SSW 2F IS ON, WE HAVE BEEN 
22 * * e ’ 
23 HECEREEEES EEE KE GEEEEREEAE EER ERSTE LEREEERESEEEE EEE EERE LEEK EEEE EE EEEE REED OBBO F2 10 18 85 JT EDITAA CALLED a eee , 
4 86 * CONFIGURATOR PROGRAMS. 
. OBB3 CO 87 O21A 87 B PRINT PRINT *SELECT SSW OPTIONS® 
0A13 OA14 25 STATE DS XL2 OBB7 42 OBB7 88 pc XL1*42¢ FLAGS 
OA1S 26 SAVIDB EQU) * OBBS8 59 OBBS8 89 DC AL1(STRTMS~STRT MB) LENGTH 
OA15 27 PRTBF EQU  SAVIDB OBB9 30B2 OBBA 90 pc AL2 (STRTHS) MESSAGE ADDRESS 
OA15 OA7& 28 SAVID ODS XL96 OBBB FFFO OBBC 91 DC XL2*FFFO . 
29 OBBD CO 87 O21A 92 B PRINT : PRINT ‘SELECT INPUT DEVICE 
OaA80 30 ORG xX* OASO* OBC 06 OBCI 93 oc XL1°06 FLAGS 
OA80 31 READIN EQU * OBC2Z2 43 OBC2 94 oc AL1(STRIA~STRIAB) LENGTB 
= oe een Saez ora onze kag so oer eal 
33 
OB04 404040404040 OB09 34 BLNK  ovC cL6* ° OBCS FFFO OBCA 97 pc XL2°*FFFO* HALT ID 
0B09 35 DGS2B EQU *-4 98 
OBOA OB5SF 36 DGSNS2 DS XL86 98 
0B60 37 DGSNSB EQU) # OBCB CO 87 0212 99 EDITAA B TEST GC READ CONSOLE SWITCHES 
rere pee Sega ee ase OES! sare 2aC0 108 SBF ADDELG,X*PFE SORH OFY ADD BODE serxci 
39 * 6 o 
40 * SUBROUTINE TO SET DISK DATA FIELD TO xX*0O08 Aen as a] ions a or porate re TORN OFF 3741 FLAGS 
44 * BC A D @ XR 
OB78 34 08 OBB9 42 SETTO ST SETTOR¢3, ARR SAVE RETURN ADDRESS OBDF 38 10 020B 104 TBN  SWITCH¢1,SSW1B SSW1B IS ON, GO TO SADD 
OB7C 3C 00 &8FP 43 MVI DDDF+#255,0 ZERO OUT DDDF FIELD OBE3 CO 10 0D23 105 BT GET2 
OB80 OC FE 48FE 48FF a4 MYC DDDF#¢254 (255) , DDDF+255 106 
0B86 CO 87 0000 45 SETTOR B t-* RETURN TO CALLER 106 
46 OBE? 38 01 020D 107 TBN SWITCH*3,SSW2F IF SSW 2F IS ON, GET RECORD FROM PE7 
OBBA 34 O08 0B9B 47 SETO ST SETOR¢3,ARRB STORE RETURN ADIRESS OPEB F2 90 08% 108 JF Aa0?7 OTHERWISE, GO ON AS USUAL 
OBBE 7C 00 FF 4g MVI 255(,XR1),0 ZERO OUT DDDF OBEE 3C 07 2a5B 109 4avI NODS#+1, X*07* DON’T DO ANY PRINTING ON 5471 
0B91 5C FE FE FF ag. MYC 254(255,XR1) -255(,XR1) 110 
OB95 CO 87 0000 SQ SETOR 8B hom & RETURN TO CALLER pace . 87 2A42 eee i AAOQ7 B PRINT1 GO DISPLAY MESSGAGE 
51 BF BF6 11 DC XL1°O018 
51 OBF7 26 OBF7 113 DC AL1 (MENU 1-BENU1A) 
51 OBF8 31EC OBF9 114 DC AL2 (MENU1) MSG, SELECT OPTION (CONTROL CARD) 
54 OBFA CO 87 2Aa42 115 B PRINT! PRINT 
52 * ROUTINE PREFACE OBFE 01 OBFE 116 DC XL1*°018 FLAG 
53 OBFF 28 OBPF 117 pc AL1(MENU11-HENU1B) BESSAGE LENGTH 
0B99 01 0B99 54a EDITA pc XLi*oO18 ROUTINE NUMBER ycoo 3214 0c01 6118 pc AL2 (NENU 11) MESSAGE ADDRESS 
OB9A 00 OB9A 55 DC XLi*00¢ ROUTINE FLAGS OCO2 CO 87 2A42 119 B PRINT? PRINT 
OBSB FFFF OBS9C 56 BINUST DC XL2*FPFF! ADDRESS OF WEXT ROUTINE ocoé 01 0C06 120 DC XL1*O1! FLAG 
57 0c07 28 oco? 121 pc AL1(MENU12-MENU1C) MESSAGE LENGTH 
SQ HARES REE EERE REESE ECE EEE EERE EKREKEERES ERG EEE ERE RREEEE EEE REET EEEEE, 0c08 323C ocog9 122 pc AL2 (MENU 12) MESSAGE ADDRESS 
59 * * OCOA CO 87 2A42 123 B PRINT PRINT 
60 * OPERATING INSTRUCTIONS * OCOE 01 OCOE 124 pc XLI‘ot FLAG 
61 * x OCOP 28 OCOF 125 DC Al1(MENU13-EENU1D) MESSAGE LENGTH 
62 * AT THE FIRST HALT, SET THE FOLLOWING SWITCHES, * 0C10 3264 OC11 126 DC AL2 (HENU 13) MESSAGE ADDRESS 
63 * * 0c12 CO 87 2a42 127 B PRINT1 PRINT 
64 * 4. SET NO SWITCHES TO RUN ON DRIVE 1. * OcIé 01 0C16 128 DC XL1°OT* PFLAG 
65 * 2. SET SHITCH 22 TO RUN ON DRIVE 2. * 0c17 28 oci7y 129 bc ALT (SENOTU-KHENOTE} HESSAGE LENGTH 
DATE 2980G75 22DEC75 30APRT76 .254AR77 PROG ID DD6-3 DATE 29A0G75 22DEC75 3O0APR76 25HAR77 PROG ID DD6-3 
EC NO. 827804 827836 571872 571989 PAGE 1 EC NO. 327804 827836 571872 571989 PAGE 1A 











IBM MAINTENANCE DIAGNOSTIC PROGRAB PART NO. 4288217 IBA MAINTENARCE DIAGNOSTIC PROGRAS PART KO. 4248217 
PAGE 2 PAGE 2a 
DD63 3340 CE DISK EDITOR HOD 22 DD63 3340 CE DISK EDITOR SOD 12 
ERR LOC OBJECT CODE ADDR STET SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STAT SOURCE STATERENT 
yaa 328C Oct19 1356 pe AL2 (MENU 14) EESSAGE ADDRESS 155 GHERKGRESERRETAEERASERESESAESSSETHSEKL SAGES EGCKAE EAE EE EEES SESS ES TEESE HSE 
CiA CO 87 2A42 131 B PRINTI FEIRT 156 # * 
oe OCIE 132 pC XLY*01" FLAG 157 * CHECK FOR $  /* /& oR 6¢ * 
OCIF 28 OC1P 133 pe ALI (HENUIS-HENOIFS BESSAGE LENGTH 458 * : . 
0C20 3284 oc21 134 pC —- AL2 (MENU15) RESSAGE ADDRESS 159 * * 
0C22 CO 87 242 135 B PRINT? EEiIntT 160 * “ 
0C26 01 0c26 136 pc XLUOT FLAG 267 CAMS RE SEEERES HERE EEEEERSEEREESEEEE EERE EERE EHEEERS SHES SE CH THESES SEE ES SES 
0c27 28 0¢27. 137 DC  ALI(KENUI6-MENU1G} SESSAGE LENGTH 62 
nah cae sae 0c29 a Dc AL2 (MENU 16} FESSAGE ADDRESS OC4E BD 5B 00 163 RTRR CLI O(,XR2>,C'S* DOES COLUMN 4 CONTAIN A $? 
OCDE 01 ees B ae FRINT - 6C51 P2 61 51 164 JE ADDIST BRANCH IF YES 
OC2F 28 a he XLT‘O1 FLAG OC54 BD 61 00 165 CLI O(,XR2),Ct/* DOES COLUMN 1 CONTAIN A SLASH? 
0¢30 3204 Best a bC ALI(MENC,7-HENUVE} BESSAGE LENGTH 0C57 F2 01 OD 166 SNE FLAGS JUNP IF KO 
Nee ee oa eas es pc AL2 (MENU17) fESSAGE ADDRESS CCSA BD 50 01 167 CLE 1(,XR2),C%SE® DOES COLUKN 2 CONTAIN A & ? 
ae eae B PRINT? EEIRT ocSD cO 81 OCSF 168 BE LINKS IF YES EXIT PROGRAS 
0C37 28 bc XL7*02° FLAG 0c61 BD 5C 01 169 CLI 1(,%R2),C?** DOES COLUMN 2 CONTAIN A * ? 
‘: OC37 145 DE ALY (MENDI6-MENU1I} BESSAGE LENGTH océs F2 61 34 170 JE PAUSE TO PROGRAM HALT IF YES 
0C38 332C 0C39 146 DC AL2 (MENU18) MESSAGE ADDRESS Oc67? 177 FLAGS EQU) # 
ee CO 87 2A42 147 B PRINT1 EFSINT KSG Océ? CO 87 ZAG2 172 B PRINT1 GO DISPLAY HESSGAGE 
pee OC3E 148 DC = XL7*06! FLAG OCEB 06 0c6B 173 DC «XL 1#06 FLAG 
oe 14 OC3F 149 DC ALI(KBRDY-KBRDYB) LENGTE OC6C 27 oc6éc 174 pc ALI{MCTL-MCTLB) LENGTH 
ce oS ae oc4i ie DC AL2 (KBRDY) ROUDRESS OC6D 360A OC6E 175 DC AL2 (HCTL) MSG. INVALID CONTROL CARD 
bobs AE OEP er BO “ GET? 6B RECORD READ A RECOKD OC6P 3C FO 2AB6 176 HVI FADD,C*O! RESET 3741 FORCED ADD FLAG 
pete 52 CLC 95 (96, XR2} 964, ERZj CHECK POR BLANK RECORD 0C73 38 FO 27F5 177 TBH USECRT,X‘FO* IS CRT IN USE, DON'T PRINT/HALT 
A CO 81 0C42 153 BE GET1 IF BLANK THEN READ NEXT CARD Uc?? CO 10 OCck2 178 BT GET? GO GET CONTROL CARD AGAIN 
OC7B CO 87 0212 179 B PRINT NO, PRINT ERROR. 
OC7F 46 Oc7F 180 BC XLUSU6¢ FLAGS 
ocso 14 ocs8o 6181 DC IL1*20° LENGTH 
ocei 3188 6c82 182 Dc AL2(ERRO} ADDRESS OF LAST PRINT CHARACTER. 
0C83 FFEO oc84 183 De XL2°FFEO® MESSAGE IDENTIFICATION 
0c85 CO 87 0222 184 B HALT TO DCP ERROR HALT 
0c89 FFEO ocséa 185 pc XL2° FFEO® HALT ID 
OC8B CO 87 OBF2 186 EB AAO? 
187 
OCéF 188 LINKH EQU) * 
OC8F CO 87 2A42 189 B PRINT? GO DISPLAY MESSGAGE 
0c93 06 0c93 190 be XL1*06° FLAG 
oc94 12 ocgu 191 pc AL1 (TERM-TERSB) 
0c95 3059 0c96 192 pc AL2 (TERM) MSG. OPERATION TERMINATED 
0c97 CO 87 0216 193 B LINK TERMINATE 
194 
vc9B CO 67 0222 195 PAUSE B HALT TO DCP ERROR HALT 
OCOF FFE1 ocad 196 pe XL2'FFE1° HALT ID 
OCA? CO 87 OBCB 197 B EDITAA RESTART PROGRAS 
198 
OcAS 199 ADDTST BQU) * 
OCL5 BD Ci 01 200 CLI 1(,XR2),C*A® 
OCAS F2 81 68 201 JE SETADD 
OCAB BD D9 G1 202 CLI 1(,XBR2),C*R* R IN COL. 1? 
OCAE F2 01 07 203 JUNE TFI 
OCB? BL 40 04 204 CLI 4(_XR2)-C* § MAKE SURE COLUMN 5 NOT BLANK 
OCBS CO 01 1614 205 BNE REPPGH 
OCB8 8D 01 02 2316 206 TFI CLC 2(2,XR2),FIGCON DO COLUMNS 2-7 = CONFIG? 
OCBD CO 81 1D97 207 BE CFGPGE IF YES, 3O TO CONFIGURE ROUTINE 
occ1 8D G1 02 2c09 208 CLC 22,XR2),DEL DO COLUMNS 2-3 =*DE' 
Occ6 ¥2 01 07 209 JHE TL IF YES, CONTINUE 
occ9 BD 40 04 210 CLI 4(,XR2).C* ° MAKE SURE COL. 5 NOT BLANK 
occc CO 01 1608 211 BNE DELPGS 
OCDO BD D3 01> 212 TL CLI 1(,XR2),C*L* 
OcD3 CO 81 IB4F 213 BE LSTPGS IF YES DO A LIST. 
OcD7 8D 0% 02 2B18 278 CLC 2(2,XR2) ,CMPCOB IS IT COMPRESS? 
ocpc co 61 1C69 215 BE CHPPGS 
OCEO 8D 01 02 2C0B 216 CLC 2(2,XR2),DU 
OCES F2 01 07 217 JNE DE 
OCES8 BD 40 04 218 CLI 4f,XR2)-C* * MAKE SORE COL 5 IS BLANK 
OCEB CO 814 1877 219 BE DSKDUP 
OCEF CO 87 2As2 220 DE B PRINTI GO DISPLAY MESSGAGE 
OCF3 06 OCF3 221 DC XL1¢*06° FLAG 
OCF4& 27 OCF& 222 pc ALI(NCTL-HCTLB) LENGTH 
DATE 29AUG75 22DEC75 30APR76 25HAB77 PROG ID DD6~-3 DATE 29AUG75 22DEC75 30APR76 25HAR77 PROG ID DD6<3 
EC NO. 827804 827836 571872 571989 PAGE 2 EC RO. 827804 827836 571872 571989 PAGE 2h 
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PART NO. 4248217 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART HO. 6248217 


IBM MAINTENANCE DIAGNOSTIC PROGRAS eee 3 PAGE 3a 
DD63 3340 CE DISK EDITOR MOD 12 DD63 3340 CE DISK EDITOR NOD 12 
& 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ‘ERB LOC OBJECT CODE ADDR STAT SOURCE STATERENT 
Scceaenn ieee o58 ne AL2 (HCTL) MSG. INVALID CONTROL CARD »  OD89 OC 00 0OD97 2B8B 286 MYC CLI2¢2(1) ,374 INITIALIZE COMPARE INSTRUCTION 
Ps 4 287 
ocr? 38 FO 2785 224 TBA OSECRT, "70" oe rceesuat crop acc OD8F OE 00 0D97 0A03 288 Loop? ALC CLEZ¢2 (1) , OMB INCREMENT POINTER 
,  0D95 BD 40 00 289 CLI CLI -*(, X82) ,C 
OCFF CO 87 021A 226 B PRINT HOWE OF THE ABOVE, GO PRINT ERROR. j 0085 BP 40 00 oaG : Lovens a Tueil ee een 
pea de enon coon fears eueen OD9C OD 00 OD97 27EE 291 CLE CLI2*2(1) -x80 IS COUNTER =80 
,  ODA2 CO 01 OD8F 29 BNE LOOP 
ooee ates bene ose bet eae eee Resch ee sreueerrcateae ?  ODA6 3C OF 2AB0 293 HVI SCDPG, x" OF* SET SYSTEM TEST NODSLE FLAG 
OD09 CO 87 0222 231. B HALT TO DCP ERROR HALT er bee coaeueseee’ 
ODOD FFE2 ODOE 232 DE: <ehe EPEe:. neta 2? 74 5 296 MYC = SAVID (96) ,95(, XR2) SAVE INFO FOR VTOC 
3 - AAO? ODAA 2C SF OA F (96) 995 (6 
ODOP CO 87 OBF2 et ODAF 2C 03 2ADD 5B 297 MVC  SAVEID(4) ,91(,XR2) SAVE ID FOR LATER COMPARE 
235 RRREREREREEEEE EERE SE EEER ES EERE EREEEE EE EEEREEEEEESEEERKE SES EEEAERSEEEESEE | rae a a ce ac5 Sg peoee aFFA es eoceacciee ay 
EEKKEKTESEEKES 
oe Bt ee ene ee De eT ATT ny Pt ee ee x eS ODED 8D 02 SA >B2C 300 cle 90 (3, XR2) »PPB fe eo toipece 
as ax;  ODC2 F2 01 OD 301 ONE  CONTE1 TO LOADER SEEK RTN 
- ce ene xe  ODCS 3C FF 2AAE 302 MVI NWRIFG,X*FP* DON'T WRITE IN WTOC 
- <7 ODC9 OC 04 2BBE 2B38 303 MVC =: DDCF#' (5) ,C38172 SET CONTROL PIELD 
200 oh ADD PROGRAM DECK OR DECKS TO CE DATA HODULE = Neeh ee oo ae aan : oanee 
242 EREEEREEE EERE EEREKEEEREEREAREERESEEEREERERESEEEEEESEEEEOREKE SEES ST KEREEES ER Obes aps rs oe 2833 ane CONTE1 ote eat ne IS IT DATA DECK? 
* KKEKERKERER DD 3 
Sue KKEAKEKKERKEKKSESCAREKSSKKEKKEKRKAKEKKKKSKASKE KASKSHKEKKAERSEECSEKKKKASFKEEKSE ODDA 2c 03 2AED 56 307 MVC LSTDCD (4) - 85 (,XR2) SAVE # OF LAST DATA CARD 
oan ODDF 3C OF 2AB2 308 MVI DFLAG,X‘OF® 
244 ODE3 BD D7 52 309 CLI 82(,XR2),C*P® IS IT PROG DATA DECK? 
ODE6 F201 04 310 JNE CK NO, DON'T SET FLAG 
oes be G7 2AN2 aoe ane SEEROD on Saas OP DESELAS BESSERCE ODES 3C OF 2AAD 311 HVI PFLAG,X*OF® SET PROG DATA DECK FLAG 
312 
OD18 26 0D18 247 Dc AL1 (MADD-HADDB) 
0D19 3630 OD1A 248 pc AL2 (MADD) MSG. ADD ILLEGAL IF ON 5471 ODED CO 87 121D — eT, a een eee CERES CHECK IF CPU HODULE 
OD1B 33 FO 27F5 249 TBN USECRT,X'FO?® IF USING 5471, RETURN TO START . 
ODF1 CO 87 2201 315 B RDFAS READ FAS SECTOR 
ODIF CO 10 Oc4K2 250 Br GET1 ap 
254  - ODFS OC 01 2AC3 2272 317 MVC = VTOC# (2), FASIKP STORE #@ OF RECORDS IN Vrot 
euwew Kee 5565 64s So eo 50 0 09K ODFB OC 04 2BB8 226F 3%8 MVC NAS(5),PASINB*8 STORE NEXT AVAIL SECTOR 
oes econo enone ee Son ——. = a Uz01 OC 04 2BBE 2BB8 319 BYC DDCPM(5),NAS SET DDCF FOR SEEK 
254 * CHECK FOR HEADER CARD AND TYPE OF DECK * a5 
g0 Cee he en Oe Ree ee ee Ea eT ee Sek eee ee eee tee eee eee eee Te eee. 321 PERSE ESS EEERESOSERESEESOEEAER ORES CREE SKEEREREESEREEEESOREERESREREREREES 
256 322 * THIS SECTION READS 48 CARDS AT A TIME, CHECKS THEM, AND * 
ae 323 * BRANCHES TO A WRITE ROUTINE. * 
; . 324 * * 
Ae ae au aon ant GET2 ae Be 6 ae) 96 { XR2) READ ooeee voc aunts CARD : 325 KHESEKSEESEESKSEKSESESK SESSA EKESAKSEKEESEESERSSSHRAEKSEKEEERSEREAEREKESEECESEKKEESRE 
eo # e 
0D2B CO 81 OD23 259 BE GET2 READ ANOTHER CARD IF BLANK = 
260 j 
Q£07 327 CONTB2 EQD. * 
OD2F 261 RTRN2 EQU * 
OD2F 3A OF 2ACO 262 SBN ADDPLG,X*OF® TURN ON ADD MODE SWITCH pay 3¢ 00 oete — AVI ee ZERG SYSTEM ce eee 
0D33 OF 06 2AB3 2AB3 263 SLC DCPFG(7) ,DCPFG ZER OUT DCPFG,DFLAG,NWRTPG,NWRT, PFLAG} FOB OC 01 2BAB 2B5a z BVC = SCTR (2) , ZERO ZERO SECTOR LENGTH F 
0D39 0C 06 3103 3152 264 MVC = ADMSG#6 (7) , ADDED PREPARE PRINT FIELD TO PRIN‘ OE11 C6 30 2BIE 2AEE 330 AZ = SEQCTR(4) ,D1(1) INITIALIZE SEQ CTR eae 
OD3F 2C 14 3123 1F 265 MVC = ADMSG#38 (21) ,31(,XR2) PROGRAM ADDED AT END OF ROUTINE DEM ae OT:2Re0 ee eas Pear reer eee ne 
4 266 MYC ADMSG*78 (32) ,-63(,XR2 roe 
Dee eR AR eee 267 Ace leSotexee) + oE1B 6c 5F DF 5F 333 HVC =223(96,XR1) ,95(,XR2) 
(0D49 38 OF 2ABD 268 TBN CPUFG,X*OF® IF CPU MODULE JUS READ, THEN CHECK OEIF 6C SF 5F SF 334 MVC =. 95 (96, XR1) ,95(,XR2) MOVE 2ND DDDF FIELD iN 
ODSD CO 10 121D 269 BT CPUPG IF THIS IS CPU MODULE : 0E23 36 01 2B8A 335 A X256,XR1 INCREMENT POINTER TO NEXT PIELD 
270 ‘  QE27 F2 87 08 336 J LOOP1 
0D51 04 30 2B1E 2AE7 71 ZAZ  SEOCTR(4),DO(1 INITIALIZE SEQUENCE COUNTER 337 
. : a al a . . OE2A C2 01 4800 338 LOCP2 LA DDDF, XR1 INITIALIZE XR1 
272 } 1 
0D57 8D 01 0C 2AF9 273 CLC 12(2,XR2), PN IS IT A HEADER CARD? QE2ZE 3C 00 2B20 339 NVI RCTR,O INITIALIZE RECORD COUNTER TO - 
OD5C CO 01 1454 274 BNE  TSTDCP TO ERROR RTN 340 
0D60 3C FO 2AB6 275 NVI s FADD, Coe RESET 3741 FORCED ADD PFLAG p> UE SE ER Seer ate pene iad pone or eene eer 
0D64 8D 93 5F 2RE7 276 CLC 95(4,XR2),D0 IS HEADER CARD SEQ #=0? 
0D69 CO 01 15481 277 BNE vesceo Ve PRINT ERROR IF Son 0E36 AD SF SF 60 343 CLC 95 (96,XR2) ,96(,XR2) IS If A BLANK CARD? 
OD6D BD D& OO 278 €Li 0¢,XR2),C*H* IS IT A TAP DECK? i OE3A CO 814 0E32 344 BE LOOP1 IF SO, FLUSH IT 
0D70 F2 01 07 279 INE 410 SKIP IF NOT 345 
OD73 3C FO 2AB2 280 BVI DFLAG,X*FO! SET FLAG FOR TAP DECK OE3E 3D 00 2AB2 346 CLI DFLAG,O IS IT DATA DECK OR TAP DECK? 
OL77 FZ 87 30 281 J CONTES6 DON'T CHECK FOR SYSTEM TEST ' OE42 F2 01 6E 347 INE CONTA7 IF IT IS, DONT CHECK TEXT CARD 
OD7A 8D 05 50 0B09 282 CLC 80(6,XR2),BLNK ARE COL‘S 75-81 BLANK/ 48 
OD7F F2 81 28 283 JE CONTE6 IF SO SKIP OUT OF ROUTINE OEMS BD E2 00 349 CLI 0(,XR2),C*S?® IS IT AN *S* CARD? 
OD82 BD 40 4A 284 CLI 74(,XR2),Cc* ° IS COLUMN 75 BLARK? Ob48 F2 01 OA 350 JNE *413 iF NOT, SKIP THIS SECTION 
0D85 cO 07% %50D 285 BNE INVSCD BRANCH TO XNVALID SYS TEST HDR OESB 06 30 2BTE 2AEE 351 AZ SEQCTR (4) ,D1(1) INCREMENT SEQ # COUNTER 
Fe ‘ 
DATE 29AUG75 22DEC75 30APR76 25MARI7 PROG ID DDG6~3 DATE 29ATG75 22DECT5 3O0APR76 25HAR77 PROG ID DD6-3 
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IBM MAINTENANCE DIAGNOSTIC PROGRAB 


DD63 
ERR LOC 
0551 


OE55 
0E58 
OESB 
OESE 
0 E62 
OE65 
OE69 
OE6D 


0E70 
0E73 
OE77 
OETC 
OE7TF 
OE83 
OE87 
OESA 
OESF 
OE93 
OEIB 
CESC 
OEAi 


OEAS 
OERS 


OEAC 
OEAF 


OEB3 
OEB7 
OEBA 
OEBF 


0EC3 
OECT 
OECA 
OECF 
OED3 
OED? 
OEDB 
OEDFP 
OEE3 


OEE? 
OEEC 
OEFO 
OEF5 


OEF9 


OEFF 
0F03 
OFO6 
OFOA 
OFOD 
OFi1 
OF15 


OF19 
OFID 
OF21 
OF25 
OF2B 
OF2F 


DATE 
EC NO. 


3340 CE DISK EDITOR 


OBJECT CODE 


co 


BD 
F2 
BD 
co 
BD 
cq 
co 
FZ 


BD 
co 
8D 
F2 
38 
co 
F2 
8D 
co 
8D 
co 
8D 
co 


BD 
co 


BD 
co 


3D 
F2 
8D 
co 


3D 
F2 
2D 
co 
3D 
co 
3D 
co 
3A 


8D 
co 
8D 
co 


06 


3D 
F2 
38 
F2 
co 
3D 
co 


6c 
3D 
co 
OE 
36 
co 


29AUG75 
827804 


87 


D9 
01 
40 
01 
40 
04 
87 
87 


5¢ 
81 
03 
01 
FF 
10 
87 
03 
81 
03 
81 
07 
81 


cs 
81 


E3 
01 


FO 
01 
01 
81 


OF 
01 
03 
01 
OF 
o1 
02 
04 
FO 


03 
01 
03 
C1 


30 


00 
81 
OF 
90 
87 
FFP 
814 


SF 
2F 
84 
00 
01 
RF 


0E32 


00 
15 
01 
1153 
06 
1153 
2U2E 
Ag 


00 

V2F1 

03 2B0D 
OB 

2AB53 
1319 

8F 

03 2B17 
13F5 

03 2B01 
T44D 

07 2B09 
1383 


00 
OF33 


00 
1521 


2AB2 

09 

01 2AFB 
OF33 


2AB2 
1D 

2AED 
OEE? 
2AAD 
OF33 
2ABF 
OF33 
2aaD 


SF 


5F 2BiE 
1541 

SB 2ADD 
1572 
2BTE 2AEE 
2AB2 

07 

2AAD 

oc 

VF59 

2AARD 

OF33 


SF 5P 
2B20 

OFGY 

2B20 0A03 
2B8A 

OE32 


22DEC75 
827836 


MOD 12 


352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
360 
384% 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
G41 
412 
4143 
414 
415 
416 
417 
418 
419 


CONTE2 


NOTSS# 


* 
CONTA? 


SEQCHK 


NOTDAT 


LOOPY 


3OAPR76 
571872 


ADDR STMT SOURCE STATEMENT 


B LOOP? 

CLI 0(,XR2),C*RS 
JNE  CONTE2 

CLI 1(,XR2),c* * 
BNE  REPERR 

CLE 6(,2%R2).C* * 
BNE  REPERR 

B CONWRT 

3 LOOPS 

CLI 0(,XR2),C**! 

BE ASTRK 

CLC 3(&,XR2),SSWID 
SNE wNOTSS® 

TBN DCPFG,X'FF® 

BT DCPCD1 

3 LOOP4 

CLC 3(4,XR2},UDTID 
BE DCPCD3 

CLC 3(4,XBZ),CPUIDZ 
BE DCPCD4 

CLC 7(8,XR2),CHNID 
BE DCPCD2 

CLI 0(,XR2}-C*E® 

BE LWRITE 

CLI 0(,XR2),C°T® 
BNE IwNVCD 

CLI DFILAG,X*FO* 

JNE *#12 

CLC 1(2,XR2}),/HE 

BE LURITE 

CLI DFLAG,xX*OF® 

JNE  SEQCHK 

CLC  LSTDCD(&} 495 (,XR2) 
BIE SEQCHK 

CLI PFLAG,X‘OF® 

BNE LWRITE 

CLI CD10R2,2 

BNE LWRITE 

SBN PFLAG,X*FO® 

CLC 95(4,XR2),SEQCTR 
BNE IN¥SEQ 

CLC 91(%,XR2) ,SAVEID 
BNE INVID 

az SEQOCTR(4} oD4(1) 
CLI DFLAG,O 

JE NOTDAT 

TBN PFLAG, X*OF* 

JF LOOPS 

B CMPRS1 

CLI PFLAG,X‘'FF* 

BR LWRITE 

MVC =: 95 (96, XR4} 6 95 (, XR2} 
CLI RCTR,47 

BE WRITE 

ALC RCTR(1),ONE 

A 1256,XR1 

B LOcP1 
25BHAR7T7 
571989 


j 


PART NO. 8248217 IBM MAINTENANCE DIAGNOSTIC PROGRAK PART KO. 4248217 
PAGE & PAGE MA 
Dn6é3 3340 CE DISK EDITOR BOD 2 
ERR LOC OBJECT CODE ADDR STHNT SOURCE STATEMENT 
READ ANOTHER CARD 420 KESRERRERESESRERES SEK ER SESESESEHSE REESE S SHES HAES SES HET EES TH EEEEE SESS EEEES 
421 * THYS SECTICR WRITES DECKS ON THE DESK. A 
IS IT A REP CARD? R22 SL EREEEESEREERESESHSTE RES SERRE SE SERLE EERE SE ERE SES EERAESE SESE RESE EEE ESS 
IF SO, CONVERT IT TO A TEXT RCRD 423 
IF COLUMN 2 OR 7 ARE NOT BLANK 423 
THE CARD IS IN ERROR 0F33 3C FF 2AB1 424 LWRITE BYEZ LWHT, X° FFE SET LAST RECORD FLAG ae 
OF37 3B 07 2AB5 825 SBF P3741,X'G18 RESET 3741 ADD FLAG EER Sots 
OF3B 6C SF SF 5F 426 aYvC 85 (96, XR1} ,95(¢XR2) BRITE END CARD IMAGE ON PACK 
CONVRT TEXT CARD OF3F 4&C 7F FF 37393 427 avCc #SGBG R¢LENGTH-ENDROU (LENGTH~ENDROU,XR1) - LENGTH~* 
428 
429 * THE ABOVE INSTRUCTION ADDS TBE END CARD ROUTINE 
IS IT A COMMENT CARD? &30 * IxTO THE LAST HALF OF THE END CARD. 
GO HANDLE IT 434 
IS IT &A SSW CARD? OFG& OC GO 2BC2 2B20 G32 WRITE &YC DOUCP €1} -RCTR SET € OF RECORDS TO WRITE 
JUSP IF NOT OFUA CO 87 239C 433 B HERRS WRITE KN RECORDS 
IF IT IS DCP THER GO ADD IT IN ITS OF4E 4d OF“UE 434 pc XLUfHO® WRITE FLAG 
SPECIAL RECORD. OP4P 4800 OF50 &35 pe AL2 (DDDF} @ OF DDDF 
OTHERWISE ADD IT NORMALLY F517 2BB9 OF52 436 DC AL2 (DDCF2} @ OF DCF 
IS IT A UDT CARD? 437 
GO HARDLE IT OF53 OE 01 2BAB 2B20 438 ALC SCTE (2} ,RCTR INCREMENT SECTOR COUNTER 
IS IT A CPU CARD? OFS59 OE 01 2BAB OA03 439 ALC SCTR(2} ,ONE ADJUST TO CORRECT VALUE 
GO HANDLE IT . 440 
IS IT A // CHAIN CARD OFSF CO 8&7 2198 ut B STPFLD STEP DDCF TO WEXT SECTOR 
GO HANDLE IT OF63 2BBE OF6G 442 pC. AL2 (DDCFA)} @ OF RIGHT MOST BYTE 
443 
IS IT AN END CARD? OF65 3D FF 2aBi 44g cii LHET, X*PF* IS LAST WRITE FLAG SET? 
GO TO LAST WRITE ROUTINE OF69 CO O01 OEZA 4&5 BHE LOOP2 READ ANOTHER RECORD IF NOT 
' GLE 3 
IS IT A TEXT CARD? 446 
SINCE THAT IS THE ONLY THING LEFT, 4&6 
IF IT ISN'T A TEXT CARD IT IS INVALID 446 
IS IT A TAP DECK? 446 
SKIP Jt NOT , io EERERRESHEKSEREERESEEE EEEES 
IS AT A TAP END CARD? 447 EEEKESESSSSEEESEEEESSERAIESSS SEES RERE SESE SESE 
WRITE FOR THE LAST TIME aug + SCAK. VTOC AND OVERWRITE OLD PROGRASS + 
449 CadheECREEREDERSRAEERSSERES ESTEE TERE RERES EER ESE SER ESEEEELE REESE ESSE SES 
IS IT A DATA DECK pee 
THEN SKIP THE SEQ # CHECK 
IS IT THE LAST CARD IN THE DATA DCK? OF6D 3D FF 2ABE us c1Li NWRTFG,X*FF® IS NO WRITE FLAG SET? 
GO TO LAST WRITE ROUTINE 0F71 CO 81 1020 452 BE FASS&E THEN WRITE IT IN PAS AREA 
IS IT PROG. DATA DECK? 453 ; 
NC, GO TO LAST WRITE ROUTINE OF75 OC O04 25A4 23B8 454 RTRNY AVC VTIMB414 (5) ,NAS MOVE IN DISK LOCATION 
Is If UNCOMPRESSED DECK? OF7B OC O48 2BB8 2BBE 455 BYC WAS (S} -DDCFM UPDATE NEXT AVAIL SECTOR 
NO, GO TO LAST WRITE ROUTINE 456 
SET ON LAST PROG DATA CARD FLAG OF81 CO 87 OR78 457 B SETTO SET DDDF FIELD TO 0 
458 
COMPARE SEQ #'S ' OF85 OD G1 2AC3 2B5A “59 CLC VTOCE (2) « ZERO IS THIS FIRST ENTRY? 
IF NOT =, GO PRINT ERROR OF8B C& 81 172B £60 BE NWET GO TO NEW RTN GRITE 
IS ID SAME AS ON HEADER CARD? $ ae 
INT ERROR ; : . 
aE SNORE 9 CO EES OF8F OC 02 OF9C 2ADC &62 ayvc PRGID2 (3) -SAVEID<1% MOVE IN PROGRAM ID 
: SCAN YTOC 
NCRENENT SEQUENCE COUNTZR OF95 CO 87 227A 463 B SCNVTC 
: . oF99 00 OF99 464 FLAG2 dC ILt#Qf FLAG 
IF NOT A DATA OR TAP DECK THEN OF9GA ETVETE? OF9C 465 PRGID2 DC CL3*xxx* PROGRAM TO SCAN FOR 
856 
COBPRESS IT ; 
IF NOT A PROG DATA DECK THEN ' OF9D 3D 00 OFSS 467 CLI FLAG2,6 IF THERE IS NOT A SCAN HIT, GO TO 
SKIP COMPRESS OFAt F2 81 43 468 JE NEBRT NRURT 
COMPRESS TEXT CARD OFAY 3C 00 ZBC2 469 BVT DDCF,% SET TO 1 RECORD. : 
PROG DATA DECK LAST CARD? OFA8 OC O02 4806 2B1& 470 H¥C DDDF+6 (3) , OLD OVERWRITE WITH ‘OLD 
YES, GO TO END CARD ROUTINE OFAE cO 87 239C 474 B WINRG WRITE OR DISK 
: _-« OFB2 40 OPB2 472 pC XL4*405 WRITE FLAG 
: ‘ @ OF DDDF 
MOVE CARD RECORD INTO DISK WRITE RCD OPB3 4800 OFB4 473 pc AL2 (DDDF) 
IS RCTR = MAXREC OFBS 2BB9 OFB6 4878 be AL2 (DDCFB) @ OF DDCF 
i &75 
F SO,GO WRITE 48 RECORDS i = 
a eeetcae COUNTER : OPB?T cO 87 227A &76 NRBET B SCNYTC SCAN VToc TO END 
ERCEERENS POINTER eee ae eee erat cae Estes aooness OF NO PROGRAHS (SCAK TO 
: OFBC 5C5C5C OFBE 478 pc CL3tesee 
READ ANOTHER RECORD 479 * THE END) 
PROG ID ppé-2 BATS Z29auG75 22DECTS S3OAPR76 25RART7 PROG ID ae 
PAGE y EC NO. 827804 827836 571872 571988 PAGE 


IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 6248217 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248217 
PAGE 5. PAGE 5A 
DD63 3340 CE DISK EDITOR MOD 12 DD63 3340 CE DISK EDITOR BOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATESENT ERR LOC OBJECT CODE ADDR STHT SOURCE STATERENT 
OFBF 3D 00 OFBB 480 CLI FLAG3,0 Is IT SCAN HIT? 108F OC 04 2BA4 2856 546 MVC VTIMB414 (5) ,C3HO SET UP VTOC IMAGE 
OFC3 CO 81 1%5CD 481 BE SCNERR GO TO ERROR RTN 1095 0C 04 2BBE 2B4C 547 MVC = DDC FN (5) ,C3H164 
482 109B F2 87 60 548 J CcoRTC3 
OFC7 OC 02 2B9C OAG6F 483 MVC VTIMB+6 (3) -IDLOC SET ID IN VTOC 549 
OFCD OC 00 2B9E 0A70 484 MVC) 8 =>s-: VT'.IMB4+8(1) , IDLOC+1 SET LEVEL IN VTOC 109E 550 QCPU FEQU * 
OFD3 3D 00 2aB0 48s CLI SCDFG,0 SYS TEST MODULE? 109E C2 01 4800 551 LA DDDF ,XRi LOAD XxR1 
OFD? F2 81 09 686 JE CORTCS JUMP IF NOT 10A2 OC 04 2BBE 2851 552 SVC DDCFM(5),C3B165 PREPARE DDCF TO READ CPU vTOC 
887 10A8 3C 00 2BC2 553 NVI  DDCF,O 
OFDA CO 87 0226 488 B PACK TO DCP PACK RIN: SET SYS TEST FLAG 554 . 
OFDE 02 OFDE 489 pc IL1*2° LENGTH qwoac CO 87 239C 555 B WINRE READ CPU Y¥TOC 
OFDF OA6z OFEOQ 490 pc AL2 (IDLOC-1) SOURCE 10B0 80 10B0 556 DC XL1*°80* READ FLAG 
OFE1 2BAD OFE2 491 pc AL2 (VTIN-5) LENGTH 10B1 4800 10B2 557 DC AL2 (DEDF) 
492 10B3 2BB9 10B4 558 DBC AL2 (DDCFB) 
OFE3 OC 1C 481C 2BB2 493 CONTCS MVC DDDF¢28(29),VTI# BOVE VTOC IMAGE 559 
OFE9 OC SF 4&8DF OA74 494 HVC DDDF+223(96),SAVID MOVE HEADER CARD IMAGE 10B5 39 OF 2ABE 560 TBF FSTCPU,X*OPF* HAS CPU ALREADY BEEN WRITTEN? 
495 10B9 F2 10 2A 561 JT CONTD9 IF SO, JUSP 
OFEF 3C 01 2BC2 496 WRIVTC MVI DDCF,1 WRITE 2 RECORDS 562 
OFF3 3C 00 49FF 497 MVI DDDF1#255,0 SET 2ND DDDF FIELD TO 0 10BC CO 87 OBS8A 563 B SETO SET DDDP TO O 
OFF7 OC FE 49FE 49FF 498 MVC DDDF12#254 (255) , DDDF 714255 10CQ 4c 01 15 OAO3 564 MYC 21(2,XR1) -ORE INITIALIZE SECTOR # 
499 10C5 4C 03 03 2893 565 S¥C 3(4,XR1),ACTO INITIALIZE CPU VTOC TO WHAT IT 
OFFD CO 87 239C 500 B WINRRE WRITE 2 RECORDS ON DISK 10CA 4C 02 06 2B00 566 ayc 6 (3,XR1) ~-CPUIDZ~-1 SHOULD BE 
1001 40 1001 501 DC XL7°408 WRITE FLAG 10CF 4c 00 08 2ADD 567 aVC 8 (1,XR1) ,SAVEID PUT IN LEVEL 
1002 4800 1003 502 pc AL2 (DDDF) ® OF DDDF 10D4 4C O04 OE 2B7E 568 ayc 14(5,XR1) ,COHOUS POT IN CCHHR 
1004 2BB9 1005 503 pc AL2 (DDCFB) @ OF DDCF 10D9 4C 14 9F 3123 569 MVC 159(21,XR1) ,ADMSG¢38 INSERT PN & EC FIELD 
504 1ODE 4C 1F BF 3148 570 SVC 191€32,XR1),ADMSG¢78 INSERT CCMNENT FIELD 
1006 OF 01 2aC3 0a03 505 ALC «VTOC# (2) ,ONE INCREMENT #@ OF VTOC ENTRIES 10E3 F2 87 05 571 J WCPOVT SKIP TO PREPARE TO WRITE 
100C 0C 01 2272 2AC3 506 MVC FASINF(2),VTOC# MOVE IN # OF VTOC ENTRIES IN FAS 572 
1012 OC 04 226F 2BB8 507 NVC  FASINF-3(5) ,NAS MOVE IN NEW NAS IN FAS 10E6 4E 01 15 0A03 573 CONTD9 ALC 21(2,XR1) ,ONE UPDATE # OF SECTORS 
1018 CO 87 2242 508 B WRFAS 574 
101C CO 87 1I2RA 509 B CONTCS PRINT A MESSAGE 10EB 3C 00 2BC2 575 WCeuvT VI DDCF,0 WRITE 1 RECORD 
510 1OEP F2 87 2C 576 J WRT3 GO WRITE RECORD 
510 10F2 OC 04 2BA4 2B74 577 QFFA HVC VTIMB+14(5),FFALOC SET UP VTOC IMAGE 
511 EERE EERERERESER TE ERE EERE CERESES ERETELELEEEES ER AEREEES ESSE EEEEEES EE EEE 10F8 OC 0&4 2BBE 2B42 578 NYC DDCFA (5) ,C3H162 
512 * RECORD SPECIAL MODULES IN VTOC FORMAT IN FAS * 579 
513 CHECKS EKERREREREREREEEEREAEEE EEA RE REREEREEEER ARETE HRKEEREEEREEEER ET OHSS 4OFE 3C 00 2BC2 §80 CORTC3 BVI DDCF,0 SET UP REST OF DDCF FLD 
514 1102 OC 02 2B9C 2aADC 581 HVC VWTIMB+6(3),SAVEID-1 FILL IN ID 
574 1108 OC 00 2B9E 2ADD 582 HVC VTIHB+8(1),SAVEID FILL IN LEVEL 
1020 3D FF 2AB3 515 FASWR CLI ODCPFG,X‘'FF* IS If DCP MODULE? 583 
1024 F2 81 2C 516 JE QDCP 110E CO 87 OB78 584 B SETTO SET DDDF TO ZERO 
1027 38 OF 2ABD 517 TBN CPUFG,X*OF® IS IT CPU DATA MODULE 1212 0C 1C &81C 2BB2 585 svc DDDF¢ 28 (29) , ¥YTIN MOVE ISAGE IN DDDF FIELD 
102B F2 10 70 518 JT OCPD THEN GO HANDLE if 1118 OC SF 4SCDP OAT7& 586 nYC DDDF*+223(96) , SAVID MOVE IN HEADER CARD IMAGE 
102E OD 02 OA6FP 2B29 519 C1C IDLOC(3),FPA IS IT FFA MODULE? 587 
1034 F2 81 BB 520 JE QFFA VilE CO 87 239C 588 WRT3 B WIRRW WRITE VYroc INFO 
1037 OD 02 OAGF 2B2C 521 CLC IDLOC(3),FFB IS IT LOADER MODULE? 1122 40 1122 589 pc XL1*40* WRITE FLAG 
103D F2 874 04% 522 JE QFFB 4123 4800 772% 590 bc AL2 (DDDF) @ OF DDDF 
1040 CO 87 OF75 523 B RTRN1 IP NONE OF THE ABOVE, RETURN 1125 2RB9 1126 6591 pc AL2 (DDCFB) @ OF DDCF 
524 1127 CO 87 12AA 592 B CONTCS PRINT A KESSAGE 
1044 OC 04 2BA4 2338 525 OFFB MYC VTIMB4+14(5),C3H172 SET UP ¥TOC IMAGE 593 
104A OC O04 2BBE 2B47 526 MVC) = DDC FM (5) ,C3H163 593 
1050 F2 87 AB 527 J conrc3 593 
528 593 
1053 38 FF 2KAF 529 QDCcP TBN CPUDFG, X*FF® HAVE BOTH A UDT AND CPU RECD BEEN 594 KKKKSKERESSSRHKSESEKEEKEKEKCKEEKESEKSEEEAREKEEEEEAEKEER ERKESEKEKERSEREKKEE SESE 
1057 co 90 1599 530 BF DCPERR ENTERED? IF NOT GO PRINT ERROR 595 * ADD THE FIRST PROGRAM TO A VIRGIN PACK * 
531 596 EKEREESKEKEEESEKSEESEEEKEEREKEEESEESEEKEKEKREEEEKEKEEKEEEKERE ESTEE SEEEEKECKSEEEKE EEE 
1058 OC 03 20C6 2365 532 MVC = PNAS~1(4) ,C3H15 SET UP SUBROUTINE PARAMETERS TO 597 
1061 3c 05 20C7 533 HVI PNAS,5 MOVE THE SSW,UDT,// CHAIN AND 597 
1065 oc 03 2BB7 25365 534 MVC = NAS~7(4),C3H15 CPU RECORDS 172B OC 02 2B9C OAG6F 598 NWRT MVC VYTIMB+6 (3), TDLOC SET UP ID FOR 1ST YTOC RECORD 
106B 2c 04 2BB8 535 MVI NAS,1 1131 OC 00 2B9E 0A70 599 SVC VTIMB+¢8(1) ,IDLOCe4 PUT IN LEVEL 
106F OC G1 2BE2 2BEE 536 NVC SECT# (2) ,X4 SET # OF REC®*DS TO HOVE 1137 OC 04 2BA4 2B5B 600 MVC) 8 =—s-: WT IMB4+14 (5) ,CUHORI PUT DISK ADDRESS IW 
537 113D OC 04 2BBE 2B60 601 BYvC  DDCFS(5),C2HOR1 SET UP DDCF FIELD 
1075 CO 87 20C8 538 B RWRIN TO SUBRTN TO MOVE REC! DS 1143 OC 1C 481C 2BB2 602 HVC DDDF*28 (29) ,V?Is SET UP VTOC FIELD 
539 1149 OC SF 48DF OA74 603 HVC DDDF+223(96),SAVID 
1079 OC 04 20C7 226F 540 MVC PKAS(5),FASINB*8 SET UP SUBRTN PAR*MS TO BOVE DCP 114F CO 87 OFEF 604 B WRIVTC 
107F OC O04 2BB8 2B56 541 MVC NAS(S),C3HO PROGRAM TO FINAL RESTING PLACE 695 
1085 Oc 01 2BE2 2BAB 342 MVC =©SECT#(2),SCTR €u5 
543 605 
108B CO &7 20C8 544 B RWRTR TO SUBRTN TO MOVE REC*DS 605 
545 606 KEKSKKSESAEKESEKRERAKEESEREEEEEREREHKSRSKECERSESEERE SKEKEEEES ELEKEEEESEEKESS 
DATE 29AUG75 22DEC75 30APR76 25HAR77 PROG ID DD6~-3 DATE 29a0575 22DEC75 30APR76 25MART7 ROG I DD6é— 
EC NO. 827804 827836 571872 571989 PAGE 5 EC NO. 827804 827836 571872 571989 pace 5 








IBM MAINTENANCE DIAGNOSTIC PROGRAS PART NO. 4248277 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248217 
PAGE 6 PAGE 6A 
DD63 3340 CE DISK EDITOR MOD 12 DD63 3340 CE DISK EDITOR MOD 42 
ERR LOC OBJECT CODE ADDR STST SOURCE STATEMENT “ERR LOC OBJECT CODE ADDR STMT SOURCE STATESENT 
607 * REP CARD ERROR HANDLING ROUTINE +. 11D& 665 END2 EQU . 
E08 EHEEREEKEEEREREEEREEESESEREREERRES SEEREEEECEEEE EES EKESEEEEREESEEREEEEREES 72D4 38 GF 2ABD 666 TER CPOFG,X‘OF* IS IT A CPU-MEM NODULE? 
oo 11D8 F2 10 11 667 oT CONTG4 THEE PUT IN CPU DDCF 
668 
1153 CO 87 O27A 610 REPERR B PRINT PRINT "ERROR IN REP C&RD!* T1DB OC O& 2BBE 2B74 669 AYC DDCFM (5) , FFALOC LOAD DDCF 
1157 C2 1157, 611 Dc XL1*c2¢ FLAG T1E7 3C¢ 00 2BC2 670 BVI  DDCF,O 
1158 22 1158 612 pc AL1(ERR5~ERR5B) LENGTR 11E5 3B FO 2ABD 671 SBF | CPUFG,X*FO* TURN OFF FFA MODE IF IT IS ON 
71159 2ECD 115A 613 Dc AL2 (ERRS) ADDRESS OF MESSAGE 11E9 F2 87 OA 672 J RRTZ 
115B PFES5 115¢ 614 pc XL2*FFES* ID 673 
115D CO 87 615 11EC OC O04 2BBE 2B79 674 CONTGS MYC DDCPM(5) ,CMIDLC MOVE IN DDCF FLELD TO WRITE DATA 
2A8A oe B PRINT2 PRINT CARD IMAGE 14F2 3C 00 2BC2 675 SVI  DDCP,O IN NEXT CPU LOCATION 
676 
1161 CO 87 0222 618 B HALT TO DCP HALT 11F6 CO 87 239C 677 WRT2 8B WINRW WRITE RECORD ON DISK 
1165 FFES 1166 619 Dc XL2*FFES* ID TIPA 4&0 TiFA 678 DC XL1*40# FLAG 
620 11FB 4800 11FC 679 DC RL2 (DDDF) @ OF DDDP 
1167 CO 87 0£32 621 B LOOP1 11FD 2BB9 11FE 680 pc AL2 (DDCFB) @ OF DDCF 
622 681 : 
622 11PF CO 87 219B 682 B STPFLD INCREMENT CONTROL FIELD 
622 1203 2B79 1204 683 Dc AL2 (CHIDLC) ; 
22 684 
622 1205 CO 87 1020 685 B FASWR ENTER VTOC LIKE RECORD 
622 686 
622 686 
622 686 
623 EEEES ES EEREEEEKEEAEESESEAESESEREEKEKEEREEERESEARE SEER EEKEERESEEDEEREREAES HESEE 686 
624 * ADD CPU-MEMORY OR FFA CARD DECKS * 1209 CO 87 O2TA 687 STP2 B PRINT PRINT "TOO MANY CARDS* 
625 FEREEEREEEEEEESEEERESEEEEEESS CEREEE ES REEKEREERERAEERE OEEECHEREREREKES REREEK 120D C6 120D 688 DC xL1°C6* FLAG 
626 120E 2F 120E 689 Dc AL1(ERRB~ERRSB) LENGTH 
626 120F 2D99 1210 690 DC AL2 (ERR8) ADDRESS 
116B 627 ADDFFA EQU * 1211 FFES 12712 691 DC XIL2°*FFE8* ID 
116B 3A FO 2ABD 628 SBN CPUFG,X*FO® SET FLAG FOR FFA MODE 692 
629 1213 CO 87 0222 693 B HALT TO DCP HALT RIB 
116F 630 ADDCPU EQU * 1217 FFES 1218 694 pc XL2°* FFE8S* FLAG 
631 695 
116F C2 01 4806 632 LA DDDP,XR1 LOAD XR1 1219 CO 87 OCB8F 696 B LINKA® 
1173 04 30 2B1E 2AEE 633 ZAZ  SEQCTR(4&) ,D1(1) INITIALIZE SEQUENCE COUNTER 697 
1179 OC 01 2277 2B5A 634 HVC TEMP3(2),ZERO ZERO OUT POINTER es 
635 
117F CO 87 2749 636 G2TS”) iB RECORD READ A RECORD 697 
637 698 SSKSEKSSEHKEESKSSESHSKEKESESSSESESHEESSESEESHSESCEESKSEKEKK STKE SLKESKEKKERESESEEEKEREKS 
1183 BD C5 00 638 CLI 0(,XR2),C*E® IS If AN END CARD? 699 * CPU & MESORY SECTION . 
1186 F2 81 4B 639 JE END2 700 * THIS SECTION PREPARES THE SODULE TO BE ADDED * 
1189 BD E3 00 640 CLI 0(,XR2),cC*T* Is IT A TEXT CARD? : 701 * TO THE PACK. . 
118C CO 01 1521 641 BNE IBvcD GO TO INVALID CARD RTN 7 TOL HORSES SSEEESESESESEREEERLESERESS SEES EEEESEEESEEEREEEES EE EERE EEEEEEE ESD 
642 703 
1190 8D 03 5F 2BIE 643 CLC 95(4%,XR2) ,SEQCTR DOES SEQUENCE # HATCH THE EXPECTED ; 703 
1195 CO 01 1541 644 BNE IWVSEQ SEQUENCE #?. 121D 704 CPUPG EQU) * 
1199 8D 03 5B 2ADD 645 CLC 91(4,XR2),SAVEID DOES ID MATCH EXPECTED ID? 121D 34 08 72A9 705 Sst CPUPGR+3, ARR SAVE RETURN ADDRESS IN CASE NOT 
119E CO 01 1572 646 BNE  .INVID a oe 706 * CPU-MEM MODULE 
647 1221 BD FO 58 707 CLI 88(,XR2),C*O* IP HIGH ORDER BYTE OF MODULE NOT 
11A2 06 30 2B135 2AEE 648 AZ SEQCTR (4) ,D1(1) INCREMENT SEQUENCE COUNTER 1224 F2 01 7B 708 JNE END3 ZERO THEN NOT CPU MODULE 
1148 CO 87 1F59 649 B CMPRS1 COMPRESS DATA 709 
659 1227 3C PO 2AB6 710 MVI FADD,C*O* RESET 3741 FORCED ADD FLAG 
tac 3c 00 OA8O 651 NVI READIN,O ZERO OUT HIGH ORDER BYTE 122B 38 OF 2ARE 711 TBH FSTCPU, X*OF* IS THIS THE SECOND MODULE? 
652 ' 122F 3B OF 2ABE 712 SBF FSTCPU,X*OF® TURN OPF FLAG 
11B0 OF 01 2277 0a81 653 ALC TEMP3(2), READING 1 INCREMENT POINTER ; 1233 F2 90 06 713 JF CONTG1 IF NOT SECOND MODULE, TIEN JUMP 
11B6 OE 01 2277 OA03 654 ALC TEMP3(2) ,ONE ADJUST IT 718 
12BC OD C1? 2277 2B8A 655 CLC TEMPS (2) ,X256 IS POIFTER TOO HIGH : 1236 OC 04 2B79 2883 715 S¥YC  CHIDLC(5),C1HOR1 SET TO WRITE REST OF MODULES 
1102 F2 64 44 656 JE STP2 IF IT IS PRINT ERROR é 716 
657 423C 8D 01 OC 2AF9 717 CONTG? CLC 12{2,XR2),PN IS IT A HEADER CARD? 
1105 6C 41 41 45 658 MVC © 65 (66, XR1),69(,XR2) STRIP OFF LENGTH AND ADDRESS AND 1241 F2 81 14 718 JE - CONTG2 IF NOT DON'T RESET SEQ # COUNTER 
659 * ADD TO CONTENTS OF SECTOR 719 
11C9 36 01 OA8B1 660 A READIN4+1,XR1 INCREMENT FIELD POINTER 12446 OC 01 2277 2BS5A 720 AVC SEMP3 (2) ,ZERO ZERO OUT BYTE COUNTER 
1ICD D2 07 01 661 LA 1(¢XR1) gXR1 ADJUST IT : 124A 06 30 2B1E ZAEE 721 AZ SEQCTR (4) ,D1¢1} INCREMENT CARD SEQ @ CTR 
662 1250 C2 017 4800 722 LA DDDF,XR1 RESET POINTER 
11D0 CO 87 117F 663 B GETS IF NOT READ BORE 1254 CO 87 1183 723 B GET5S¢4 ENTER CARD READ MODE, SKIPPING READ~ 
664 724 * ING THE FIRST CARD. 
665 2258 CO 87 0226 725 CONTG2 B PACK 
DATE 29AUG75 22DEC75 30APR76 255AR77 PROG ID DD6- ae 29aUG75 Z2DEC?5 30APR76 25MARI7 PROG ID DD6-3 
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3340 CE DISK EDITOR HOD 12 DD63 

OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC 

02 125C 726 pc IL1*2? LENGTH 

OADA 125E 727 DC AL2 (READIN+¢90) SOURCE 

2BE8 1260 728 pc AL2 (CHIC) DESTINATION 
729 

3D DO 2BE8 730 CLI CMID,x'DO® SEE IF LOW ORDER BYTES ARE IN THE 

F2 82 3A 731 JL END3 RANGE X*DO'-x'PS*, IF SO, IT IS A 

3D FS 2BE8 732 CLI CMID,x*FS? CPU-MEMORY MODULE. 

F2 84 33 733 JH END3 12F1 
734 12F6 

3a OF 2ABD 735 SBN  CPUPG,X'OF* SET CPU FLAG 12F9 
7136 12FE 

04 30 2B1E 2AE7 737 ZAZ  SEQCTR(4),DO (1) RESET SEQUENCE # COUTER 1302 

8D 03 SF 2B1E 738 CLC 95(4,XR2),SEQCTR IS SEQUENCE # CTR =0? 1307 

CO 01 1541 739 BKE INVSEQ IF NOT GO TO ERROR HANDLING RTH 130B 

2c SF OA74 5F 740 BYC SAVID(96) ,95/,XR2) SAVE HEADER CARD IMAGE 

2c 03 2ADD 5B 741 MYC SAVEID(4),91(,XR2) SAVE ID 1311 
742 1315 

8D 01 5A 2AaE9 763 CLC 90(2,XR2),DDO IS THIS THE FIRST CPU MODULE? 

F2 01 OA 744 INE  CONTS3 JUMP IF NOT. 1319 

3A OF 2ABE 745. SBN FSTCPU,X'*OF® SET FIRST MODULE FLAG 131D 

Oc O04 2B79 2BT7E 746 HVC CMIDLC(5) ,COHOUS SET DDCF TO WRITE FIRST MODULE 1321 
747 * IN CYL 0,HD 0,REC 48 1324 
748 1329 

CO 87 116P 749 CONTG3 B ADDCPU TO ADD CPU PROGRAM TO PACK ‘ace 
750 

3B OF 2ABD 751 END3 SBF  CPUFG,X*OF® RESET CPU FLAG 

CO 87 0000 752 CPUPGR B ++ RETURN TO CALLER 1333 
753 1337 
753 41341 
753 1345 
753 1346 
753 1348 
753 
753 1342 
754 SRKESSTEKSESESKHAKSEESELEKEKEKKKKEEKEKKKKKKSEKKECARKEKKEKSSEKKKEKEKKSESKKSEEEKSEKEKKSE KS 134P 
755 * PRINT INFO ON PROGRAM ADDED AND QUIT OR 1353 
756 * GET READY TO ADD ANOTHER PROGRAMS 1357 
7157 SHEASEKSEKKASETSSESESSSEKSSEKAKSKSEKEKKEKKEKRSEKSEKEKKKKEKESKSEAKRSEKEKEKSEKAKKAKSTESEKESEKEKKEKE W35A 
758 135D 
758 1360 

OD 01 3110 2aF9 759 CONTC9 CLC ADMSG¢19 (2),PX IS MESSAGE TO BE PRINTED VALID? 1364 

F2 Q1 18 760 JNE GET3-4 IF NOT, THEN DON*T PRINT IT 1367 
761 136A 

Oc 02 3107 2aADC 762 MVC =ADNSG¢10(3),SAVEID-1 MOVE ID INTG PRINT FIELD 136D 

3C 60 3108 763 AVI ADESG+11,C*-8 INSERT - 1371 

OC 00 3109 2aDD 764 HVC ADMSG*12(1),SAVEID MOVE LEVEL @ INTO PRINT FIELD 1374 

CO 87 021A 765 B PRINT PRINT *ADDED-- XXX ETC.® 

02 12¢7. 766 DC X717°02¢ FLAG 1378 

WF 1208 767 DC AL1(ADNSGE-ADMSG) LENGTH 137¢ 

314B 12CA 768 pc AL2 (ADMSGE-1) ADDRESS 1380 

69 

C2 01 4800 770 LA DDDF,XR1 1383 

Cd 87 274% 771 GET3 B RECORD READ A RECORD 1387 

AD 5F 5F 60 772 CLC 95(96,XR2),96{,XR2) IS IT A BLANK RECORD? 138A 

CO 81 12CF 773 BE GET3 THEN FLUSH IT 138E 
774 1391 

3B OF 2aC0 775 SBF ADDFLG,X*OFS TURN OFF ADD SWITCH 

BD 61 00 776 CLI 0O(,XR2),C*/* IF IT IS A */* OR A *$* THEN GO TO 1394 

CO 81 OC4E 777 BE ETRN SECTION THAT HANDLES CONTROL CARDS 1398 

BD 5B 00 778 CLI 0€,XR2),C*$* 139¢ 

CO 81 OCKE 779 BE RTRN 

CO 87 OD2F 780 B RTRN2 IF NOT, ASSUME IT IS A HEADER CARD 13A0 
781 * AND GO HANDLE IT 13A5 
782 1378 
782 13AD 
782 
782 13B1 

29AUG75 22DEC75 Z0APR76 258AR77 PROG ID DD6-3 DATE 

827804 827836 571872 571989 PAGE 7 +&§EC NO. 


4248217 IBM MAINTENANCE DIAGNOSTIC PROGRAB 


4248217 
7A 


PART NO. 
PAGE 


3340 CE DISK EDITOR MOD 12 
OBJECT CODE ADDR STMT SOURCE STATESERT 
TBF FHEEKEEESESEESEESESSEEERESESSESEREEEES EERE EEEEKEEEEAEEREEEEEEEEREEEERE SEES EE 
784 * THIS SECTION HANDLES COMMENT AND DCP CARDS * 
785 * * 
786 RHEKSERKKSESKKSESKSESKEKSKSEKEKESEESKSKSESSEKSH EERE KET KHEKA SES KEKE KKEKEREKEREEEE EE 
7187 
787 
12F1 788 ASTRK EQU * 
8D 03 SF OBO 789 cc 95 (4, XR2) , BLNK IS THERE A SEQUENCE #? 
F2 81 18 790 JE CONTAY IPF NOT SKIP CHECK 
8D 03 5B 2ADD 791 cLce 91(4,ZR2),SAVEID IS ID SAME AS HEADER CARD 
cO 01 9572 792 BRE INVID GO HANDLE IT 
8D 03 SF 2BiE 793 cLCc 95 (4, XR2) ~-SEQCTR ARE SEQ #*S EQUAL? 
co 014 1541 7948 BNE INVSEQ IF NOT PRINT ERROR 
06 30 2B1E 2AEE 795 AZ SEQCTR (4) ,D1(1) INCREMENT SEQCTR 
796 
6C 5F SF 5F 7197 CONTAS #YC 95 (96,XR1) 95 (,XR2) LOAD DDDF 
cO 87 OF1S 798 B LOOP& 
799 
3C 08 2BD2 800 DCPCD1 M¥I DDCFSA#, 8 SET TO OPERATE ON RECORD 8 
38 FO 2AB3. 801 TBN DCPFG,X*FO® IF ADDING SSW TO DCP THEN DESTROY 
F2 10 08 802 JT PRWRE OLD ONE. 
8D 01 05 OBOS 803 CLC 5 (2, XR2) , BLNK IF FIELD IS BLANK THEN DESTROY 
F2 07 07 8048 JNE NBLNK EXISTING ONE 
6C 5F 5F 5F 805 PRUR uVC 95 (96,XR1) ¢95(,XR2) MOVE IN NEW RECORD AND GO WRITE IT 
F2 87 F6 806 J GRT1 
807 
34 01 1347 808 NBLNK ST THADE,XE1 STORE XR1 
OC 03 2BD1 2B65 809 aYC DDCFS&-1(4) ,C3H15 READ IN EXISTING SSW RECORD 
3C 00 2BD6 810 MVI DDCFS,0 
co 87 239C 811 B WINRW 
80 1345 812 BC XL1*80* READ FLAG 
0000 1347 813 TSADR DC AL2 (*-*) 
2BCD 1349 814 Dc AL2 (DDCFS B) 
815 
&D 02 02 2B0D 816 CLC 2(3,XR1} ,SSWID 
co 01 132Cc 817 BNE PRUR LY THEN WRITE NEW ONE 
C2 02 OA82 818 LA READIN¢2, XR2 INITIALIZE REGISTERS 
D2 01 02 819 LA 2(,XR1) ,XR1 
D2 O1 OT 820 LA 1(,XR1) ,XR1 SCAN TO END OF RECORD 
7D 40 01 821 CLI 1(-XR1),C® * IF NOT BLANK, DO AGAIN 
cO 01 135A 822 BNE *-6 
7C 6B 01 823 LOOP9 &VI 1(,XR1),C*,° ADD COMMA 
D2 01 03 824 LA 3(,X81) .XR1 INCREMENT POINTERS 
E2 02 03 825 LA 3(,XR2) ,XR2 
6C 01 00 00 826 HVC 0(2,XR1) ,0(,XR2) MOVE IN NEW SSW 
BD 6B 01 827 cLI 1(,XR2),C*,° IF NEXT CHARACTER IS A COMMA, 
cO 81 1364 828 BE LOOPS THEN DON*T QUIT 
829 
35 01 1347 830 L THADE,XR1 RESTORE REGISTERS 
C2 02 OA80 831 LA READIN, XR2 
F2 87 a6 832 J WET1 GO WRITE RECORD 
833 
3C 07 2BDZ 834 DCPCD2 HYI DDCFSA,7 WRITE INFO IN RECORD 7 
7C 40 FP 835 SVI 255(,XR1),C* ¢ BLANK OUT 
5C PE FE FF 836 AVC 254 (255,X81) ,255(,XR1) ENTIRE DDDF 
BD E2 09 837 CLI 9(,XR2),C*S* DO COL'S 10-12="STD*? 
F2 81 95 838 JE WRT1 GO WRITE IT 
839 
6C OB OB OB 840 BYC 17 €12,XR1),11(,XR2) MOVE IN CARD IMAGE OF // CHAIN 
34 01 143D 841 ST TEMADR,XR1 SAVE XR1 IN ORDER TO RESTORE IT 
3C 02 2BFD 842 AVI ICTR,2 PREPARE TO READ IN 2 CARDS 
843 
4D 02 OB 2AF1 B44 CLC 11(3,XR1) ,D48 IS IT A 4&8 IMAGE CHAIN? 
F2 81 OD 845 JE GET7 IF IT IS, JUMP 
4D 02 OB 2AF4& 846 cxuc 11(3,XR1) ,D120 IF NOT =120 THEN ERROR 
CO 01 15a4D 847 BNE CHNERR 
848 
3C 05 2BFD 849 avi ICTR,5S PREPARE TO READ IN 5 CARDS 
29AUG75 22DEC75 3OAPR76 25MAR77 PROG ID DD6-3 
827804 827836 571872 571989 PAGE 7A 








nO. 4248217 


IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248217 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART 
PAGE 8 PAGE 8A 
DD63 3340 CE DISK EDITOR HOD 12 DD63 3340 CE DISK EDITOR MoD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEHENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEBERT 
13B5 CO 87 2A42 850 GET? B PRINT? DISPLY ‘ENTER CHAIN IMAGE ...'* 1459 F2 84 12 914 JE HDRDCP 
13B9 06 13B9 851 pc XL1°06¢ FLAG 915 
13BA 26 13BA 652 pc AL1(MENUS-MENUGB) LENGTH 145C 38 01 020A 9 16 TBN SWITCH,SSW17 CHECK IF USING 37491 
13BB 3448 13BC 853 pc AL2 (MEND4) MESSAGE ADDRESS 1460 F2 90 96 817 oF INVHDR IKVALID HEADER NOT FROM 3741 
13BD CO 87 2749 854 B RECORD READ A RECORD 1463 3D FO 2AB6 918 CLI FADD,C*O* CHECK FOR FORCED AND 
; 855 1467 CO 01 0C67 919 BNE FLAGS INVALID COKTROL RECORD 
¥3C%7 3C 30 2BFE 856 NVI LCTR,48 SET LCOP COUNTER 146B F2 81 8B 920 JE IRVHDR INVALID HEADER RECORD 
13c5 BD 40 00 857 LOOP30 CLI O(,xXR2),C* * IS IT A BLANK CHARACTER? 146E 3C FO 2AB6 921 HDRDCP MVI  FADD,C*O® RESET 3741 FORCED ADD FLAG 
13c8 CO 81 15AD 856 BE CHNERR IF SO GO PRINT ERROR 1472 2C 02 2aDC 3E 922 BYC  SAVEID-1(3) ,62(,XR2) SAVE DCP ID FOR FUTURE COMPERES 
13cC E2 02 01 859 LA 1(,XR2) ,XR2 INCREMENT ADDRESS POINTER 1477 2C 00 2ADD 3B 923 HVC SAVEID(1) .59¢-XR2) 
13CF OF 00 2BFE 0A03 860 SLC  LCTR(1),ONE DFCREMENT COUNTER 147C 3C PF 2AB3 924 BVI  DCPFG,X‘FF¢ SET DCP FLAG 
13D5 CO 01 13C5 861 BNZ  LOOP30 IF NOT EQUAL TO ZERO, DO OVER 1480 2C 14 0A34 34 925 RVC  SAVIDB¢31(21)-52(,XR2} ADJUST PN & EC FIELDS 
13D9 C2 02 0a80 862 LA READIN, XR2 INITIALIZE XR2 1485 OC 1F CAS& 3172 $26 MYC  SAVIDS+63 (32) ,DCPP INSERT COMMENT FIELD 
863 148B 2C 14 3123 34 927 MYC ADHSG¢38(21),52(,XR2) DO THE SAHE FOR THE MESSAGE 
13DD 6C 2P 3B 2P 864 HVC 59(48,XR1),47(,XR2} MOVE IN CHAIN IMAGE CARD 1490 OC IP 314B 3172 928 BKYC ADMSG¢78(32) ,DCPP PRINTED AT EXD OF OPERATION 
13E1 D2 01 30 865 LA &8(,XR1} X81 INCREMENT POINTER $29 
i3E4 OF 00 2BFD 0a03 866 SLC ICTR(1),ONE DECREMENT COUNTER 1496 3C 04% 2BFD 930 BVI ICTR,4 SET UP LOOP COUNTER 
13Ea CO 01 13B5 867 BNZ GET? IF NOT 0, READ ANOTHER RECORD 149A CO 87 OBSA 931 LOOP19 B SETO SET DDDF TO 0 
868 149E 36 01 2B6A 932 A X¥256,XR1 INCREMERT FIELD POINTER 
13EE 35 01 143D 869 L TEMADR,XR1 RESTORE POINTER TO ORIGINAL POS. 14A2 OF OO 2BFD 0203 933 SLC ICTR(1),ONE DECREMENT COUNTER 
13F2 F2 87 34 870 J WRTI GO WRITE RECORD 14A8 CO 01 149A 934 BNZ  LOOP19 TAKE BRANCH IF CTR NOT 0 
871 935 
13F5 BD 40 03 872 DCPCD3 CLI 3(,XR2),C* IS If A UDTX RECORD? 1UAC OC 03 2BBD 2565 $36 RVC DDCFH-1(4) -C3H15 SET UP DDCF FIELD 
13F8 F2 81 OB 873 JE DCPCN4& IF wot, THEN SKIP 14B2 3C 05 2BBE 937 BVI DDCFK,.S 
13FB 38 FO 2AAF 874 TBN  CPUDFG,X‘'FO* HAS A UDT RCD ALREADY BEEN ENTERED? 14B6 3C 03 2BC2 938 MVI DDCF, 3 
13FF CO 10 1E1D 875 BT UDTXP IF SO, THEN ADD UDTX RECORD 939 
1403 F2 87 3a 876 J DCPCN2 OTHERWISE CONTINUE PROCESSING 14BA CO 87 239C 940 B WINRW WRITE 4 RECORDS OF 0 
877 14BE 4&0 WBE 941 pc XL1°40° WPITE FLAG 
1406 8D 01 05 2B1A 878 DCPCN& CLC 5(2,XR2},#INID IS LOADER ID='Cci'* 14BF &800 14CO 8942 pc AL2 (DDDF) 
140B F2 G1 32 879 JRE DCPCN2 T4Ct 2BB9 14C2 943 pc AL2 (DDCFB) 
140E 6C SF SP 5F 880 HVC 95(96,2R1),95(,XR2)  YRITE UDOT RECORD 946 
1412 3c 06 2BD2 881 AVI DDCFPS4H,6 WRITE AT REC. 6 44C3 3C 05 2BFD 965 aYVI ICcTR,5 INITIALIZE COUNTER 
W416 34 FO 2AAF 882 SBN CPUDFG, X*FO® SET FLAG SAYING UDT IS ENTERED 1407 C2 01 4806 $46 LA DDDP,XR1 INITIALIZE ADDRESS POINTER 
141A F2 87 OC 883 J WRTI GO WRITE RECORD 14CB CO 87 2749 947 LOOP3 B RECCED READ NEXT RECORD 
884 TUCP OF 00 2BFD 0a03 948 SLC LICTR(1},ONE INCREMENT COUNTER 
141D 6C 5F SF SF 885 DCPCD4 AYC 95 (96,XR1),95(,XR2) WRITE CPU RECORD 14D5 CO 01 14CB 949 BNZ = LOOP3 IF NOT READ ANOTHER RECORD 
1421 3c 05 2BD2 886 BVI DDCFSH,5 WRITE AT REC. 5 14D9 3C PF 2AB3 950 . SSVI DCPFG,X°FF® SET DCP FLAG 
1425 3A OF 2AAP 887 SBN CPUDFG,X°OF® SET FLAG SAYING CPO REC IS ENTERED 14DD CO 87 2749 951 GETS B RECORD GET NEXT RECORD 
888 14E1 CO 87 1P59 952 B CMPRS1 COHPRESS RECORD 
1429 OC 03 2BD1 2B65 889 WRT1 MVC DDCPSH-1(4),C3H15 SET DDCF TO WRITE 1 RECORD 14E5 BD 02 02 953 CLI 2 (,XR2) 2 IS ADDRESS < 2007 
142F 3C 00 2BD6 890 AVI DDCFS,0 14E8 CO 01 T4DD 954 BNE GET4 GET ANOTHER RECORD IF IT IS 
891 14EC 24 03 2BIE 5F 955 ZAZ  SEQCTR(4),95(4,XR2) INITIALIZE TO CURRENT SEQUENCE 
1433 34 91 143D 852 ST TEBADR,XR1 SET DDDF PARAMETER 200 
893 ' - 44F1 3G FF 2AAE 957 MVI =KWRTPG,X*PP* SET NO WRITE ON VTOC FLAG 
1437 CO 87 239C 894 B WINRW WRITE 1 RECORD AT C3H15RX c4F5 CO 87 ODF1 958 B DCPCT1 THEN TARE THIS OSE 
143B 40 443B 895 DC XET* 408 WRITE FLAG 959 
143¢ 0000 143D 896 TEMADR DC AL2 (*-*) @ OF DDDF FIELD 959 
143E 2BCD 143F 897 Dc AL2 (DDCFSB) @ OF DDCF FIELD ats 
1440 38 OF 2aC1 eae DCPCN2 TBN CFIGFG,X*OF* IS THIS $CONFIG OPTION? t 860 RERRRERESEREEERERESEEEESEESEEEERERESEEEEEEEEEEEESEEERE SESE EEETEEE EE EEE ES 
1444 CO 10 1F00 900 BT § CPRTRN IF SO RETURN TO IT 961 * THIS SECTION HANDLES ERRORS IY CARDS 
1448 38 FO 2AB3 °C4 TBH DCPFG, X' FO! IF FROM SREP, THEN GO TO *RTRN3* 962 KEEREEERKEREEEERREREEEESEEEERL EEKERES EER EEEEEEREEEEEEREE EEEEE ESE EEE ES 
144C CO 90 1707 902 BF RTRN3ZA 963 . 
1450 CO 87 0E32 903 B LOOP1 a Ww 963 
904 * aon: RETUBE TOUREADING TARDE .  -quy9 G0! 87° 0208 964 INVHDR B PRINT PRINT ‘INVALID HEADER CaRD* 
905 ‘ - 14FD C6 14FD 965 Dc XL1°C6* FLAG 
905 14PE 32 14PE 966 pc AL1(ERR3-ERR3B) LENGTH 
905 ,  14FP 2D6A 1500 967 DC AL2 (ERR3) ADDRESS 
905 1501 FRE3 1502 968 pc XL2¢ FFE3* ID 
G06 FERRERS EREES EERE SSD EEEEKERE EEE ES EEEEEEEEEEESEEEEEREREEEEES EEE KEES EES 1503 CO 87 0222 969 B HALT TO DCP HLT RT 
907 * THIS SECTION TESTS TO SEE IF THIS IS +, 1507 FFE3 1508 970 DC. Ebert tres: x 
908 * 2 DCP DECK, AKD IF IT IS, IT PREPARES *' 1509 CO 87 OBCB Bes B EDITAA aerur 
9 * . * ; 
390 * BEG cota * 150D CO 87 O21A 973 INVSCD B PRINT PRINT "INVALID SYS TST HDR CARD* 
911 FREER ESEESE SEEKS EEEEEREEER ES EE AEE SEES TREE EEE EE EEEE ES EREERES SEER ES 15114 C6 1517 974 DC XL1°C6% Pua 
912 1512 1F 1512 975 pc AL1 (ERR4~ERR4B) LENGTH 
912 . 1513 2F69 1514 976 pc AL2 (ERRA) ADDRESS 
1454 8D 02 3E 2B2F 913 TSTDCP CLC 62(3,XR2) ,DCPID Is IT A DCP MODULE? "1515 PRES 1516 947 DC «XL2° FFEG* RES 
DATE  29AUG75 22DEC75 30APR76 25HAR77 PROG ID DD6-3 DATE 290675 22DEC75 = 30APR76 258AR77 hea oars 
EC NO. 827804 827836 571872 571989 PAGE g EC NO. 827804 827836 571872 571989 fc ee a 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


DD63 
ERR LOC 


1517 
151B 
151D 


1521 
1525 
1526 
1527 
1529 
152B 


152F 
1533 


1535 
1539 
153D 


1541 
1546 


154¢c 
1550 
1551 
1552 
1554 
1556 
155A 


155¢c 
1562 


1566 
156A 
156E 


1572 
1577 


157D 
1581 
1582 
1583 
1585 
1587 
158B 


158D 
1591 
1595 


1599 
159D 
159E 
IS9F 
15at 


15a3 
15a7 


1549 


DATE 
EC NO. 


3340 CE DISK EDITOR 


OBJECT CODE 


co 87 
FFE4 
co 87 


co 87 
C2 

22 
2ECD 
FFES 
CO 87 


co 87 
FFE5 


00 
81 
87 


3D 
co 
co 


03 
03 


2c 
oc 
co 87 
C6 

4a 
2F17 
FFE6 
co 87 
FFE6 


0D 03 
co 81 


3D 00 
co 81 
co 87 


2c 
oc 


03 
03 
cQ 87 
C6 

33 
2FUA 
FFE7 
cO 87 
FFE? 


3D 00 
co 81 
cQ 87 
cO 87 
40 
2E09 
PREA 


cO 87 
FFEA 


co 87 


29AUG7 
827804 


0222 
OBCB 


0218 


2A8A 
0222 
2ABD 


OE32 
117F 


2EF4 SP 
2F09 2B1E 


O21A 


0222 


2B1E 2AE7 
0D23 
2ABD 


OE32 
117F 


2F34 5B 
2F4A 2ADD 


O2TA 


0222 


2ABD 
OE32 
T17F 


O21A 


0222 


OBCB 


ADDR 


151¢ 


1525 


1526 


1528 
152A 


1534 


1550 
1551 
1553 
1555 


155B 


1581 
1582 
1584 
1586 


158C 


159D 
159E 
15A0 
15a2 


15A8 


5 22DEC75 


827836 


MOD 12 


STMT SOURCE STATEMENT 


978 B 
979 oc 
980 5B 
$81 
981 
982 INVCD B 
983 ac 
984 nc 
985 pe 
986 bc 
987 5B 
388 
989 B 
990 pc 
991 
992 CLI 
993 BE 
994 B 
995 
995 
996 INVSEQ MVC 
997 ave 
398 
999 B 
1000 ' pC 
1001 pc 
1002 pc 
1003 BC 
1004 B 
1005 Bac 
1006 
1007 cL¢c 
1008 BE 
1009 
1010 cLi 
1011 BE 
1012 B 
1013 
1013 
1013 
1013 
1014 INVID #¥C 
1045 AYC 
1016 
1017 B 
1018 pe 
1019 pc 
1020 bc 
1021 DC 
1022 B 
1023 pc 
1024 
1025 cxLI 
1026 BE 
1027 B 
1028 
1028 
1029 DCPERR B 
1030 pc 
1031 BC 
1032 BC 
1033 oc 
1034 
1035 B 
1036 be 
1037 
1038 B 
1039 
3OAPR76 258aR77 
571872 571989 


HALT 
XL2* FFE! 
EDITAA 


PRINT 
XL1°C2¢ 
AL1(ERRS~ERR5B) 
AL2 (ERR5) 
XL2°FFES! 
PRINT2 


HALT 
XL2*FFES* 


CPUFG,0 
LOOP1 
GETS 


ERRGA(4) ,95(, XR2) 
ERR6C (4) , SEQCTR 


PRINT 

XL1*c68 

AL1 (ERR6-ERRGB) 
AL2 (ERR6) 

XL2* FFE6* 

HALT 

XL2°FFE6* 


SEQCTR(4&) ,DO 
GET2 


CPureé,o0 
LOOP1 
GETS 


ERR7A(4&) ,91(,XR2) 
ERR7 (4) , SAVEID 


PRINT 
XL1*C6# 

AL 1 (ERR7-ERR7B) 
AL2 (ERR7) 
XL2*PFE7* 

HALT 

XL2*FFE7* 


CPUFG,0 
LOOPt 
GETS 


PRINT 
XL1°C6* 
AL1(ERB10-ERR10B) 
AL2 (ERR10) 
XL2'*FFEA® 


SALT 
XZL2‘FPEA‘* 


EDITAA 





PART NO. 
PAGE 9 
DD63 
“ERR Loc 
TO DCP HALT 15aD 
FLAG 15B1 
GET ANOTHER RECORD 15B2 
15B3 
15B5 
PRINT* INVALID CARD ...* 
FLAG 15B7 
LENGTH 
ADDRESS 15BB 
ID 15BFP 
PRINT CARD IMAGE 15C3 
15C7 
HALT "ES! 15C9 
IF NOT CPU OR MEMORY MODULE - 
GO TO LOOP1 
GO READ THE CARD 15CD 
15D1 
15D2 
MOVE EXPECTED ID INTO MESSAGE 15D3 
MOVE RECEIVED ID INTO STORAGE aeos 
PRINT *INVALID SEQUENCE? 15DB 
FLAG 15DD 
LENGTH 
ADDRESS 
ID 
Is SEQ # SUPPOSED TO BE ZERO 
IF NOT CPU OR MEMORY MODULE - 
GO TO LOOP1 
GO READ THE CARD 
MO"E RECEIVED ID 
MOVE EXPECTED ID ; 
PRINT "INVALID ID! 
FLAG 
LENGTH 15E1 
ADDRESS 15E5 
ID 15E9 
15EP 
15F4 
IF NOT CPU OR MEMORY MOLULE - ‘  15F9 
GO TO LOOP1 15FD 
GO READ THE CARD 15FE 
15 FF 
PRINT ‘MISSING UDT AND/OR UDT 1601 
RECORD® 1604 
LENGTH 1608 
MESSAGE ADDRESS 
ID 
TO DCP HALT RTN > 160B 
ID 160F 
RETURN TO READ CONTROL CARD 
PROG ID DD6-3 DATE 
EC NO. 


PAGE 9 


3340 CE DISK EDIT 


OR 


OBJECT CODE ADDR 
CO 87 O2TA 
C2 15B1 
2E 15B2 
2E37 15B4 
FFREB 15B6 
CO 87 2A8A 
38 OF 2AC1 
CO 10 IDBD 
CO 87 0222 
FFEB 15C8 
CO 87 0EF32 
CO 87 O21A 
cé6 15D1 
2E 15D2 
2F97 15D4 
PFED 15D6 
CO 87 0222 
FFED 15Dc 
cO 87 15D7 

1521 
3B OF 2C03 
3C 60 3108 
OC 06 3103 30FC 
1C 14 3123 YE 
1C 1F 3148 BF 
CO 87 O2TA 
02 15FD 
4aF 15SPE 
314B 1600 
BD 6B 07 
CO 01 OBCB 
E2 02 04 

160B 
3A OF 2C03 
2C 02 2ADC 06 
29AUG75 22DEC75 
827804 827836 


4248217 TEM MAINTENANCE DIAGNOSTIC PROGRAM 


MOD 12 


STAT SOURCE STATEMENT 


1040 CHNERR B 


1041 
1042 
1043 
1044 
1045 
1046 
1087 
1048 
1049 
1050 
1051 
1052 
1053 
1053 
1053 
1053 
1054 
1055 
1056 
105/ 
1058 
1059 
1060 
1061 
1062 
1062 
1062 
1062 
1062 
1062 
1062 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1089 
1090 
1094 
1092 
1093 
1093 
1093 


SCNERR 


PRINT 

XLI*C2° 
AL1(ERREB-ERREBB) 
AL2 (ERREB) 

XL2" FFEB* 


PRINT2 


CPIGFG, X'OF* 
CFRT 

HALT 

XL2* FFEB* 
LOOP1 


PRINT 

XL1°C6* 
AL1(SCERE-SCERRB) 
AL2 (SCERR) 
X12°FFED* 

HALT 

XL2°* FFED* 

*~6 


8248217 
SA 


PART NO. 
PAGE 


PRINT *ERROR IN CHAIN RECORD! 
FLAG 

LENGTH 

MESSAGE ADDRESS 

ID 


PRINT CARD IMAGE 


RETURN TO CONFIGURE PROGRAS? 
IF SO, RETURN 

OTHERWISE HALT AND TERMINATE 
HALT ID 

TERSINATE SECTION 


*SCAN ERROR- RETRY® 


PRINT 


HALT =~ ED 


SESEESEESEESESESSESEKESESEEEESSEEERESEESESEESEEEEEESEKEESEEEEE SEEDS EEEEEKEEEE 
SHEETS ERESESSES SESE SEEESEESEEEE CERES SEKEESEEEEEREERER ESSER EEEKEEESEEERESE 


*“* 
*& 
*“% 
“x 
xe 


SDEL 


THIS PART OF THE PROGRAM DELETES PROGRAMS ON THE CE DATA 


BODULE . 


ee 
*% 
** 
*% 
+** 


EKEESEAEEEREEESESRSEEEEEKEEERESEEEEEESEEKEEEKESEKEEEESEREEEREEEKEEEREESE 
EKKESEKESESESSEREEESSEE KEKE TEESE SESEREEESESEEES EEE S EEEKKEESEEEECEEESEEEKEKEEKESR 


DEL1 


DEL2 


DELPGN 


30APR76 
571872 


EQU 


SBF 
MVI 
MYC 
BYC 
MVC 


Dc 
bc 
cLI 


BNE 
LA 


EQU 
SBN 
AYC 


* 


DELFG,xX*OF®* 
ADMSG¢11,C*-* 
ADMSG¢6 (7) -PGNDEL 


ADMSG¢38 (21), 158(,XR1) 
ADMSG#78 (32) ,191(,XR1) 


PRINT 

XL1°02° 

AL1 (ADSSGE-ADSSG) 
AL2 (ADHSGE-1) 


7(,XR2),C*,* 
EDITAA 
4(,XR2) ,XRz 


* 
DELFG,X‘0OF? 


SAVEID-1(3) -6(,XR2} 


25M8AR77 
571989 


ENTRY POINT FOR $DEL 


RESET $DEL FLAG 
SET UP MESSAGE TO PRINT 


PRINT "XXX DELETED® 
FLAG 
LENGTH 


MESSAGE ADDRESS 


IS THERE ANOTHER PRGM TO DELETE? 
IP Not, THEN QUIT 
INCREMENT XR2 TO HANDLE NEXT PGA 


SET DELETE FLAG 
SAVE ID OF PROGRAM TO BE DELETED 


DD6-3 
9A 


PROG ID 
PAGE 








IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248217 IBN MAINTENANCE DIAGNOSTIC PROGRAH PART NO. 6288217 
PAGE 10 PAGE 10A 
DD63 3340 CE DISK EDITOR MOD 12 DD63 3340 CE DISK EDITOR MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ‘ERR LOC OBJECT CODE ADDR STHT SOURCE STATESERT 
71094 PERCE EREEESEREEEEEE SEER EERE RERERERERES EEE SEREE EES EOEEREEREEEEER EEE EE EE REE : 1157 
1095 FOEECE SHEER EEE SEES EEEEEEEEE SEES EEESERESEEEKEGEREES EERE ESEEESEEREERERER ENE ES : 1157 
1096 ** SREP as 16B2 1C 04 20C7 OF 1158 RPCNT3 BYC PNAS(5),14(,XR1)} SET UP TWO DDCF PIELDS TO TRANSFER 
1097 «= *, 16B7 0C 04 2BB8 226F 1159 MYC =6NAS (5) , FASINB#8 
1098 ** THIS PART OF THE PROGRAM ADDS REP, SSW, AND COMMENT RECORDS ¥*# 16BD OF 01 2BE2 0A03 17160 SLC =SECT#(2) ,ONE 
1099 #* TO ANY PROGRAM ALREADY ON THE 3340 CE DATA NODULE. +s 1161 
1100 #« *, 16C3 CO 87 20C8 1162 B RWRTW MOVE PROGRAE TO EXD OF PACK 
1101 SEESEMEREEERE SEE EE EERE EEEREREEES REESE EERERSEREEEEEEESESEREREEEEKESE DER 4163 
1102 FERELEREREREREEEEEEEEE EEE ERE EERE ESTERS REESE ESESESEES TESS EREEEEERE ERE RE 1163 
1103 1163 
1103 1163 
1103 1164 SETEREKITLEEH EASES EEREEEEETEE SEER ERESEERE EES ESEEEEREEES ERKEEEKEAS ERERKEE 
1103 1165 * HANDLE REP ENTRIES * 
16 14 1104 REPPGS EQU * 7166 SESECEHESERES EM EEEEESE ESSE SERERERER ERE EAES ESL EEREERAEEEEESEECEREOEEREER EE 
1614 3C 00 2AB1 1105 SVI -LWRT,O ZERO LAST WRITE FLAG 1167 
1618 3A OF 2ACO 1106 SBN ADDFLG,xX*OF® SET FLAG TO RECORD CARD IMAGE IN T167 
1107 * DISK FiELD 16C7 3C 00 2BEO 1168 RPCNTY BVI WRT#,O SET NN PIELD TO 0 
161¢ C2 01 4800 1108 LA DDDF,XR1 LOAD XR1 1SCB C2 017 4800 1169 LA DDDF,XR1 LOAD ZR1 
1620 2C 06 346E 06 1109 NVC  REPWHO(7) ,6 (,XR2) AND SAVE AREA 1170 
1625 2C 06 3657 06 1110 MYC REPWH1(7),6(,XR2) MOVE IN REP PROGRAM ID : 16CF 1171 RTRNZ EQU * 
162A 2C 02 1669 06 17117 SVC =PRGID (3) ,6 (,XR2) MOVE PROGRAM ID INTO DISPLAY AREA 16CF CO 87 2A42 1172 B PRINT DISPLAY MESSAGE ‘ENTER REPS* 
162F 38 OF 2C03 1112 TBN DELFG,X*OF® IN SDEL MODE? 16D3 01 16D3 1173 DC XL1°0O18 FLAG 
1633 CO 10 17BB 1113 BT RPCNT7 IPF SO, THEN SKIP 16D4 26 T6D4 1174 DC AL1 (MENUS 1~BENGSB) LENGTH 
1114 16D5 346E 16D6 1175 DC AL2 (SENU5 1) MESSAGE ADDRESS 
1637 8D 02 06 2B2F 1115 CLC 6(3,XR2) ,DCPID IS ID *PRF*? 16D7 CO 87 2a82 1176 B PRINTI DISPLAY HESSAGE *ENTER REPS* 
163C F2 01 23 1116 ONE RPCHTI IF NOT SKIP NEXT SECTION T6DB 01 16DB 1177 DC XL1°O18 FLAG 
1117 16DC 28 16DC 1178 pc AL1(MENUS3-BHENUSD) LENGTH 
163F 0C 04 2BBE 2B4uC 1118 HYC DDCFMN(5),C3H164 SET CONTROL PIELD FOR DCP WTOC 16DD 3496 16DE 1179 BC AL2 (MENUS 3) BESSAGE ADDRESS 
1645 3C 00 2Bc2 1119 MVI =‘ DDCF,0 FOR 1 RECORD 16DF CO 87 2k42 1180 B PRINT? DISELAY MESSAGE ‘ENTER REPst 
1649 CO 87 239C 1120 B WINRW READ DCP vTOC 16E3 01 16E3 118% DC XL17°O1! FLAG 
164D 80 14ND 1121 pc XL1*20¢ READ FLAG 16E4 28 16E4 1182 DC AL1 (HERUS&-MENUSE) LENGTH 
164E 800 164F 1122 pe AL2 (DDDF) 16ES5 34BzE 16E6 1183 DC AL2 (KENUS4) MESSAGE ADDRESS 
1650 2BB9 1651 1123 Dc AL2 (DDCFB) 16E7 CO 87 2A42 1184 B PRINT1 DISPLAY HESSAGE ‘ENTER REPS®* 
1124 16EB 07 16EB 1185 pc XL1°0%8 FLAG 
1652 4D 02 06 2B2F 1125 CLC 6(3,XR1),DCPID IS DCP ON THIS DATA MODULE? 1GEC 28 16EC 1186 DC AL? (MENUSS-MENUSF} LENGTH 
1657 CO 01 18206 7126 BNE PGNTF IF NOT PRIRT SO. T6ED 34586 16EE 1187 pc AL2 (MENU55) MESSAGE ADDRESS 
165B 3C OF 2AB3 4127 NVI DCPFG,X*"OFt SET DCP FLAG : 16EF CO 87 2A42 1188 B PRINT1 DISPLAY MESSAGE *ENTFR REPS* 
165F F2 87 10 1128 J RPCNT2 , 16F3 01 16F3 1189 Dc XLU¢Q18 FLAG 
1129 16F4 28 16F4 1190 pc AL1 (BENUS6-MENUSG) LENGTH 
1662 CO 87 227~; 1130 RPCNT1 B SCRVYTC SCAN VTOC FOR PROGRAM TO REP } T6F5 3508 1GFé 1191 pc AL2 (KENUS6) MESSAGE ADDRESS 
1666 00 1666 1131 FLAG DC IL1*08 BYTE TO TELL RESULTS OF SCAN 16F7 CO 87 2A62 1192 B PRINT1 DISPLAY MESSAGE "ENTER REPS* 
1667 D7C9C4 1669 1132 PRGID pC CL3*PIp® PROGRAM ID 16FB 01 16FB 1193 DC XLT*O078 FLAG 
1133 . 16FC 28 16FC 1194 pc AL1 (MENUS 7~MENU5H) LENGTH 
166A 3D 00 1666 1134 CLI FLAG,0 IF SCAN HIT, DON'T TAKE BRAKCH ; 16FD 3536 16FE 1195 pc AL2 (MENU57) MESSAGE ADDRESS 
166E CO 81 1820 1135 BE PGNTF 16FF CO 87 2A42. 1196 B PRINT! DISPLAY MESSAGE ‘ENTER REPS* 
1136 ; 41703 06 1703 1197 DC XL1°068 FLAG 
1672 1C SF OA74 DF 1137 RPCNT2 MVC SAVID(96),223(,XR1} SAVE HEADER CARD IMAGE } 1704 28 1704 1198 DC AL1 (MENOSS8~-BENOUSI) LENGTH 
1677 41C 1C 2BB2 ic 1138 VC = VTIN(29) ,28(,XR1) ; 1705 3558 1706 1199 DC AL2 (MENUS 8) SESSAGE ADDRESS 
167¢ OC 01 2BE2 2BAB 1159 MVC) = SECT # (2) , VTIMB+21 STOR # OF SECTORS } 1200 
1682 3) OF 2AB3 1140 CLI DCFFG,X*OP® IS DCP FLAG SET? 1707 CO 87 2749 1201 RTRN3A B RECORD READ A RECORD 
1686 F2 01 29 1141 JNE RPCNT3 SKIP NEXT SECTON IF IT IS NOT 1202 ‘ 
1142 170B BD £7 00 12¢3 CLI O0(,XR2),C*x¢ HAS AN X BEEN ENTERED? 
1689 OC 01 20BB 2BE2 1143 HVC) 8=—s TEMP1(2) ,SECT¢ SET NUMBER OF REC*DS TO SKIP 170E CO 81 OBCB 1204 BE EDITAA IF SO, DON'T REP PROGRAM 
168P OF 01 20BB 0A03 1744 SLC TEMP1(2) ,ONE ADJUST IT 1205 
1695 OC 04 2BDC 2B56 1145 MVC) = DDC FT # (5) ,C3HO PUT CONTROL FIELD TO DCP ADDRESS ; 1712 BD C5 00 1206 CLI 0(,XR2),C*'E* IS IT AN END RECORD? 
169B 3C 00 2BE0 1146 BVI DDCFT,0 1715 F2 81 5E 1207 JE ENDRP 
1147 1718 BD 5C 00 1208 CLI 0O(,XR2),C*#? IS if A COMMENT CARD? 
169F CO 87 2193 1148 LOCP6 B STPFLD INCREMENT CONTROL FIELD } 1718 F2 81 3E 1209 JE CONTF3 
16A3 2BDC 16A4 1149 pe AL2 (DDCFTA#) CONTROL FIELD ADDRESS : 171E 8D 03 03 2B0D 1210 CLC = 3{4,XR2),SSWID IS IT A SSW CARD? 
16A5 OF Of 20BB 0a03 1150 SLC TENP1(2),ONE DECRENENT COUNTER 1723 F2 01 OF 1211 JNE SSW JUMP IF NOT 
16AB CO Of 169F 1451 BNZ LOOP6 IF NOT ZERO DO IT AGAIN 1726 38 OF 2AB3 1212 TBN DCPFG,X*OF* IF REP-ING DCP, THEN ADD IT TO 
16AF F2 87 15 1152 J RPCNTE 172A F2 90 2F 1213 JF CONTF3 SPECIAL RECORD 
1152 172D 3C 04 2BD2 1214 MV1 DDCFSH,4 
1153 ' 1731 CO 87 131D 1215 B DCPCD1¢8 
1153 ; 1216 
1154 SERRE REEEEEREEEEESESEEES EEE SEES ES EKEEESESKARER EEREREEEREE REREREEE REED 1755 BD D9 00 1217 NSSHW CLI 0O(,3R2),C*R" IS IT A REP CARD? 
1155 * MOVE PROGRAM TO END OF PACK AND STRIP OFF END CARD *: 1738 CO 01 1850 1218 BNE InvcD1 pont ret SEP CRED AG tbat CRED 
1156 FEO OR eee EESEEEE RES EREE RE EERE EEEEERESERERERRER EEESEERES EEKERERERE RRR RED 173C BD 40 01 1219 cLI ¥(.XR2),C*® ° COLUBN 2 BLANK? 
DATE 29A0G75 22DEC75 30APR76 25MAR77 PROG ID Dp6-3 DATE 29A0G75 22DEC75 3OAPRTE 258AR77 cece tees 
EC NO. 827804 827836 571872 571989 PAGE 10 EC NO. 827804 827836 571872 571989 meee en 


IBM MAINTENANCE DIAGNOSTIC PROGRAS 


DD63 
ERR LOC 


173F 
1743 
1746 


174A 
174d 
1751 
1754 


1758 
175¢C 


1760 
1766 
176A 
T7I6E 
176F 
4770 
4772 


1776 
1779 
177E 


1784 
1788 
1789 
1788 


178D 
1791 


1793 
1797 
179A 
I79E 
I7FA2 


T7AS 
17AB 
1731 
17B7 


17BB 
17C1 
17¢5 
17¢6 
17¢9 
17CF 
17D3 
1706 


17DC 
17£E0 
T7E4 
V7E5 
17E7 


1TE9 
I7WEP 


DATE 
EC NO. 


3340 CE DISK EDITOR 


OBJECT CODE 


co 
BD 
co 


7c 
4c 
OE 


co 
40 


01 
40 
01 


40 
81 
40 
81 


87 
SF 


00 
01 
87 


cs 
VF 
01 


87 


4800 
2BD7 


co 


87 


2BDC 


3D 
F2 
3c 
3c 
F2 


OE 
0c 
oc 
co 


oc 
co 
00 


404040 


0c 
3D 
F2 
oc 


OF 
01 
00 
00 
87 


01 
04 
04 
87 


G2 
87 


04 
00 
81 
02 


1850 
06 
1850 


02 
1850 
07 
1850 


202E 
5F SF 


2EEO 
2B8A 
2A42 


1707 


00 


0A03 


FF 3739 


2BAB 


233C 


219B 


2AB3 
OB 
2BC2 
2AB3 
58 


2272 
2BA4 
226F 
2242 


17C8 
2278 


3109 
17C5 
GA 

8806 


2BC2 
239C 


29A0G75 


827804 


2BEO 


OAO3 
226F 
2BDC 


346E 


4808 


2B14 


176E 
176P 
1771 


1788 
178A 
178C 


1792 


17C5 
17C8 


T7ES 
17E6 
17E8 


22DEC75 


827836 


PART NO. 
PAGE 11 
HOD 12 DD63 

ADDR STMT SOURCE STATEMENT ERR LOC 

1220 BNE INVCD1 IF NOT, GO TO INVALID CARD 

1221 CLI 6(,XR2),C* * COLUMN 6 BLANK? W7FI1 

1222 BNE INVCD1 IF NOT GO TO INVALID CARD V7F5 

1223 17F6 

1224 CLI 2¢eXR2) -C* § IF COL'S. 3 OR 8 ARE BLANK, 

1225 BE INVCD1 THEN If IS AN INVALID CARD 17F9 

1226 CLI 7(,XR2),c* § 

“1227 BE Invcep1 17FD 

1228 1801 

1229 B CONVERT CONVERT REP CARD TO TEXT CARD 1807 

1230 CORTF3 HVC 95(96,XR1) -95(,XR2) MOVE IN CARD ISAGE 180D 

1231 

1232 ALC BRT# (1) ,ONE INCREMENT WRITE# 1813 

1233 A X256,XR1 INCREMENT TO NEXT REC*®D 1817 

1234 B PRINT? PRINT MSG 1818 

1235 Dc XL1°06¢ FLAG W81A 

1236 pc AL1(REPWHI-MENUSC) LENGTH 

1237 Dc AL2 (REPWH 1} MSG "ENTER NEXT REP* 181C 

1238 B RTRN3ZA READ ANOTHER RECORD ’ 

1239 

1239 

1239 ; 

1240 EXEEKEEKEREREEKESESE EES EREREEKEERHEEKEEEREREKERRKAEKEKOERESEAEAEHKSESESER EKER ESE 

1247 * PUT IN END CARD AND UPDATE VTOC 

1242 EERKKEREEREREESESESERERER EEE CESSES ERKEKSEEKREEAKERE KEK EKER SE EEESELERSESHERHEEE | 

1243 

1243 

1244 ENDRP MVI 0(,XR1) -C®E* CREATE END RECORD 1820 

1245 MYC MSGBGN¢LENGTH-ENDROU (LEPGTH~ENDRCU,XR1) ~LENGTH-1 1826 

1246 ALC VTIMB+21(2) gWRT# UPDATE # OF VTOC ENTRIES 182A 

1247 182B 

1248 « MOVE IN END CARD ROUTINE FOR DCE 182C 

1249 B WINRW WRITE END RECORD ON DISK 

1250 pc XL1*408 WRITE FLAG 182E 

1251 pc AL2 (DDDF} 1832 

1252 pc AL2 (DDCFTB) 

1253 1836 

1254 B STPFLD INCREMENT WRITE DDCF 

1255 pc AL2 (DDCFTS) 

1256 ; 183A 

1257 CLI DCPFG,X* OF* IS DCP FLAG SET? 183E 

1258 JNE RPCNTS JOMP IF NOT 1842 

1259 MVI DDcF,0 : SET TO WRITE ONE RECORD 1846 

1260 MVI DCP#G,0 RESET DCP FLAG 184C 

1261 J RPCNT6 GO WRITE ¥TOC RECORD 

1262 1850 

1263 RPCNTS ALC FASINF(2),ONE : 1854 

1264 KVC  «©VTIMB+14 (5), FASINB¢8 UPDATE ADDRESS GF FIRST ENTRY 1855 

1265 HVC =PASINBt8 (5) ,DUCFTH OPDATE NEXT AVAIL ADDR IN FAS 1856 

1266 B ®RFAS WRITE FAS SECTOR 

1267 1858 

1268 RPCNT7 MYC PRGID1 (3) .REPWHO SCAN FOR OLD VTOC ENTRY \ 185C 

1269 B SCHYTC TO SCAN VTOC SUBRT 

1270 FLAG? DC IL1*o° 185FP 

1271 PRGID1 DC . CL3* § ID OF PROGRAM TO SCAN FOR : 1863 

1272 BHYC ADMSG412 (5), DDDF+8 MOVE IN ID AND LEVEL INTO PRINT FLD ‘ 1864 

1273 cLI FLAG1,0 IF FLAG =O THFRN PROGRAM NOT FOUND 1865 

1274 JE PGNTF ‘ 1867 

1275 NYC DDDF+*6 (3) , OLD OVERWRITE VTOC ENTRY WITH *OLDt : 

1276 1869 

1277 MVI DDCF,0 ZERO NN FIELD 

1278 B WINRW WRITE OLD ¥TOC ENTRY 186D 

1279 Dc XL7*40¢ WRITE FLAG 1871 

1280 pc AL2(DDD¥} @ OF DDDF ! 

Pe DC AL2 (DDCFB) @ OF DDCF 1873 

1282 

1283 TBN DELFG, xX‘ OF® IS THIS $DEL PROGRAM? i 

1284 BT DEL1 IF SO, RETURN TO DELETE OPTION 

30APR76 25MAR77 PROG ID DD6~-3 DATE 

571872 571989 PAGE 


11. +=§EC NO. 


3340 CE DISK EDITOR 


OBJECT CODE 


cO 87 227A 
00 

5c5C5¢ 

3C 01 2BC2 
0B78 
Q9OFP 
481C 
4BDF 


co 
oc 
oc 
oc 


“SFP 
2BB2 
OAT74 
co 239C 
40 

4800 

2BB9 


cO 87 OBCB 


Oc 02 1669 
co 87 
06 
17 


31C6 


31BA 
O2TA 


OF 
10 


38 
co 


2c03 
1601 
co 


87 OBCB 


00 
01 
87 
04 
87 


3c 
C2 
co 
oc 
co 


2BEO 
4800 
OBBA 
2BDC 
1776 


2BE7 


CO 87 2A42 
06 
26 


2EAB 


38 FO 
F2 10 


27P5 
14 
CO 87 O21A 
C2 

22 
2ECD 
PPES 
CO 87 2A8A 
co 87 
FFES 


0222 


cO 87 7707 


29AUG75 


827804 827836 


4248217 IBM MAINTENANCE DIAGNOSTIC PROGREE 


HOD 12 


ADDR STMT SOURCE STATEMENT 


W7F5 
17F8 


1817 
1819 
181B 


182A 
182B 
182D 


1854 
1855 
1857 


1863 
1864 
3866 
1868 


1872 


22DEC75 


1285 

1286 B 
1287 pc 
1288 bc 
1289 * 

1290 MVI 
1291 

1292 RPCNT6 B 
1293 aYC 
1294 nVC 
4295 BYC 
1296 

1297 B 
1298 pc 
1299 pec 
1300 pc 
1301 

1302 B 
1303 

1303 

1303 

1303 

1304 

1305 

1306 

1307 

1307 

1308 PGNTF SVC 
1309 B 
1310 pc 
4311 DC 
1312 DC 
13143 

T3714 TBN 
1315 BT 
1316 © 

1317 5 
1318 

1318 

1319 XHANDL SVI 
1320 LA 
1321 B 
1322 BY¥C 
1323 B 
1324 

1325 INVCD1 B 
1326 DC 
1327 bc 
1328 bc 
1329 

1330 TBN 
1331 JT 
1332 

1333 B 
1334 pc 
1335 BC 
1336 pc 
1337 pc 
1338 

1339 B 
1340 

1341 B 
134% pc 
1343 

1344 BB1 B 
30APR76 255AR77 
571872 571989 


SCHYTC 
XL1°0° 
CL3!ees 
DDCF, 1 


SETTO 


DDDF 14255 (256) , DDDF+#255 


DDDF#28 (29). VTIS 


DDDF+223 (96) ,SAVID 


WINRW 
XL1*40* 

AL2 (DDDF) 
AL2 (DDCFB) 


EDITAA 


4248217 
11A 


PERT WO. 
PAGE 


GO TO END CF ¥TOC RECORD 

FLAG (NOT USED) 

SPECIAL CHARACTER SIGNALLING GO TO 
END OF ¥WTOC 

SET NN FIELD TO WRITE TWO REC*DS 


SET FIELD TO x*00* 


ZERO OUT SECOND WRITE FIELD 
SET UP VTOC RECORD 


WRITE NEH VTOC 
WRITE PFLAG 


RETURN TO MAIN OPTION MENU | 


ERKKKHESSEREEKESAEKSHEKESEKASESTESSESEARESESKKKEKEKSSEAESSKEESEEREKEREEKESRKE SLE 


* HANDLE PROGRAM NOT FOUND, X ENTRY, AND INVALID CARD * 
ERKEKAEEES EKER SEEEEAEAEEEEE SES HERESSERERESERESEEES SESE EEKEEEESHESAEREESESD ES 


HSGO 2-12 (3) ,~ PRGID 
PRINT 

XL1°C6* 

IL1*23° 

AL2 (HSG02) 


DELFG, xX' OF* 
DEL2 


EDITAA 


WRT#,0 
DDDF,XR1 

SETO 
DDCPTM (5) -XLOC 
ENDRP 


PRIKT1 

XL1°06" 

AL1 (ERMS7-ERMS7B) 
AL2 (ERKS7} 


USECRT, X'FOQ* 
BBI 


PRINT 

XL1°C2¢ 
AL1(ERR5—ERRSB} 
AL2 (ERRS) 
XL2*FFES? 


PRINT2 


HALT 
XL2°* FFES* 


RTRH3A 


MOVE IN JD OF PROGRAM NOT FOUND 
PRINT ‘PROGRAM NOT FOUND* 

FLAG 

LENGTH 


IS IT IN THE DELETE MODE? 
IF YES, THEN CHECK IF ANOTHER 
PROGRAM TO DELETE 


ONLY WRITE THE END CARD 

LOAD XR1 

SET DDDF TO 0 

LOAD DDCF FIELD WITH NEXT SECTOR 


DISPLAY INVALID CARD ENTERED 
FLAG 
MESSAGE LENGTH 


IF 5471 IN USE THEN DON'T PRINT 
BOSSAGE 


PRINT INVALID CARD IX SREP 
FLAG 

LERGTH 

MESSAGE ADDRESS 

ID 


PRINT RECORD IHAGE 


TO DCP HALT RTN 
ID 


GO READ A RECORD 


DD6-3 
TIA 


PROG ID 
PAGE 


IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4242217 2BM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248217 
PAGE 12 PASE 12, 
DD63 3340 CE DISK EDITOR MOD 12 DD63 3340 CE DISK EDITOR MOD 12 
ERR LOC OBJECT COLL ADDR STHT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STAT SOURCE STALEBERT 
F346 KEEREREEERELEREREEETEREREREEEAKEE HERE SEES EREREEEEEREK EERE SCERERSEREKRSE SSE 193B 3c 00 2397 7410 HYI ~ OUTREC¢2,0 ZERO OUT CYL SEC OF ALT TRACK FLD 
VIG] HERA EKEREEEEEREREREERAASEREEEEARKERTREKKEREEEEE EEE AT SEREKEEEEE KEKE ES KEE 1414 * 
1348 #* $pOP oe 1412 # SEE IF CYLINDER 0 HEAD 2 IS DEFECTIVE: SEE WHAT 
1349 ** THIS OPTION DUP*S THE CONTENTS OF A 3340 CE DATA *% 1413 * IS IN OUTREC AFTER READ OF 14 RECORD 
71350 ** MODULE ONTO ANOTHER INITIALIZED DATA MODULE. ee Wig + 
4351 ** #% 193F OC 04 2BBE 2B6F 1415 MVC) =©DDCFM(5) ,COH2R1 
1352 SHEER EEEEEEEEEEESE ERE REEREREE LEER ESERR ERAS THERESE REKEE KEKE RREREKEES EE EE EK 1945 3C 00 2BC2 1416 BVI DDCF,0 
1353 SFECEREKEEEESKERESEEER EE SESE EKEEEEEEEEREREEERERESE EERE REKERRESE KER EKER ES 1949 CO 87 239C Tay B BINRG 
7354 194D 80 194D 1418 pc XL1°80# 
1354 194E 4800 194P 1419 DC AL2 (DDDF) 
1877 3€ 02 2BFD 1355 DSKDUP AVI ICTR,2 RESET COUNTER 1950 2BB9 19517 1420 pc AL2 (DDCFB) 
1356 1421 @ 
187B 0C 09 2C01 2C02 1357 LOOP10 BYC FRDRV€(1) -TODRV# MOVE CONTENTS TO CORRECT PLACE t422 * NOW READ IF THE RECORD TO BE HODIFIED 
1881 3c 00 2c02 1358 NVI TODRV#,0 CLEAR FIELD 1423 * 
1885 BD C& 05 1359 CLI 5(,XR2},C°D® IS FIRST CHARACTER A D? 1952 OC 04 2BBE 2B6A 1424 HVC = DDC FE (5) ,COHO27 SET UP ADDRESS TO READ 
1888 CO 01 19B5 1360 BNE  DUPERR 1958 3C 00 2BC2 1425 HVI DpDCF,0 READ 1 RECORD 
188C BD F1 06 1361 CLI 6(,XR2),C*1° IS IT DRIVE 1? 195C CO 87 239C 1426 B WINRW READ A RECORD 
188F F2 01 04 1362 INE *¢€7 SKIP IF NOT 1960 80 1960 1427 DC XL1° 80° 
1892 3C CO 2C02 1363 BVI TODRV#,DR1 SET FIELD 19617 4800 1962 1628 DC AL2 (DDDF) 
1896 BD F2 06 1364 CLI 6({,XR2),C*%2* 7S IT DRIVE 2? 1963 2BB9 1968 1425 DC AL2 (DDCFB) 
1899 CO 01 18B5 1365 BNE TEST1 IF NOT PRINT ERROR 1430 
189D 3c C8 2C02 1366 NVI TODRV€,DR2 SET FIELD 1965 3D 00 2397 1431 CLI OUTREC#2,0 SEE IF SUBRT SEEKED TO ALT TRACK 
18A1 BD F3 06 1367 CLI 6(,XR2),C*3' IS IT DRIVE 37 1969 CO 01 19C3 1432 BNE CALCAD 
18A4 F2 01 04 1368 JNE *€7 SKEP IP NOT 196D 3c 01 4820 1433 BVI DDDF+32,1 SET ADDRESSES IN UCODE TO RORMAL 
18A7 3c DO 2C02 1369 MVI TODPV#,DR3 SET FIELD 1971 3C 00 &B22 1434 SVE DDDF*34,0 FOR 12 & BYTE 
18AB BD Pu 06 1370 CLI 6 (,XR2) ,Ce4? IS IT DRIVE 4? 1975 3b 00 1632 1435 CLI NOT12,.0 DON®T OVERLAY FOR 70 8 BYTE IF 
18AE F2 017 04 4371 JRE *%¢7 SKIP IF NOT 1979 F2 87 08 1436 JE RBRTREC FLAG OFF 
18B1 3C D& 2C02 1372 EVI TODRV#,DR4 197cC 3c GO 4820 1437 EVI DDDP*32,0 SET ADDRESSES IN UCODE TO NORSAL 
18B5 3D 00 2c02 1373 TEST1 CLI TODRV€,0 HAS It BEEN SET? 1980 3C 04 &E22 1438 BVI DDOF+34,4 FOR 70 S BYTE 
18B9 CO 81 19B5 1374 BE DUPERE IF NOT GO PRI:T ERROR 1439 
1375 1984 3c 00 2BCZ 1440 WETREC MYI  DDCF,O WRITE 1 RECORD 
1375 1988 CO 87 239¢ 1444 B WINRW 
1375 198C 40 198C 1442 DC XL1°40° 
18BD OF 00 2BFD 0A03 1376 SLC ICTR(1),ONE HAVE WE GONE THROUGH THE LOOP TWICE? 198D 4800 1S6E 1443 DC AL2 (DDDF) 
18C3 F2 81 OC 1377 dz DUPROC THER CONTINUE PROCESS 198F 2BB9 1990 1444 BC AL2 (DDCFR) 
18C6 AC 01 04 06 1378 MVC) 8=—- & (2, XR2) 6 (, XR2) SAVE DRIVE @ T4u5 * 
18CA AC 01 06 08 1379 HVC 6(2,XR2).8(,XR2) PUT IN NEXT DRIVE # TO BE COMPARED 1446 * WRITE RECORDS OB CYL 0, HD 0, REC*S 25-29 AT 
18CE CO 67 187B 1380 B LOOP 10 RETUEN TO DETERMINE DRIVE # Nae * CYL 0, HD O REC*S 33-37. 
1381 1448 * 
1381 1991 0C 03 20C6 2869 1449 HVC PNAS-1(4) ,COHO27-1 SET UF SUBRT PARAMETERS 
18D2 OD 00 2C02 2c014 1282 DUPROC CLC TODRV#(1),FRDRV# ARE FROM AND TO FIELDS EQUAL? 1957 OC 03 2BB7 20C6é 1450 MVC = NAS~1(4) ,PNAS~1 
18D8 F2 8% DA 1383 JE DUPERR 1998D 3c 05 2BE2 1451 MVI  SECT#,5 
18DB 3C 00 1R32 1384 MVI  NOT12,0 RESET FLAG HOT 12 M BYTE FLAG 19at 3C 19 20C7 1452 BVI = PNAS, 25 
18DF OC 00 234E 2C01 1385 MVC DRIVEE(1),FRDRV# CHECK SIZE OF FROM DATA MODULE 19A5 3C 21 2BBE 1453 AVI = NAS, 33 
18ES 2¢ 00 2FAD O04 1386 mvc SZERRC (1) -8(,XR2)} 19A9 CO 87 20C8 1454 5 RURTN TO WRITE SUBROUTINE 
i8EA CO 87 25E2 1387 B SHS24 DIAGNOSTIC READ ROUYINE 1455 
18EE 39 03 0B62 1388 TBF DBYTE2,X'03! JUMP IF NOT 12 # BYTE 19AD CO 87 2348 1456 B SELDRV SET DRIVE# VIA SSH*S 
18F2 CO 90 1B37 1389 BF SIZER+4 19B1 CO 87 OBCB 1457 B EDITAA RETURN TO MAIN OPTION ENO 
1390 1458 
18F6 OC 00 234E 2C02 1391 MVC =DRIVE€(1) , TODRV# CHECK SIZE OF TO DATA HOD 1458 
18FC 2C 00 2FAD 00 1392 4VvC SUERRC (iy (6 (380) ; oe 19B5 CO 87 0274 1459 DUPERR B PRINT PRINT *INVLD CHARACTERS IN DUP FLD* 
1901 CO 87 25E2 1393 B SRS24 DIAGNOSTIC READ ROUTINE 19B9 C 19B9 1460 bc XL1°C6* FLAG 
1905 39 03 OB62 1394 TBF DBYTE2, X°03° IF BITS NOT OFF GO TO ERROR 19BA 30 1S9BA 71467 DC AL1 (ERB9-ERR9OB) LENGTHS 
1909 CO 90 1B33 1395 BF SIZER 19BB 2DC9 T9BC 1462 pc AL2 (ERR9) MESSAGE ADDRESS 
ee OC 03 213F 2B5A 1396 MVC 8 «STPSCT(4) ,CUHORI-1 DUP OUT TO CYL 4 HEAD 0 19BD FFES 19BE ao pc XL2*FFE9* ID 
0c 03 213B 2369 1397 KVC  STRSCT(4) ,COHO27~1 SET SECTOR TO START DUPPING 16 
1919 CO 87 2140 1398 B RDBWRT me GO DO THE DUP IN *sTPScTrt si 19BP CO 87 OBCS 1465 B EDITAA BETURN TO MATH OPTION MENU 
9399 1466 * 
191D CO 87 2201 1400 B RDFAS READ FAS TO SEE HOR FAR TO DUP 1467 * PIRST CALCULATE 3380 LOGICAL FROM SYS/3 LOGICAL 
1921 3C 30 226F 1401 MVI FASINB¢8,48 E 1468 * 
1402 * 7 Seige Sch caesaent Senet oe 19C3 3D 00 1832 1469 CALCAD CLI wNOT12,0 IP IT IS 12 8 BYTE PACK THEN JUMP 
1925 CO 87 219B 1403 B STPFLD INCREMENT TO NEXT HEAD 19C7 F2 81 ED 1470 JE Cone ede 
1929 226F 192A 1404 + 19CA OC 01 2ACS 2BSA 1671 MVC WORK(2) -2 
1405 = paper re See epee 19D0 OC 01 2ACB 2397 ™472 NVC = CL3 (2) , OUTREC#2 GET SYS/3 LOGICAL CYL 
192B 0C 03 213B 2B5a 1406 MYC = STRSCT (4) ,CUHOR1~1 SET SECTOR TO START DUPPING AT 19D6 OC OF 2aCD 2399 1473 HVC = HE3 (2) , OUTREC+S GET SYS/3 LOGICAL HEAD 
1931 0C 03 213F 226E 1407 HVC STPSCT(4}) , FASINB+t? SET "STPSCT*® TO LAST TRACK DUP*ED 13DC 3¢ 28 2AD9 1474 HVI «COUNT .40 
1937 CO 87 2140 1408 B RDWET GO DUP IT 19E0 OF 07 2AC9 2ACB 1475 MULTGO ALC WORK (2) ,CL3 MULTIPLY CL3 BY 40 
1409 19E6 OF 00 2AD9 02803 1476 SLC COUNT(1) ,ONE 
DATE 29AUG75 22DEC75 30APR76 258AR77 PROG ID DD6-3 DATE 29AuUG75 22DEC75 30APR76 25HAR77 PROG ID DD6~3 
EC NO. 8278048 827836 571872 571989 PAGE 4z EC NC. 827804 827835 571872 571985 PAGE 12A 


t 














IBM MAINTENANCE DIAGNOSTIC PROGRAK PART NO. &248217 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART WO. 4248217 
PAGE 13; PAGE 413A 
DD63 3340 CE DISK EDITOR HOD 12 DD63 3340 CE DISK EDITOR HOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT "ERR LOC OBJECT CODE ADDR STHT SOURCE STATEMENT 
19EC CO 01 1950 1477 BNZ sULT4O 1aD1 CO O02 1ABP 1585 BNL DvV02 
1478 TADS OF 014 2aC9 2AD9 1546 SKDVO2 ALC WORK(2),COUNT ADD QUOTIENT TO CL3*10 
19F0 OF 01 2AC9 2ACD 1479 ALC WORK (2) , HL3 NOW ADD 2(HL3) TO CL3 IADB OC 014 2AD3 2ACc9 15467 AVC CPR(2) , HORK SAVE 3340 PHYSICAL CYLINDER 
19F6 OF 01 2AC9 2aCD 1480 ALC WORK(2) ,HL3 ' 1548 * 
1481 * 1549 * IF REMAINDER OF ABOVE DIVISION IS 0, HPW = 0; 
1482 * DIVICE ABOVE BY 12 1550 * IF REMAINDER IS 1, HP® = 2. 
1483 * 155% * 
19FC OC 01 2AD9 2B5A 1484 MVC COUNT (23 ,ZERO 4AE1 3C 00 2AD5 1552 BVI H8PH,0 
1A02 OD 01 2AC9 2BP6 1485 CLC WORK(2),X12 IF LESS THAN 12, DON*T DIVIDE TAES 3D 00 2aACD 1553 CLI HL3,0 
1A08 F2 02 03 1486 INL DIV12 TAES F2 8% 04 1554 JE *+7 
1A0B F2 87 16 1487 d SKD12 TAEC 3C 02 2aAD5 1555 MMVI HPW,2 
JAOE OF G1 2aC9 2BF6 1488 DIV12 SLC WORK(2),X12 1556 * 
1A14 OE 01 2AD9 OA03 1489 ALC COUNT (2) ,ONE 1557 * BOW CYLINDER VALUE MUST BE CORVERTED TO ONE BYTE FORMAT 
1A1A OD 01 2AC9 2BF6 1490 CLC WORK (2) ,X12 1558 * FORMAT IS AS FOLLOWS: 
1A20 CO 02 1A0E 1494 BNL DIVi2 1559 * 
TA24 OC 01 2ACF 2AD9 1492 SKD12 MYC CLW(2),COUNT INTEGER PART IS 3340 LOGICAL CYL 1560 * CARSAV--~CORTAINS CYLINDERS 00-FF 
TAZA OC 01 2AD1 2AC9 1493 MVC HLW(2),WORK REMAINDZR IS 3340 LOGICAL HEAD 1561 * HARSAV~-BITS 0 1 2 3 4 5 6 F 
1494 * 1562 * 0 1 #+O #£4K=HEAD VALUES->}] 
1695 * NOW CALCULATE 3340 PHYSICAL FROM 3340 LOGICAL 1563 * 
1496 * 1564 © BITS 0 AND 2 ARE ALWAYS 0 
1497 * - PIRST, DIVIDE CL®¥ BY 2 1565 * BIT 47 IS 1 ONLY WHEN CYL IS GREATER THAN X* PFS 
1A30 OC 01 2AD9 2B5A 1498 MVC COUNT(2),ZERO TAFO OC 00 2AC6 2AD3 1566 PINCAL S¥C  CARSAY(1),CPW 
1A36 OC O14 2AC9 2ACF 1499 MVC WORK(2},CL® TAF6 3B &0O 2AC7 1567 SBF HARSAV,X*40® 
1A3C OD 01 2AC9 2BEA 1500 CLC WORK (2) ,X2 IF LESS THAN Z DON'T DIVIDE TAPA OD O04 2AD3 2AD7 1568 cLC CPR(2) ,CKER IS CYL GREATER THAN X*OOPF! 
1A42 F2 02 03 1501 JNL pIVvc2 1B00 F2 84 03 15693 JH HERE 
1A45 F2 87 16 1502 J SKDO2 1B03 F2 87 048 1570 J +7 
1A48 OF O01 2ACS 2BFA 1503 DIVO2 SILC WORK (2) ,X2 1BO06 3A 40 2AC7 1571 HERE SBN HARSAV,X*a0t IF SO, SET BIT 1 ON 
TAGE JE 01 2AD9 0203 15048 ALC COUNT (2) ,ONE 1572 
41A54 OD 01 2AC9 2BEA 1505 cL¢c WORK (2) ,X2 tBOA 908 03 2AC7? 2aDS 1573 NNN HARSAYV,HPR 
1A5A CO O2 1248 1506 BRL pIvo2 1B10 3B 10 2AC7 1574 SBF RARSAV,X*1G68 
1507 1B14 3D OP 2AD5 1575 CLI HPW,X*"OFS IS 3340 HD GREATER THAW *OF* ? 
1A5E OC 01 2AaD3 2aD9 1508 SKDO2 SVC CPW{2),COURT 3340 2HYSICAL CYL IS INTEGER 1B18 F2 84 03 1376 JH HERE 
1509 *# PART OF ABCVE CALCULATION 1BIB F2 87 04 1577 J *e7 
1510 * 1B1E 3A 10 2aC7 1578 HERE1 SBN  HARSAV,X!10* IF SO, SET BIT 3 OF 
1511 * REMAINDER OF ABOVE CALCULATION IS NOW MULTIPLIED BY 12 1579 
1512 * 1B22 Oc 00 4820 2ACé6 1580 MVC DDDF¢32(1) ,CARSA¥V UPDATE MICROCODE WITH ALT CYL 
1A64 3C OC 2AD9 1513 aVI COUNT, 712 1B28 OC 00 4822 2AC7 1581 MVC DDDF+34& (1) ,HARSAV AND HEAD . 
1A68 OC 07 2ADS 2B5A 1514 SVC HPW(2}) -ZERO 1B2E CO 87 1984 1582 B BRTREC GO WRITE THE RECORD ON DATA MODULE 
1A6E OE 01 2AD5 2AC9 1515 MULT12 ALC HPW{2),@ORK 1583 * 
1A74 OF OG 2AD9 0A03 1516 SLC COUNT(1),ONE 1584 * 
1A7A CO 01 1A6E 1517 BNZ MULT12 1585 # ROUTINE HANDLING WRONG DATA MODULE SIZE 
1518 * 1586 * 
1519 * ADD HLW TO ABOVE TO GET 3340 PHYSICAL HEAD VALUE 1B32 00 1B32 1587 NoTi2 DC IL1*O# 
1520 * 1B33 3C FF 1B32 1588 SIZER BVI NOT12,X°FF* 
TATE OF O1 2AD5 2AD1 1521 ALC HPW(2),HLH 1B37 34 08 1IBYE 1589 st SIZERR+3,ABR STORE RETURN ADDRESS 
1A84% F2 87 69 1522 J FINCAL 1B3B CO 87 0212 1590 B PRINT PRINT "DATA MODULE SIZE NOT 12 ...° 
1523 1B3F C6 IB3F 1591 pc XL1°C6¢& 
1524 * FOLLOWING IS USED TO CALCULATE PHYSICAL HEAD AND CYL 1B40 59 1B4YO 1592 DC AL1(SZERR~SZERRB) 
1525 * FOR 12 MBYTE CE PATA MODULES 1B41 2FFO 1B42 1593 pc AL2 (SZERR) 
1526 * 1B43 FFEP 1B4&4 1594 DC XL2"FFEP* 
7AS7 1527 CAL12 EQU # 1595 
1A87 OC 0% 2aC9 2B5a 1528 MVC WORK £{2),ZERO 1B45 CO 87 0222 1596 B HALT RALT -EF- 
TABD OC O01 2ACB 2397 1529 MYC CL3(2),OUTREC+2 GET SY¥S/3 LOGICAL CYL 1B49 FFEF IB4A 1597 pc XL2°FFEF* 
1293 CC 01 2ACD 2399 1530 MVC HL3(2) ,OUTRECeY GET SYS/3 LOGICLA HEAD 1B4B CO 87 0000 1598 SIZERR B =<* 
1A99 3C OA 2aD9 1531 MVI COURT, 10 \ 1599 
1A9D OE G7 2AC9 2ACB 1532 MULT10 ALC WORK(2),CL3 MULTIPLY BY 10 : 1599 
TAA3 OF OO 2AD9 0A03 1533 SLC COUNT (1) ,ONE 1599 
1AA9 CO 07 1A9D 1534 BNZ #sULT10 \ 1599 
1535 * , 1599 
1536 * ' DIVIDE SYS/3 LOGICAL HEAD VALUE BY 2 1599 
1537 * 1599 
TAAD OC Q1 2AD9 2B5A 1538 HVC CCUNT(2),ZERO 1593 
5AB3 OD 01 2ACD 2BEA 1539 CLC HL3 (2) gX2 1600 SEEKS EEEERESCEE RES EEERERE SEEKER ERHKSERERKEKEESHKETES SESE EEK GEREEEREROSEEES 
1AB9 F2 02 03 1540 JNL BVG2 : GOD EREKEEREEREEEEEEREEEEESEREAKKEE SESE EAEREEAEAEEEREEREE KE EAREEEEKEEE RESET ES 
TABC F2 87 16 1541 J SKDV¥02 1602 *# $LST +? 
1ABF OF 01 2ACD 2BEA 1542 DVO2 SLC HL3(2),X2 1603 %* THIS OPTION LISTS THE PROGRAMS ON THE 3340 CE me 
WACS OF OF 2AD9 OA03 1543 ALC COUNT (2) ,ONE 1e04: 2% DATA MODULE. “ 
JACB OD 01 2ACD 2BEA 1544 CLC HL3(2),2%2 1605 ** ** 
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DD63 3340 CE DISK EDITOR MOD 12 DD63 3340 CE DISK EDITOR HOD 12 
ERR LOC OBJECT CODE ADDR STHT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMERT 
1606 SERSSERESESERSSSERSSESESETEEE EEE KEES Soo ER ERERESEEESE FERRERS EERE ER EEKES 1673 
1607 CEENEREEESELEREERERERA SEES SEEEEOS SESE D 6 2 EEEKEESESESEREEEERERERER EEKE RED 1C13 OF GO 2BFPF 0A03 1674 SLC KCT&R (1) ,OE IS TRIS THE SECOND TIHE? 
1608 1€19 OC 02 2C2A 2aDD 1675 BYC YTOC1#(3) ,. TEMPS SAVE ¢ OF VTOC ENTRIES LEFT 
1608 IC1F CO 81 1D48 1676 BZ STCNT IF SO, THEN BRANCH 
1B4P 1609 LSTPGH EQU * 1677 
tB4F 38 02 OAOF 16 10 TBN xX5203,x'02¢ IS PRINTER 132 PRINT POSITION 1€23 3C 01 2Cc00 1678 EVI MCTR,1 FORCE SUBRT *LSTRD* TO JSE NEW DDCF 
1B53 F2 10 17 1611 IT LSPGM1 JUME IF YES 1C27 OC 04 2BBE 2B42 1679 MVC DDCFH(S) ,C3B162 SET UP DDCF FOR PAS YTOC 
1B56 38 20 OA1i1 1612 TBN X14803+1,x°20¢ IS IT THE 1403 PRINTER 1C2D 3C 60 OASA 1680 MVI PRTBP+69,Ct-* INSERT DASH IN CASE IT WAS DESTROYED 
1B52 F2 10 10 1613 JT LSPGH1 JUSP IF YES. 1031 CO 87 1897 1681 B LOOPi2 GO READ THE RECORDS 
1B5D 3C 04 1B9C 1614 BVI = LOP12a¢1,x*018 SET COUNTER TO 1 IF NOT 1682 
1B61 3C 01 1BDB 1615 MVI LSCNT2¢1,x°01! SET COUNT TO 1 1682 
1B65 3C 40 1B7C 16 16 MVI LSPGIAC1,x*408 SET TO BLANK 1682 
1B69 3C 4&0 1B60 1617 SVI LSPG1B¢1,x*40® SET TO BLANK 1683 * 
1B6D 3C 40 0A93 1618 LSPGM1 MVI  PRTBP+126,c* § BLANK OUT PRINT 1684 * SUBROUTINE TO READ 48 RECORDS OF VIOC AT A TIBE AND 
1B71 OC 7D OA92 0aA93 1619 MVC) =—- PRT BF #125 (126) , PRTBF+126 BUFFER 1685 * ADJUST THZ ADDRESS POINTER FOR THE MAIN PROGRAS 
1B77 3C 60 OA18 1620 NVI PRTBF43,C*-# INSERT 1686 * 
1B7B 3C 60 OASA 1621 LSPG1A BVI PRTBF*69,C°-8 DASHES 1687 
1622 * MVC =- PRTBF*64 (3), AST INSERT DIVIDER 1035 34 08 1c49 1688 LSTRD st LSTRDR¢3,ABR SAVE RETURN ADDRESS 
1B7F 3C 4B Oa54 1623 LSPG1B NVI PRTBF*63,C?.* 1039 OF 00 2C00 Oa03 1689 SLC #CTR(1),ONE DECREMENT COUNTER 
1624 1C3F F2 81 08 1690 IZ LSTRDRe& 
1B83 3c 04 2c00 1625 SVI MCTR,1 USE NEW DDCF FIELD IN SUBRT *LSTRD? 1C42 36 OF 2B8A 1691 A X256,XR1 IkCR XRi IF NOT READING NEW TRACK 
1B87 04 02 2ADD 2AF7 1626 ZAZ = TEMPS (3) , MAXPGH (3) SET TEME ¥TOC# TO MAX ¢ OF ENTRIES 1c46 CO 87 0000 1692 LSTEDE 5 oe RETORN TO CALLER 
1B8D OC 0& 2BBE 2860 1627 MVC  DDCFM(5),C2HOR1 SET DDCF TO READ YTOC 1693 
1B93 3C 02 2BFF 1628 LSPGMH2 MVI KCTR,2 INITIALIZE COUNTER TC4A 3C 36 2006 1694 AVI 8 MCTR,4&8 RESTORE COUNTER 
1629 ICUE 3C 2F 2BC2 1695 AVI DDCF,4&7 SET NN FIELD TO READ && RECORDS 
1B97 C2 02 Oa15 1630 LOOP12 LA PRTBF, XR2 INITIALIZE ADDRESS POIKTER 1C52 C2 0% 4800 1696 LA DDDF,XRt REINITIALIZE XR1 
1B9B 3C 02 2BFE 1631 LOP12A BVI LCTR,2 INITIALIZE COURTER 1697 
1632 1056 CO 87 239Cc 1698 B WINRW READ 48 RECORDS GF YTOC 
1B9F CO 87 9C35 1633 LSCKT1 B LSTRD READ NEXT RECORD IN Y¥TOC 1C5R 80 1C5A 1699 DC XL7°80° READ FLAG 
TEA3 4D 02 02 2892 1634 CLC 2(3,XR1}) -ACTO-1 ARE COL®S 1-3 *acr?? 1C5B 4800 1c5C 1700 DC AL2 (DDDF) 
1BA8 F2 01 2F 1635 JNE iSscNT2 IP NOT, QUIT LISTING PROGRAMS 1C5D 2BB9 ICSE 1701 bc AL2 (DDCFB) 
1636 4702 
1BAB 07 20 2ADD 2AEE 1637 SZ TEMPS (3) ,D4(1) DECREMENT # OF WTOC ENTRIES LEFT 1C5F CO 87 2198 1703 B STPFLD INCREBENT DDCF 
1638 1C63 2BBE 1064 1704 Dc AL2 (DDCF#) 
1BB1 4D 02 06 2B14 1639 CLC 6(3,XB1),OLD IS IT AN OLD ENTRY? 1€65 CO 87 1046 1705 B LSTRDR 
1BB6 CO 81 1B9F 1640 BE LSCNT1 READ ANOTHER ENTRY IF IT IS Te 
1641 1706 
1BBA 9C 02 02 06 16462 MVC =—-. 2 (3. XRZ) 6 (, XR) PUT IN ID FIELD 1766 
1BBE 9C 00 04 08 1643 AVC} «6-4 (1, XR2},8(,XR1) PUT LEVEL INTO PRINT FIELD 1706 
1BC2 9C 14 1A 9F 16464 MVC =. 26 (21, XR2),159(,XR1) MOVE PN & EC INTO PRINT FIELD 1706 
1BC6 9C 1F 3C BF 1645 MVC 60 (32,XR2) ,191(,XR1} MOVE COMMENT AREA INTO PRINT FIELD ae 
1646 
1BCA OF 00 2BFE O0A03 1647 0 1706 
1BDO F2 81 ic 1648 om co NE co PEies We Bee RECORDS 1707 RESKKESESSESESE SSE SAKE SSSESSRESESKKESLSESEKEKSERESSKKKHSESKEKESEKRECKESESE EEE EESEEKEKEE 
1BD3 E2 02 42 1649 LA 66 (,¥K2) ,XR2 INCREMENT XR2 1708 SEEKSERKASKKREKSESESEKARESASESESESESE SKEKSSERKSESKSESERE SESE ESESEKKEEKEREKECES ESSE 4EEREE 
A *e 
1BD6 CO 87 1B9F 1650 B LSCNT1 READ 2ND RECORD 1709 #2 SCMP 
1651 1710 #2 THIS OPTION REMOVES ALL ‘OLD* ENTRIES FROM THE Yroc *e 
1BDA 3D.02 2BFE. 1652 LSCNT2 CLI LCTR,2 LCTR=2 W714 #% AND THEIR CORRESPONDING PROGRAM AREAS. E 
1BDE F281 22 1653 "JE ‘ 1712 ## 
1BE1 3C 40 0a93 1650 aVI parereioeces s GP ONE RECORD Ae cick SEAR BEFORE L71Z FERS TESEEKERESERESEEESS EEE EEREREEKSRECTE ERE EEEEEEEREEEEEE EE EEEEESEEEE ES 
1BE5 oc 3c 0A9Z 0a93 1655 avc PRIBF+125 (61) , PRTBF#+126 REACHING END OF ¥TOC, THEN PRINT 1714 SHESEKKAASESHKEKKESKSTSEKRSKSESSKKEREKKSSETCKESESSKKSSEKEKEESEKEEEEEKEKEKEKKESESEEKE ERE 
1BEB 3C OF 2AB1 1656 MVI  LWET,Y*OF® IT 1715 
1657 1715 
1BEF CO 87 O21A 1658 LSCNT3 B PRINT PRINT LIST FIELD 1716 
1BF3 01 1BF3 1659 DC XL1¢018 FLAG 1716 
1BP4 7F 1BF4 1660 Dc IL1¢127¢ LENGTH : 1C69 a CHPPGH be ae _ , 
1BF5 0aA93 1BF6 1661 DC AL2 (PRTBF¢126 KESSAGE ADDRESS 1C69 C2 09 480 e 
1662 ! 1C6D OC 01 2AC3 2B5A 1719 HVC VTOC#(2), ZERO PREPARE BUrEER noe tae SECTOR 
1BF7 3D OF 2AB1 1663 CLI LWRT,X*OF* IS THIS THE LAST RECORD? 1073 0&4 02 2C2A 2AF7 1720 ZAZ =s-; VTOC 1# (3) g MAXPGH (3) PREPARE PRINT B 
1BFB 3C 00 2ABI 1664 AVI LWRT,O 1079 OC 04 2BBE 2B60 1721 BYC =©©DDCPM(5),C2H9R1 SET UP DDCF TO SCAN POR PIRST 
1BFF CO 01 1897 1665 BNE  LOOP12 IF NOT, THEN READ SOME HORE i722 
1666 7 iC7F 3c 00 2BC2 1723 LOOPS aI DpcF,0 oon wenn 
1603 CO 87 021A 1667 LSTCOL B PRINT SPACE 2 LINES 1€83 CO 87 239C ars s en apes 
1c07 12 1CO7 1668. pe XL1¢°12¢ 1c87 80 1¢87 4725 DC XL1*80° READ FLAG 
1669 1C88 4800 1C89 1726 pc AL2 (DDDF) 
1C08 38 02 2BFE 1670 TBN LCTR,X*°02¢ 02 1C8A 2BB9 1C8B vee Dc AL2 (DDCFB) 
1cOC F2 10 04 1671 JT *e7 02 1726 
ICOF 3C 4O OASA 1672 VI PRTBF+69,C® ° 02 icBC 4D 02 06 2504 1729 CLC 6(3,XR7} ,OLD IS THIS AN *OLD* ENTRY? 
DATE 29A0G75 = 22DEC75. «= 30APR76.—s« 25 MART7 PROG ID DD6-3. DATE = 29AUGTS5 — 22DEC75 =— 30APR76002=——- 25 NAR77 SCs on a eka 
EC NO. 827804 827836 571872 571989 PAGE 1% EC NO. 827804 827836 571872 571969 
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1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 


1782: 


1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
T7914 
4792 
1793 
1794 


CMCHTI 


LOOP16 


ENCHP4 


JE 


CLC 
JNE 


ALC 
SZ 


bc 


AYC 
svc 
AVE 


pC 
BVI 


bc 
oc 
bc 


CLC 
JNE 


CEC 
BE 


aVC 
ave 
AYC 


BC 
De 


aVYCc 
A¥C 
a¥e 
B 


1795 STCHT B 


Z30APR76 
571872 


cCacntT1 


2(3,XE1) ,ACTO-1 
STCRT 


VTOC# (2) , ONE 
WTOCT# (3) ,D1(1) 


STPFLD 
AL2 (DDCFH) 


LOOPS 


HAS (5) 6714 (,XR1) 
DDCFRH(S) , DDCFS 
DDCFE,0 


STPFLD 
AL2 (DDCFR#) 


DDCFR,O 
WEERU 
XL1°80* 
AL2(D2DF) 
AL2 (DDCFRB) 


2(3,XR1) ,ACT0~-1 
ERCEP? 


6 (3, X81) -OLD 
LOOP 16 


SECT# (2) ¢21(,XB1) 
PRAS (5) , 74 (,XR1) 
14(5,XB1) ,NAS 


DDCF,0 
WINER 
XL1*a0° 
AL2 (DDDF) 
AL2 (DDCFB) 


WIOCE (2} , ONE 
WZOC T€ £3) ,D1(1) 


STPFLD 
AL2{DDCFR) © 


REETE 


BAS (5) . DDCFTM 
LOOP 16 


DBCF,0 
SETTO 
BIBRE 
XE_1% 46? 
REZ (DODF) 
AL2 {DDCFB) 


PRSINB¢8 (5) , NAS 
FASINF (2} , VTOC# 
PRSENB¢2 (3} - FAS 
BRFAS 


EDP&AS 


2SEART7 
5714989 


PART NO. 
FAGE 15 


JUMP OUT OF SEARCH ROUTINE 


IS THIS THE END OF THE YTOC? 
GO PRINT MESSAGE 


INCREMENT VTOC COUNT 
DECRENENT PRINT BUFFER 


STEP CONTROL FIELD 


RETURN TO READ ANOTHER RECORD 


SET UP NEXT AVAILABLE SECTOR 
SET UP NAS IN YTCC 
INITIALIZE CONTROL FIELD 


STEP CONTROL FIELD 


CPERATE ON ONE RECORD 
READ NEXT ENTRY 
READ FLAG 


REACHED THE END OF VTOC? 
IF SO PRINT MESSAGE 


IS IT AN *OLD* ENTRY? 
THEN Gu KEAV ANOTHER BECORD 


STORE HOW MANY SECTORS TO MOVE 
STORE WHERE TO FIND PROGRAB 
MOVE IN NEW PRCGRAM LOCATION ADDRESS 


WRITE VTOC ENTRY 
WRITE FLAG 


INCREMENT NOMBER OF YTOCC ENTRIES 
DECREMENT PRINT BUFFER 


STEP WTOC LOCATION POINTER 


TO READ-WRITE RIN WHERE PROGRAM IS 
MOVED 
OPDATE NEXT 
RETURN 


AVAILABLE SECTOR FIELD 


ZERO OUT RECORD BIYE 

SET DDDF TO 0 

WRITE RECORD OF O'S TO SIGNIFY EOR 
WRITE FLAG 


SET UP NEW FAS SECTOR 


BRITE NEW FAS SECTOR 


READ FAS RECORD 


PROG ID 
PAGE 15 


DD6-3 


DD63 


ERR LOC 


1D4&Cc 


1D52 
1D56 


1D59 
iDSD 
1D60 


1D66 
1D6éA 


1D6C 


1D70 
ID74 


1TD7A 
ID7E 


1D80 
1DB64 
1D87 


1D8B 
1D8F 
1pD30 
1D91 


1D93 


1D97 
ID9B 


iDSF 
1Da5 
1DAB 
IDAF 
1DB3 


1DB9 


1DBD 
tpci 
IDC2 
1DCc3 
1Dcs 
1DCc9 
1DCA 
1DCB 


DATE 
EC NO. 


3340 CE DISK EDITOR 


OBJECT CODE 


04 


3D 
F2 


3D 
F2 
06 


co 


40 


22 
02 


01 
81 
40 


87 


226F 


co 


3c 
06 


co 


87 


30 
34 


87 


226F 


3D 
F2 
co 


co 
06 
&C 


22 
02 
87 


87 


2C57 


co 


3A 
C2 


oc 
oc 
3c 
3c 
oc 


co 
co 


01 
26 


87 


OF 
01 


03 
03 
07 
OS 
01 


87 


87 


3352 


co 
01 
28 


87 


337A 


2C4E 


226C 
32 


226F 
10 
2C4E 


2798 


1D52 


226P 
2CuE 


2198 
226C 
04 

1D70 


O21A 


OBCB 


2aCl 
4800 


20C6 
2BB7 
20C7 
2BB8 
2BE2 
20c8 


2A42 


2Ab2 


29AU0G75 
827804 


2aE7 
2AEE 
1D68 
2AP1 
1D7F 
1D8F 
1D90 
1D92 
1D97 
2B65 
2B65 
2BEE 
Dc 1 
1DC2 
1Dc4 
1Dc9 
iDCA 
tpcc 
22DEC75 
827836 


4248217 IBM MAINTENANCE DIAGNOSTIC PROGRAS 


MOD 12 


1796 ZAZ «- SPACE# (5) -D0(1} 

1797 

1798 LOOP18 CLI FASINS-3,34 IS CYL #= 34? 

1799 JRL STP3 THEN QUIT AND PRINT 

1800 

1801 CLI FASINM,1 IS REC # = 1 

1802 JE CACNTG IF SO, THEN JUMP 

1803 AZ SPACE#(5) ,D1(1) INCREMENT # OF SECTS LEFT 

1804 

1805 B STPPLD INCREMENT FIELD 

1806 pc AL2 (FASIN4) 

1807 

1808 B LOOP18 DO IT AGAIN 

1809 

1810 CHCNTG MVYI  FASINM,48 SET TO LAST RECORD 

1811 AZ SPACE# (5) ,D48 (2) INCREMENT SECTORS LEFT BY 48 

1812 

1813 B STPFLD INCREMENT FIELD 

1814 Dc AL2 (FASINM) 

1815 

1816 CLI FASINS-3, 34 RESCHED CYL 34? 

1817 INL STP3 

1818 B CHCNTS DO IT AGAIN 

1819 . 
1820 sTP3 B PRINT PRINT *xX VTOC ENTRIES LEPT ...* 
1821 pc XL1°06¢ FLAG 

1822 pc AL1 (V4SG~VMSGB) LENGTH 

1823 DC AL2 (VMS) MESSAGE ADDRESS 

1824 

1825 B EDITAA RETURN TO MAIN OPTION BENU 

1826 

1826 

1826 

1826 

1826 

1826 

1826 

1826 

1827 SERECREESSKKSSESHKEKRSESEKKESKSKSKEKSESESKKEKKSKAEEEHEASHEREKESEEKKKEE KEKE KEKREE 
1828 LREKERKSEKKKSEKEKEKKESKKKHEKKSKHKSEKESHKEKESHKSETSEKCKCKEKKEKKSE SKKKEAKELSEKKEREKKEEKEEE 
1829 ** SCONFIG et 
1830 ** THIS OPTION ALLOWS NEW UDT,CPU, OR // CHAIN ENTRIES we 
1831 * TO BE MADE TO THE DIAGNOSTIC CONTROL PROGRAS. +* 
1832 ae *e% 
1833 RSEKRESKREKE SES SEKEKESECKKESESSESEKKEKKKEKSERSSESKEKKETKEKEKKEKKEESESEKKSEHKEEKE ES 
1834 KECKEKESSKSEESRESSEKKKKSTKESKSESEKKKEEKKEESKKEKESKKKSEKEKKHKSEKEKKEKKSESEKERKEKEKEEKE 
1835 

1835 

1836 CFGPGH EQU) #* 

1837 SBN  CFIGFG,X‘OF* SET CONFIGURE FLAG 

1838 LA DDDF, XR1 LOAD ADDRESS POINTER 

1839 

1840 MVC  PRAS~1(4) ,C3H15 SET UP PARAMETERS FOR SUBROUTINE 
1041 MVC WNAS-1(4),C3H15 RWRTN, TO MOVE DCP RECORDS TO 

1842 MVI =~ PNAS, 1 TEMPORARY DISK LOCATION 

1843 BVI NAS,S 

1844 svC © SECT# (2) ,X4 

1845 

1846 B RERTE MOVE RECORDS ON DISK 

1847 

1848 CFRT B PRINT1 DISPLY ‘CONFIGURE ENTRIES* 

1849 Dc XL1°01° FLAG 

1850 DC AL1 (MERU2-MENO2B) MESSAGE LENGTH 

151 DC AL2 (MENU2) MESSAGE ADDRESS 

1852 B PRINTI DISPLY ‘CONFIGURE ENTRIES® 

1853 DC XLi"01* FLAG 

1854 DC AL1 (MEN22-MENU2C) HESSAGE LENGTH 

1855 DC AL2 (MEN22) MESSAGE ADDRESS 

30APR76 25BAR77 PROG ID DD6~3 
571872 571989 PAGE 15A 


ADDR STMT SOURCE STATEMENT 


4248217 
15A 


PART WO. 
PAGE 


ZERO OUT # OF SECTORS LEFT BUFFER 





IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 
PAGE 16 
DD63 3340 CE DISK EDITOR HOD 12 DD63 
ERR LOC OBJECT CODE ADDR STHT SOURCE STATEMEAT ‘ERR LOC 
1DCD CO 87 2~A42 1856 B PRINT# DISPLY *CONFIGURE ENTRIES? TE6C 
1DD1 01 1DD1 %857 BC XL1°O%¢* PLAG 1E70 
1DD2 28 IDDZ 1858 pc AL1 (MEN23-HENU2D) MESSAGE LENGTR 
1DD3 33a2 IDD4 1859 pc AL2 (MEN23) MESSAGE ADDRESS TET4 
1DD5 CO 87 2a42 1860 B PRIKT1 DISPLY *CONFIGURE ENTRIES* 1E78 
1DD9 01 4DD9 1861 DC XL1°O1# FLAG 1E75 
IDDA 28 IDDA 1862 Dc AL1 (MEN24~HENU2E) HESSAGE LENGTH 
IDDB 33CA IDDC 1863 pc AL2 (MEN24) MESSAGE ADDRESS TE?P 
1DDD CO 87 2A4%2 1864 B PRINT1 DISPLY ‘CONFIGURE ENTRIES® 1E82 
1DE1 01 4DE1 1865 pc XL1?7018 FLAG 1EB5 
1DE2 30 1DE2 1866 Dc AL1(MEN25-MNENUZ2F) MESSAGE LENGTH 
1DE3 33FA IDE 1867 DC AL2 (MEN25) MESSAGE ADDRESS 1E89 
1DE5 CO 87 2A4&2 1868 B PRINT1 DISPLY "CONFIGURE ENTRIES?* 1E8C 
1DE9 06 1DES 1869 DC XL1°06* FLAG 1E90 
IDEA 28 IDEA 1870 DC AL? (MEN27-MENU2R) MESSAGE LENGTH 1E93 
IDEB 3422 4DEC 1871 pc AL2 (HEN27) MESSAGE ADDRESS 1E96 
1872 1E9C 
IDED CO 87 2749 1873 CFRT3 B RECORD GET ENTRY 1ESP 
1874 
1DP1 BD E7 00 1875 CLI 0(,XR2),cC*xX®* IS IT AN X ENTRY TEA3 
1DF& CO 81 1F28 1876 BE CFGEND THEN RETURN TO MAIN OETION MENU TEA? 
1DF8 BD C5 00 1877 CLI 0O(,XR2),C*E® IS iT AN E ENTRY TEAB 
1DFB CO 81 1F28 iste BE CFGERD THEN RETURN TO BAIN OPTION MENU TEAE 
1879 
IDFF 8D 07 07 2809 1880 CLC 7(8,XR2},CHNID IS IT A CHAIN REC'D? TEBI 
1E04 CO 8% 1383 1881 BE DCPCD2 IP SO, GO HANDLE iT TEBS 
1E08 BD C3 09 1882 CLI 0(,XR2),C*c? IS IT A CPU ENTRY? 1TEB? 
1E0B CO 814 141D 1883 BE DCPCD& IF SO, GO HANDLE IT TEBA 
1EQF BD E& 90 1884 CLI 0(,XR2),C*u? IS AN UDT ENTRY? TEBD 
1E12 CO 01 1P30 1885 BNE  CFGERR IF NOT, GO TO ERROR 1ECO 
1E16 BD 40 03 1886 CLI 3(,XR2),C* * IS IT A UDTX ENTRY? 1EC3 
1E19 CO 81 13F5 1887 BE DCPCD3 IF NOT, GO HANDLF UDT ENTRY 
1888 1ECA 
1888 
1889 SESSEKKRKEKKKSEEKSKSKKESE SSKSKSEKSSEKSSKLESSKERAKKKSESSKASKES SS SSLKKECESS SSSEKRERKEHKESKESE TED? 
1890 * THIS SECTION HANDLES UDTX ENTRIES. * 1EDS 
1897 SEKEKEKKKSESEKS SSESCSTSEKSEKKSE SESSCEKSEKE SKE SKSKSERSFKKSESCSSSEREKKSESEEESCEARKESKARKEE RS 1EDS 
1892 1EDC 
1892 : 1EDF 
1E1D 34 01 1E38 1893 UDTXP ST TBADR1,XR1 STORE REGISTER 1EE2 
1E21 E2 02 63 1894 LA 3(,XR2) -XR2 INCREMENT POINTER TEES 
1E24 OC 03 2BD1 2B65 1895 MVC DDCFS#-1(4) ,C3H15 INITIALIZE DDCF TO READ IN UDT 
1E2Ak 3C 06 2BD2 1896 BVI DDCFSB,6 RECORD. iEES 
1E2E 3C 00 2BD6 1897 BVI DDCFS,0 TEED 
1898 : 1EFO 
1E32 CO 87 239C 1899 B WINRW READ IN UDT RECORD (C3H15R6) 
1E36 80. 1E36 1900 DC XL1*808 READ FLAG » TEP 
1E37 0000 1E38 1901 TMADR1 DC AL2 (#-*) TEF8 
1B39 2BCD 1E3A 1902 De AL2 (DDCFSB) TEFC 
1903 
1E3B 35 01 1£38 1904 UDSCN L TMHADR1,XR1 INITIALIZE XR1 
1E3F D2 07°03 1905 LA 3(,XR1) -XR1 1FP00 
TE42 6D 01 02 02 1906 LOOP25 CLC 2(2,XR1)¢2(,XR2} ARE THE TWO UDT ENTRIES IDENTICAL? |} TFOu 
1E46 F2 01 03 1907 JNE OTCNTS SKIP IF NOT IDENTICAL : 1FOE 
1E49 7C E7 01 1968 BVI 12(,XR1j),c°x¢ IF IDENTICAL INSERT *X® IN FIELD 
1EYC D2 01 01 1909 UTCNTY LA 4(-XR1} ,XR1 INCREMENT ADDRESS POINTER ; TPOC 
1E4F 7D 4&0 00 1910 CLI O€,XR1),c* * HAS END OF RECORD ARRIVED? : 1P 10 
1E52 F2 81 OB 1911 JE LOOP21 IF SO, THEN GO TO NEXT OPERATION TPG 
1E55 7D 6B 00 41912 CLI 0(,XR1),C*,* HAS A COMMA BEEN REACHED j 1P 18 
1E58 CO 81 1E42 1913 BE LOOP25 IF SO, CHECK THIS ENTRY IF 19 
1E5C CO 87 TE4C 1914 B UTCNT4 IF NOT CHECK NEXT CHARACTER TPA 
1915 } tic 
1E60 EX 02 01 1916 LOOP21 LA 1(,XR2) ,XR2 INCREMENT ADDRESS POINTER 1F20 
1E63 BD 40 00 1917 CLI O(,XR2),c*® * REACHED THE END OF RECORD? 1F21 
1E66 F2 81 OB 1918 JE OTCHT1 THEN SKIP 1F22 
1E69 BD 6B 00 1919 CLI 0(,XR2},-C',* REACHED A COBMA? iF 2 
DATE 29AUG75 22DEC75 30APR76 25BHAR77 PROG ID ppg-3) DATE 
EC NO. 827804 827836 571872 571989 PAGE 16 EC NO. 


$ 
? 


3340 CE DISK EDITOR 


OBJECT CODE 


co 
co 


35 
b2 
c2 


B2 
7D 
co 


7c 
3c 
D2 
E2 
OE 
BD 
co 


3c 
3c 
co 


38 
co 
co 
04 
4E 


01 
87 


01 
01 
02 


07 
&0 
07 


6B 
FF 
01 
02 
00 
&O 
O14 


0c 
0% 
OT 
02 


E7 
81 
4&0 
81 
O71 
02 
8&7? 


G2 
6B 
07 


01 
00 
4&0 
84 
01 
02 
87 


01 
02 
87? 


04 
02 
87 


01 
Qs 
87 


FO 
9¢ 
87 


35AC 


co 
06 
37 


87 


35E3 
CO 87 IDES 


29AUG75 
827804 


TE60 
TE3B 


TE38 
Q3 
9A83 


01 
06 
1E7F 


a0 

TEA& 

GF 

01 

TEAS OACSZ 
06 

1E90 


00 09 
1E38 
o4 
00 


00 
70 
60 
37 
oi 
é1 
TEBI 


0% 
oo 
TEC7 


2acs 
00 07 
0% 
OA 
01 
01 
TEDS 


2acs 
1EB1 
1E38 


OAad 
1429 


2BBS8 
20CT 
20ce 


27F5 


IDED 
2R42 


2442 


1F18 
TFt9 
TF1B 


4?26 
iF24 
iP23 


22DEC75S 
827836 


4248217 IBM MAINTENANCE DIAGNOSTIC PROGRAMS 


AOD 12 


1926 

1921 

1922 

1923 

1924 

1925 
1926 

1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
4937 
4938 
1935 
1940 
1941 
4942 
1943 
1944 
1945 
1946 
4947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1560 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1976 
1971 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1986 
1985 
1986 


ADDR STAT SOURCE 


& 
UTCNTI 


LOOP22 


LOOP23 


qYCS 


LOOP2& 


OTCHT2 


UTCHTS 


OTCNTE 


UTCHT3 


CFRTRN 


 BORPRB76 


571872 


STATEMENT 

BNE LOOP21 

B ODSCR 

L TMADR1,XR1 
LA 3{,XR1),XRi 
LA RERDING3,XR2 
LA 1(,XR1) -XR1 
CLI O¢,XR1),C* ° 
BNE LOOP22 

BVI O€,ER1p,C*%," 
BVI N¥CS9¢1,X*PF® 
LA 1(,XR1) XR 
LA 1(,XR2) -XR2 
aLC = BYC914(1) ,OBE 
CLI 0f€,ZR2},cC* ° 
BRE  LOOP23 

HVC 0 (#=#,XR1} ,0(,XR2) 
L THADR1,XRi 
LA & (,XR1),XR1 
LA C (,XR1) -XR2 
CLI 0O(,ZB1),C*x? 
JE UTCHT2 

CLI O(,zZR1),C* ! 
JE OTCKT3 

LA 1(,XR1} -XR1 
B 1(_¢ X82} -XR2 
B LOOP 24& 

LA 1(,XR2) ¢XR2 
CLI 0(,XR2},C*,® 
BNE OTCNT2 

St ADDER, XR1 

MVC 0(1,XR1)¢1(_XR2) 
CLI 1(,XR2},c* * 
JE UICNT6 

LA 1(,XR1) ,XR1 
LA 1(,XR2) ,XR2 
B UTCHTS 

L ADDR, XE1 

LA 0 (,XR1) -XR2 
B LOOP24 

L THADR1,XR1 
LA READIN, XR2 

B wRT1 

HVI WAS,1 

HVI PRAS,5 

B RURTN 

TBR USECRT,X*FO* 
BF CPRT3 

B PRINTI 

pc XL1°01° 

DC AL1(REM~RESB) 
pc AL2 (REA) 

B PRINT1 

DC ZL7°06° 

pc AL1 (REM2-REMB2) 
Dc AL2 (REM2) 

B CFRTS 
258AB77 

571999 


4248217 
16A 


PART NO. 
PAGE 


IP NOT, TREN SEARCH THE NEXT CHAR. 
IF YES, THEN SEE IF IDENTICAL ENTRY 
ALREADY IN UDT TABLE 

INITIALIZE POINTERS 


INCREMENT POINTER 
SCAN TO 
END OF RECORD 


INSERT COMMA 
OVERLAY LENGTH FIELD TO -1 IN HVC 
INCREMENT ADDRESS 

POINTERS 
INCREMENT LENGTH FIELD 
REACHED THE END OF UDTX RECORD? 
IF NOT, DO IT AGAIN © 


ADD ENTRY TO UDT RECORD 
LOAD ADDRESS 


POINTERS 


SCAN FOR X ENTRIES 
SKIP IF EQUAL 
REACHED ERD OF RECORD? 


INCREMENT 
POINTERS 
SCAN SOME HORE FOR X ENTRIES 


INCREHENT ADDRESS POINTER 
REACHED A COMBA es, : 
IF NOT INCREMENT TO ANOTHER CHAR. 


SAVE XkR1 
OVERLAY OLD ENTRY 
REACHED THE END? 
THEN QUIT 
INCREMENT ADDRESS 

POINTERS 
DO IT AGAIR 
RESTORE 

REGISTERS 


RESTORE REGISTERS 


GO WRITE UDT RECORD 


SET UP RWRTN PARAMETERS TO WRITE 
NEW ENTRIES FOR DCP 
MOVE IN NEW ENTRIES 


IF 5471 IS NOT BEING USED THEW 
RETORN 

DISPLY REMINDER TO IPL MESSAGE 
FLAG 

MESSAGE LENGTA 

MESSAGE ADDRESS 

DISPLY REMINDER TO IPL MESSAGE 
FLAG 

MESSAGE LENGTH 

MESSAGE ADDRESS 

ALLOW USER T0 HIT ENTER AFTER 


DD6-3 
16A 


PROG ID 
PAGE 








NO. 4248217 
IBM MAINTENANCE DIAGNOSTIC PROGRANS el NO. Reteeiere MAINTENANCE DIAGNOSTIC PROGRAM pe 2 at 
DD63 «3340 CE DISK EDITOR KOD 12 BPOS> © SIRO Ce DISK: EDETOR MOD: Ne 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT : 
1987 * READING MESSAGE 2005 Be a eG men Tt ote e ee RE OE ee Re eR Teo eRe ee mee 
epre 2006 * 

“ape a a7 ace igus ee - pia e eecusi nC aia OErice MENU 2007 * THIS PORTION OF THE LISTING CONTAINS THE SUBROUTINES USED * 
1990 * aoe : BY THE DIFFERENT PROGRAM OPTIONS. : 
ies Fe eG tee ae ieee nr e 2010 SESESSERSEEEKEKAERERSEASESKLECELERERAEESEKECEAESEAERAERE EKEREK DE EE ESE EREERE 

1F30 CO 87 O2128 1993 CFGERR B PRINT PRINT “ERROR IN CONPIG REC* D? 20171 
1F34 42 - 1P34-1994 pc XL1°42# 2011 
1F35 38 1P35 1995 pc AL1(CERR-CERRB) 2071 
1F36 3028 1F37 1996 DC AL2(CERR) 2011 
1P38 FFES 1F39 1997 Dc XL2*FFES* 2011 
1F3A CO 87 2A8A 1998 B PRINT2 PRINT THE INPUT RECORD 2011 
1F3E 38 20 27F5 1999 TBN USECET,X'FO? IF USING THE 547%,DON°T HALT Soa 
1F42 CO 10 DED 20006 BT CFRT3 
1F46 CO 87 6222 2001 B HALT oO ee ee 
1PGA FFES 1P4B 2002 DC =—- XL2* FFES* ia is pee teeiee espa 
1F4&c CO 87 OBCB 2003 B EDITAA sue Sooo rea eee ner eee ate ee Centres Seah emnre ae * : 
2016 * COMPRESS DATA SUBROUTINE * 
2017 * * 
2078 KFEEKECKKSKSERSESASSEEHKERESKESKEKSEKEKRSESESESRAKEEKEKSKAKEKSKSEKKSEKAKKE KKKEKAKEEEE 
2019 
2019 
1F50 00 1F50 2020 TEMPS DC ILifor 
1P51 0000 1F52 2021 XR2WK DC IL2*0# 
1F52 2022 TEMP8 EQU XR2WK 
1P53 FFFD 1P54 2023 NEG3 DC IL2*-3¢ 
1F55 FFFC 1F56 2024 NEG4 DC IL2¢~42 
1P57 0000 1F58 2025 ADDR? pC IL2*0* 
2026 
2026 
4P59 34 08 2025 2027 CHPRS1 ST COMPXT+3, ARR STORE EXIT ADDRESS 
2028 
1F5D 3D 01 2AaBF 2029 CLI CDiOR2,1 IS IT A COMPRESSED CARD? 
1P61 F2 81 87 2030 JE CPCNT1 THEN DON'T COMPRESS 
2031 
1P64 34 01 1F58 2032 ST ADDR1,XR1 STORE XYR1 
1F68 34 02 2aCc5 2033 st ADDR, XR2 SAVE XE2 
2034 
TF6C 2C 00 1F50 58 2035 MVC TEKP9 (1) .88(,XR2) SAVE FIRST BYTE OF ID 
1F71 C2 02 OAD8S 2036 LA READIN¢88,XR2 INITIALIZE XR2 
1F75 BD DO 00 2037 AA19 CLI 0O(,XR2),X*DO® IS THIS A NON-URIQUE CHARACTER? 
1F78 F201 03 2038 JNE AA18 WO,CONTINUE PROCESSING 
1F7B BC 2A 00 2039 BYI 0(,XR2),X°2a* YES, SUBSTITUTE A UNIQUE CONFIG 
TF7E 36 02 OB9C 2040 AAS A MINDS1, XR2 DECREMENT XR2 TO POINT TOC NEXT 
1F82 34 02 1F52 2041 st XR2WK,XR2 BYTE TO BE COMPRESSED 
iF86 OD 01 1F52 3174 2042 CLC XR2WK(2),READAD IP ALL TEXT INFO. BAS NOT 
1F8C CO O02 1F75 2043 BNL AA19 BEEN COMPRESSED, REPEAT THE LOOP 
1F90 C2 01 OAD? 2044 LA READIN¢87,XR1 LOAD XR1 
1F94 D2 02 00 2045 LA 0 (,XR1) ,XR2 LOAD XR2 
1F97 3C 00 1IFA2 2046 AA2O HVE 8 SS141,6 INITIALIZE LENGTH FIELD 
iF9B OC 00 1Fa6 1Fa2 2047 CMLOOP SVC $5241(1),SS1#1 
1PA1 AE 00 01 014 2048 SS1 ALC 1 (#=*,. XR2}, 1, XR2) SHIFT ONE BIT OFF 
TFA5 AE 00 01 01 2049 Ss2 ALC - 1 (= *, XR2) ,1(,XR2} SHIFT ONE BIT OFF 
TPA9 OF 00 1PA2 0A03 2050 ALC SS1¢1(1) ,ONE STEP 
TPAPF 3D 04 GFA2 2051 CLI SS1¢1,4 TEST FOR 4 BYTES COMPRESSED 
1FB3 CO 01 1F9B 2052 BRE CMLOOP BRANCH IF NO 
1FB7 6C 02 O01 00 2053 HVC §€(3,XR1),.0(,XR2) MOVE 3 COMPRESSED BYTES 
1FBB 36 01 1F54 2054 A NEG3,XR1 DECREMENT REGISTERS 
1FBF 36 02 1FP56 2055 a NEGS, XR2 
1FC3 34 02 1F52 2056 st XR2WK,XR2 STORE NEW VALUE 
1FC7 OD 01 1P52 3174 2057 CLC XR2WK(2},READRD COMPARE WITH LAST ADDRESS 
TFCD CO 02 1F97 “058 BNL AA20 CONTINUE TILL CARD IS FINISHED 
iFD1 35 01 1F58 2059 L ADDE1,XR1 RELOAD XR1 
1PES 35 02 2ac5 2060 L ADDER, XR2 RESTORE XR2 
2061 
1FD9 2C 41 0B77 58 2062 LVC DGSNS1 (66) .88(,XR2} ADJUST FIELD TO PROPER POSITION 
iFDE 8C 44 4&2 0B77 2063 MVC «66 (66,XR2),DGSNS1 
DATE 29A0G75 22DEC75 30APR76 25HAR77 PROG ID DD6-3 DATE 29AUG75 22DECT5 3OAPR76 25BAR77 PROG ID DD6~-3 
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TPE3 
VFE6 


IFEB 
TFEF 
TFF2 
TFF6 
TFFO 
TPFD 


2000 
2006 
200c 
200F 
2015 
2018 
2021 
2024 


2028 


262C 


202E 
20 32 
2036 
2038 
2038 
203D 
203F 
2045 
2048 
204P 
2053 
2057 
20528 
2057 
2060 
2062 
2664 
2067 
206A 
2070 
2073 
2076 
2079 
207C 
2082 
2088 
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3340 CE DISK EDITOR MOD 12 DDS63 3340 CE DISK EDITOR BOD 12 
OBJECT CODE ADDR STHT SOURCE STATESENT ERR LOC OBJECT CODE ADDR STAT SOURCE STATENERT 
BC E32 00 2064 BVI 0O¢,XR2),C*T! INSERT 7 208C 3C O00 OADF 2123 CONTAS HYI READINS95,0 CLEAR OUT ID FIELD 
8c 00 58 1750 2065 MVC 88(1,XR2),TEMPS REPLACE DESTROYED BYTE 2030 OC 06 OADE OADF 2126 BYC KEADINGS4 (7) ,READINGSS 
2066 2096 C2 01 OAD? 2425 LA READIN¢87,ZR4 
3D OF 2AB0 2067 CPCHT1 CLI SCDFG, X*OF® IS THIS A SYSTES TEST HNODULE? 2098 34 OF 20BB 2126 CORTA4 ST TESPT,ER1 
F2 81 36 2068 JE COMPXT IP SO, DON®T PAD WITH ZEROS <O9E OD OF 2063 2GB8 2427 CLO DEST (2) ,TEMPI 
38 OF 22aD 2069 TBN PFLAG, X*OF® IS THIS PROG DATA DECK 20A4 F2 02 OB 2128 JNL CONTA6 
F2 90 07 2070 JP ZOUT WO, ZERO OUT THE FIELD 20A7 7 00 00 2723 BVI O{,XRi},0 
AC 07 4F SF 2071 SEQEY MYC 79(8,XR2),95(,XR2)} ELSE MOVE ID/SEQ TO COMP POSITION 20AA 36 01 OBST 2730 A AIRGS 1, ZR1 
F2 87 28 2072 J COSPXT YES, THEN DON'T PAD WITH ZEROS 20AE CO 87 20928 2131 B CONTAS 
2073 20B2 35 01 219A 2132 CORTAS L TEMPS, XR RELOAD REGISTER 
OC 00 200EF OA81 2074 ZOUT HVC #AVI3¢2{1),READING1 ZERO OUT-UNUSED PORTION OF FIELD 2133 
OE 00 200E 2BF0 2075 ALC =BYI3¢2(1} ,X5 PRECEDED BY A X*FF* DELIMITER 20B6 cO 87 0000 2134 CONVTR B t= RETURN TO CALLER 
BC FF 60 2076 SVI3 MVI «—«- *=# (, XR2) ,X° FF* 2135 
OE 00 200E 2BEA 2077 ALC = B¥I342(1) ,X2 2135 
OC 00 2025 2BFC 2078 RVC BMVC841¢(1) ,x87 2135 
OF 00 2025 200E 2079 SLC HY¥CB47(1) ,BYI3¢2 2135 
BC 00 57 2080 MVI 87 (,ZR2},0 ZERO OUT RIGHTMOST BYTE 2135 
AC 00 56 57 ate BVC8 BYC 86 (*-*,XR2),87(,XR2} ZERO OUT REST OF FIELD 2135 
08 2135 
cO 87 0000 2083 COMPXT B t—# RETURN TO CALLER 2135 
2084 ; 2136 KeeeeseeKSESS 
2088 2137 * RWETN * 
2084 ZI3Z8B FeESHSSECECARSEK SS SERSEKEKASSSEKSERSESSKEKREKRKKESEAKREKRKKECKKHEKRE KEKEKEKEEREKEEKSE 
2084 2139 * THIS SUBROUTINE READS DATA IN FROM C C # B R FIELD IN FIELD * 
2084 2740 * PNAS, AND WRITES IT ON THE SAME MODULE AT LOCATION CC HHR  *#* 
2084 2144 * IN THE FIELD *NAS*. * 
2084 2i42 + - 
2084 ZI43S SSSSEESSESACLSKASESESKSEEASKERAKSKKSK SAKES KKRSEKKAKSEEKSEEHKKSEHKASE SESH SKKKKESEBEKEEEE 
2085 e#eeeaseeneee 2144 
2086 * CONVERT # 2744 
2O0B7 SRFRSK EASES SSESESSESSE SERS SEEDS ESTERS SESS SRES SHA SERESKESSREKETEE SEEKERS TES 20Ba 06906 20BB 2745 TEBP* bc IL2*O* 
2088 « THIS SUBRT CONVERTS REP CARDS INiO TEdT CARD> s 20BC G00GCG000000 20C1 2746 WINAS OC 6ILISGE 
2089 * # 20¢2 000000600006 20C7 2747 PHAS DC 6IL1°68 
2090 SSESKKSERERES SCAKERESHSSSERKERSE REESE SCERESSHSKSSERRESERKHKEKSKSHKALSAHEREEE 2148 
2094 2748 
2091 260C8 2149 BHRTE EQU * 
OAB4 202D 2092 READY DC AL2 (READIN@4) 20C8 3% 08 2137 2150 ST RERTRR¢3, ARR 
2093 20cc OC O64 20BB 2BE2 2451 HVC TEMP1(2),SECT¢ MOVE # OF SECTORS TO BE HOVED INTO 
2093 2152 A BUFFER 
38 08 2039 2094 CONVRT ST CONYTR¢3,RRR SAVE RETURN ADDRESS 20D2 3C OO 2AAE 2153 H¥Z RWRTFG,O RESET FLAG 
34 O71 219A 2095 ST TEMPG, XR? SAVE REGISTER 20D6 OC 08 2BD2 20C7 2754 a¥C DDCPS# (5) , PNAS SET UP DUAL CONTROL FIELD FOR MOVING 
CO 8? 0226 2096 B PACK CONVERT FROM EBCDID TO HEX 20DC 0C O04 Z2BBC Z2BBB 2755 BYC DDCFTH (5) NAS PROGRAM 
04 203A 2097 DC Indege SOURCE LENGTH 27156 
OAa85 203C 2098 Dc AL2 (READIN¢5} SOURCE 20E2 Ob G41 20BB ZEBRA 2757 LOOCPI7 cic TEMP1 {2} ,X4%8 IS #@ OF SECTORS < 487 
0n81 203E 2099 pc AL2 (READING1} DESTINATION 2058 F2 04% OP 2758 JNH CHCNT2 THEN JOUBP 
Oc 07 OAS3 OABi 2100 MVC READIN¢3(2),READIN€1 PUT ADDRESS IN RIGHT PLACE 20EB 3C 2F Z2BD6 2159 AVI 9 DDC FS ,47 SET CONTROL FIELD TO HOVE 48 REC*S 
Oc 01 2063 202D 2101 MVC DEST (2}, READS INITIALIZE DESTINATION PIELD 20EF OF C1 20BB 2BFA 2160 SLC TERP1{(2},2%48 DECREHENT COUNTER 
C2 01 OASBB .2102 LA READIN@8,XR1 LOAD £R1 20F5 F2 &7 7 2167 J CNCNTE3 JUEP 
3c E3 Oa89d 2103 NVI READIN,C*Té CONVERT TO TEXT CARD 20F8 Oc 00 2BbE 20885 2162 CHCNT2 AVC DDCFS{i},TENP1 SET @ OF RECORDS TO MOVE 
3C 00 OAB4 2704 MYT READIN¢1,0 INITIALIZE LENGTS TO *ONE® 20FE OF 30 2BD6 OAOS 2163 Sic DDCFS (1) ,ONE ADJUST IT 
34 01 2061 2105 NEXT ST SRCE, ER? UPDATE SOURCE ADDRESS 2104 3C OF 2AAE 2164 HVE NURTFG,L*OF! SET FLAG TO QUIT 
CO 87 0226 2106 B PACK CONVERT DATA FRON EBCDIC TO HEX 2165 
02 20S5F 2107 pc ILi#2¢ LENGTE 2108 OC 00 2BEO 2BD6 2166 CMCNTS MVC DDCFT{1),DDCFS SET BOTH FIELDS 
0000 2061 2108 SRCE DC AL2 (#~%) SOURCE 2167 
0000 2063 24109 DEST pc AL2 (#-%) DESTINATION 2iGE CO 87 239C 2168 B SI RRG READ IN RECORDS TO HOVE 
7D 40 61 2110 CLI 4(,XR1},C* * IS NEXT COLUMN BLANK? 2412 80 2212 2169 DC XLI°80° READ FLAG 
F2 81 22 2111 JE CONTAS CONTINGE PROCESS 2173 4800 2124 21706 De AL2 (DDDF) 
OE 01 0863 0a03 2712 ALC READIN*3(2) ,ONE INCREMENT RIGHT ADDRES POINTER 2145 2BCD 2116 2171 DC AL2Z (DDCFSB) 
7D 6B 01 2113 CLI 1(,XR1),C*,* IS NEXT COLUSN A COMBA? 2772 
F2 01 03 2118 INE  ¥*66 SKIP IF KOT 2117 CO 87 239¢ 2173 B SINRY WRITE RECORDS TO MOVE 
D2 01 01 2115 LA 1(, XR1) , XR1 INCREMENT POINTER 211B 40 219B 2174 De ELT#408 mnit ef aee 
D2 07% 02 2116 LA 2(,XR1} XR? 211C 4800 223D 2175 pc AL2 (DDDF) 
OE 01 2063 OA03 2117 ALC DEST{2),ONE INCREMENT DESTINATION FIELD 211E 2BD? 2UtF 2776 DC AL2 (DDCFTB) 
OE 00 OA81 0a03 2118 ALC READIN¢4(1),ONE INCREMENT LENGTH «177 
CO @7 2057 2179 B NEXT CONTINUE 2120 CO 87 2795 2178 B STPFLD STEP CONTROL FIELD 
2120 * 2124 2BD2 2125 21479 DC AL2 (DDCPS#) 
2127 * SET REST OF FIELD TO X*00*. 2126 CO 87 2738 2189 B STPFLD STEP CONTROL FIELD 
2122 * 212A 2BDC 2128 2181 DC AL2 (DDCFTS) 
29AUG75 22DEC75 = 30APR76.0——s- 25MAR77 PROG ID DD6é-3 DATE 2920G75  22DEC7?5 30APR76 25MHAR7? EaUGe? pee? 
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DD63 3340 CE DISK EDITOR HOD 12 DD63 3340 CE DISK EDITOR HOD 12 
‘ERR LOC OBJECT CODE ADDR STHT SOURCE STATEMENT 


ERR LOC OBJECT CODE . ‘EDDR STMT SOURCE STATEMENT 


2182 i 2234 ECEKECKAKKESEKAEREKEKEESTEKEESEESEKEKESEEEKESECHESE REESE SE EKEEEESEHEESESEES KEE 
212C 3D 00 2AAE 2183 CLI NWRTFG,0 2235 * THIS SUBRT STEPS THE DISK DRIVE CONTROL FIELD TO _* 
2130 CO 81 20E2 2184 BE _—‘LOOP17 2236 * THE NEXT SECTOR. : 

2185 2237 * THE FORMAT FOLLOWS: * 
2134 CO 87 0000 2186 RWRTNR B ++ 2238 * . 

2187 2239 * B STPFLD * 

2187 , 2240 * DC AL2 (#-*) THIS IS THE RIGHT END ADDRESS OF *#* 

2187 2241 * A FIVE BYTE FIELD CONTAINING te 

2187 2242 * CC HE R. * 

2187 ’ 2263 * . 

2187 : 2244 SRECKESSEKECKKESE EKEKSSESEEKARSESRESKERAHKKSEKESKSKEKSSKESEKEKEKEKSKLKAKSEEEKSEKEHEKES ES 

2187 2245 

2187 2265 

2188 *eeeeeeteeses 2194 0000000000 2198 2246 DDCFX DC SIL1*O# 

2189 * RDERT * 2199 0000 2194 2247 TEMPS DC IL2*0* 

2190 ERERKREKEKREKRSEKERERERERERAESRERERE REECE RESEKEEKEEES ESEYLEAKEEREEEEKERSE EERE EE é 2 2248 

2191 * THIS SUBROUTINE READS FROM ONE DATA MODULE, AND WRITES ON * 2248 

2192 * ANOTHER. THE FROM DATA MODULE Q CODE SHOULD BE IN *FRDRV#' * 219B 34 08 2200 2249 STPFLD ST STPPLR¢3, ARR SAVE ADDRESS 

2193 * AND THE TO Q CODE IN "TODRV#! THE C C H H FIELD TO START *. 219F OE 01 2200 0aA03 2250 ALC STPFLR¢3 (2) ,ONE POINT TO FIELD ADDRESS 

2194 * DUPPING AT IN *STRSCT*, AND THE C C H H FIELD TO STOP AT * 21a5 OC 01 21B0 2200 2251 YC MVC6*5 (2) ~STPFLRtE3 OVERLAY INSTRUCTION 

2195 * IK *STPSCT' (4 BYTE FIELDS). * 21AB OC 01 21B6 0000 2252 KYC6 MVC BHVC3¢5 (2) ,*~* 

2196 * * 2181 OC 04 2198 0000 2253 #¥C3) SVC DDCPX(5),*-* MOVE IN FIELD TO BE WORKED ON 

219] FERKSEEESSEERESESAESESEEREE EEE SESE ESKER TEREEESESEALEREREEREST SEES HEESESE EE 21B7 OF 01 2200 OAO03 2254 ALC STPPLRE3 (2) ,ONE POINT TO BETUEN ADDRESS 

2198 2255 

2198 21BD 3D 30 2198 2256 CLI DDCFX,48 IS R FIELD EQUAL TO 48? 

2138 00000000 213B 2199 STRSCT DC 4IL1*O# 21c1 F2 02 09 2257 JNL INCHD THEN GO TO NEW HEAD 
213C 00000000 213F 2200 STPSCT DC 4IL1*O# 21C4 OF 00 2198 0a03 2258 ALC DDCPX (1) ,ONE INCREMENT REC # 

2201 21CA F2 87 24 2259 J CONTAS 

2201 2260 
2140 34 08 2193 2202 RDWRT ST RDWRTK+3, ARR SAVE RETURN ADDRESS 21CD 3D 13 2197 2261 INCHD CLI DDCFX~1,19 IS HEAD #@ 19? 

2203 21D1 F2 02 OD 2242 JNL INCCL THEN INCRESENST CYLINDER 
2144 OC 03 2BD1 213B 2204 MVC DDCFSH#-1(4),STRSCT SET UP C C H H FIELD 21D4 3C 01 2198 2263 MVI = DDCFX,1 RESET TO RECORD 1 
214K 3C 01 2BD2 2295 NVI DDCFSH, 1 START AT kKECORD 1 27D8 OF OT 2197 0A03 2264 ALC DDCFX-1 (2) ~OHE INCREMENT HEAD 
214E OC 09 2BEO 2BD6 2206 MVC =©DDCFT (10), DDCFS DO THE SAME FOR THE WRITE DDCF 21DE F2 87 10 2265 J CONTAS 

2207 2266 
2154 3C 2F 2BD6 2208 LOOP11 MVI DDCFS,47 SET UP FIELDS TO WRITE 21E1 OF 01 2195 OAO03 2267 INCCL ALC DDCFX~3 (2) ,ONE INCREMENT CYLINDER 
2158 3C 2F 2BE0 2209 MVI DDCFT ,47 1 TRACK 21E7 OC 01 2197 2B5A 2268 avc DDCFX-1(2) ,-ZERO HEAD 0 

2210 21ED 3C 01 2198 2269 MVI DDCFX,1 RECORD 1 
215C OC 00 2348E 2C01 2211 MYC DRIVE#(1),FRDRV# SET WINRW TO OPERATE ON RIGHT DRY 2270 
2162 CO 87 239C 2212 B WINRG READ IN 4&8 RECORDS 21F1 OC 071 21FA 21B6 2271 CONTAS NVC BVC44¢3 (2) ,AVC3¢5 OVERLAY INSTRUCTION 
2166 80 2166 2213 De XL1°80* READ FLAG 21F7 OC O& 0000 2198 2272 SYC4 AVC we % (5), DDC FX REPLACE FIELD 
2167 4800 2168 2214 pc AL2 (DDDF) 2273 
2169 2BCD 216A 2215 Dc AL2 (DDCFSB) 21FD CO 87 0000 2274 STPFLR B +-* RETURN TO CALLER 

2216 2275 
216B 0C 00 234E 2C02 2217 SVC DRIVE#(1) ,TODRV# SET WINRW TO OPERATE ON RIGAT DRV 2275 
2171 CO 87 239C 2218 B WINRW WRITE 48 RECORDS 2275 
2175 40 2175 2219 DC XL1°908 WRITE FLAG 2275 
2176 4800 2177 2220 pc AL2 (DDDF) 2275 
2178 2BD7 2179 2221 DC AL2 (DDCFTB) ' 2275 

2222 2275 
217A CO 87 219B 2223 B STPFLD INCREMENT DDCFS 2275 
217E 2BD2 217F 2224 be AL2 (DDCFSH) j 2276 SECSESAESE SES 
2180 CO 87 2198 2225 B STI7LD INCRESENT DDCFT 2277 *  kRDFAS' 
2184 2BDC 2185 2226 Dc AL2 (DDCFTS) 2278 REKEKEEKESEESEEESERERESE EEEKEES SERSEEKEESEEEEKERSTESEEEEEREEKASEEESSEREEKEEE 

2227 2279 © THIS SUBRT SEEKS TO AND READS THE FAS RECORD * 
2186 OD 03 2BD1 213F 2228 CLC DDCFSH-1(4) ,STPSCT IS IT TISE TO QUIT? 2280 * FORMAT FOLLOWS: = 
218C CO 82 2154 2229 BL LOOP11 IF NOT, GO PACK 2281 * * 
2190 cO 87 0000 2230 RDWRTR B *—* RETURN TO CALLER ' 2282 * B RDPAS THE RECORD READ PROM THE DISK IS * 

, 2231 2283 * DEPOSITED IN THE 12 BYTE FIELD : * 

2231 2284 * '*FASINF®, * 

2231 , 2285 * * 

22371 2286 REKEKEKEKEREEKEKEEKEKS EKEEERAEKERSEESEEREREKEEKEEESEECKEKEKEKEREEAKEEEEEKECES ES 

2231 2°87 

2231 ‘ 2287 

2231 ‘2201 34 08 2241 2288 RDFAS ST RDFASR+3,ARR SAVE RETURN ADRESS 

2231 2205 OC 04 2BC8 2B3D 2289 MVC DDCFRM(5),C3H161 SET UP DDCF FIELD TO READ FAS RCRD 

2232 4#REERSAESRSEE 220B 3c 00 2BCC 2290 AVI DDCFR,0 

2233 * STPFLD * 220F CO 87 239C 2291 B WINRW READ FAS 

DATE 29AUG75 22DEC75 30APR76 25NABR77 PROG ID DD6é-3 DATE 29A0G75 22DEC75 30APR76 258AR77 PROG ID DD6-3 
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DD63 3340 CE DISK EDITOR MOD 12 DD63 3340 CE DISK EDITOR HOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STHT SOURCR STATESERT 
2213 80 2213 2292 pc XL7¢s80¢ READ 2345 * Ds x¥L1 FLAG DEPOSITED BY SUBROUTINE * 
22714 4800 2215 2293 pc AL2 (DDDF) @ OF DDDR CONTENTS 2366 * Dc CL3°pxpt PROGRAM ID TO SCAN FOR IN ¥TOC %* 
2276 2BC3 2217 2298 Dc AL2 (DDCFRB} @ OF DDCR CONTENTS 2347 * - 
2295 2348 © FLAG BYTE: X'OO= NO SCAN HIT THROUGH ENTIRE * 
2278 OD O02 4802 2269 2296 CLC DDDF+2(3) -FAS IS THIS A VIRGIN PACK? 2349 # CONTENTS OF ¥TOC = 
221E F2 01 09 2297 JNE *€12 JusP IF if Is. ok 2350 * X*OF*= SCAN HIT 
2221 OC 08 2272 480B 2298 HVC FASINF(%9) ,DDDF¢11 MOVE INFO TO DESIRED PLACE 2351 * ROTE: ON NO SCAN HIT THE ADDRES LEFT IN THE DDCP FIELD IS a4 
2227 F2 87 14 2299 J RDFASR 2352 * THE NEXT AVAILABLE RECORD FOR YTOC. * 
2300 2353 * * 
222A OC 0% 2272 2B5A 2301 MVC FASINF(2),ZERO ZERO WTOC ENTRIES 2354 * NOTE: TO SCAN TO END OF WTOC, POT °**** IN PRGID . 
2230 OC 0&4 226F 2B5B 2302 MVC FASINB¢8(5},C4HOR1 PUT IN SECTOR OF FIRST FIELD 2355 * . 
2236 3¢C 00 2270 2303 MVI FASINB¢9,0 ZERO FIELD DELIHITERS 2356 EAKRKKERSLAASEREKCEKSESSAESEKRSEAHRA TH SKSEHKTEKKE KSA AESEKAK ERS HES ESS SEKTEKES 
223A 3C 00 226A 2308 HVI  FASINB+3,0 2357 
2305 , 2357 
223E cO 87 6000 2306 RDFASR B s—% RETURN TO CALLER 2267 2358 FASINB EQU) * 
2307 2267 C6CTEZ 2269 2359 FAS pc CL3* FAS? 
2307 226A 0000000000000000 2272 2360 FASINP DC 9IL1° OF 
2307 2272 00 2360 
2307 226F 2361 FASINH EQU  FASINB+¢6 
2307 2273 5C5C5C 2275 2362 AST Dc CL3* #6 
2307 2276 0000 2277 2363 TEMP3 DC IL2*0€ 
2307 2278 OOFP 2279 2364 x255 DC IL2* 255° 
2307 2365 ; 
2308 *eesesseesees 2365 ai 
2309 * WRFAS 2365 
2310 FEEREEEEESESE SEEKS H* SHORE SECSERSEEESSESEESS SESE ESE EKERESSESSSESESESEEREESE 227k 38 08 234D 2366 SCNYTC ST SCHYTR+3 , ARE SAVE RETORE ADDRESS 
2311 * THIS SUBROUTINE WRITES INFO IN THE FAS REGION % 227E 34 01 2277 2367 St TEMP3,XR1 SAVE XR? 
2312 * * 2282 35 01 234D 2368 L SCHYTRE3,XR1 LOAD XR1 
2373 * FORNAT FOLLOSS: & 2369 
2374 + * 2286 OE O01 234D 2BEE 2370 ALC SCRYTR¢3(2),-X4 IRCREKENT TO RETURN ADDRESS 
2315 * B WRFAS DATA STORED Ii; THE 12 BYTE FIELD: #* 237% 
2316 * ®PASINF? IS WRITTER IN THE FAS THE * 2280 CO BF 2201 2372 B RDPAS GO READ FAS 
2377 * FAS REGION O#8 THE DiSkK. * 2290 Oc 04 2BBE 2860 2373 BYC DDCFS (5} ,CZHORI SET DDCF 
2318 * * 2296 3C OC 2BC2 2374 HVYZ pDDCF,O 
23719 KRERBKEKREKESESKEKLAKKSESKBEAREKAHSKSESKSKESCSKEFESCKSESSRSERKSKSRSESSECETHESEKKHSSKTSE SH 2375 
2320 229A OD 0% 2272 2B5A 2376 CLC FASINF(2),ZERO SEE IF VIRGIN PACK 
23206 22aG F2 81 87 2377 JE END? GO HANDLE IT 
2242 34 08 2266 2321 WRFAS ST WRFASR¢3, ARB SAVE RETURN ADDRESS 2378 
2322 22A3 D2 91 63 2379 LA 3(,ZR1) ,XR1 INCREBENT XRG 
2246 OC 04% 2BC8 2B3D 2323 SVC DDCERM(5) C3161 SET UP DDCP FIELD 2246 34 C1 22C3 2380 st HYC?4¢5,ZR1T OVERLAY MOVE INSTRUCTION 
224¢ 3c 00 2BCC 2324 MVI  DDCFR,0 Z22AA 36 01 1F54 2381 A NEG3,XR1 DECREMENT XR1 BY 3 
2250 CO 87 0B78 2325 B SETTO SET FIELD TO X'FF* S 2382 
2254 OC OB 480B 2272 2326 HVC) =©96DDDF*¢14(12) .FASINF SET UP DDDF FIELD TO PROPER INFO 22aE 3C FF &&8FP 2383 MVI DDDF+#255,X‘*FF* FILL DDDF WITH X*FF* 
2327 22B2 OC FE 48FE 48FF 2364 BYC DDDF+254 (255) ,DDDF+*#255 
2254 CO 87 239C 2328 B WINRG WRITE INFO ON HODULE 2385 
225E 40 225E 2329 pc XL7"4Q¢ WRITE 22B8 0C 03 4803 2893 2386 H¥YC DDDF+¢3(4),ACTO PUT IN SCAN PARAMETERS 
225F 4800 2260 2330 pc AL2 (DDDF} @ OF DDDR CONTENTS 22BE 0C 02 4606 0000 2387 MYC? HVC DDDF+6(3) ,#-* 
2261 2BC3 2262 2331 pc AL2 (DDCFRB) @ OF DDCR CONTERTS 2388 
2332 22c4 OD 92 4806 2275 2389 CLC DDDF+6 (3) ,AST IF PID DOESH*T = *#eee 
2263 cO 87 0000 2333 WRPRA toe 22Ck F2 O1 OA 2390 JNE #413 THEN JUMP 
2334 oie Deen 22CD 3c 00 487F 2391 NVI DDDF+127,0 OTHERWISE ZERO OUT HALF OF SCAN FLD 
2334 22D1 OC 7E 487E 487F 2392 HVC DDDF+126 (127) ,DDDF*¢t27 
2334 2393 
2334 22D7 3C 00 2ABu 239% M¥I  LSTSCN,O 
2334 22DB OC 00 2315 234E 2395 MYC T1018¢%(1),DRIVE¢ OVERLAY TIO INST 
23346 22E? 3A C3 2315 2396 SBN TI018¢1,X'03* : 
2334 22E5 OC O01 2ADP 2272 2397 SVC T£NP2(2),PASINF KEEP HEAD OF YTOC @# 
2334 2398 . 
2335 Seeeee eee ERED '  22EB GD 01 2ADF 2279 2399 LOOPS CLC TESP2 (2) ,X%255 IS # OF RECORDS TO SCAN >255? 
2336 * SCNVTC * 22F1 F2 G& OD 2400 JH *4#16 SKIP IF NOT 
2337 FERRE ERE EERSSESHESESEE SEREREE RS RESTEEEEERERE SESE EREERE SEE EEEEERESHHEEE ES | 22F4 OF 01 2ADF 2279 2401 SLC TESP2(2),%255 DECREMENT COUNTER 
2338 * . THIS SUBROUTINE SCANS VTOC FOR THE ID IN THE PARAMETER * 22FA 3C FE 2BC2 2402 aVI DDCF,254 SET DDCF 
2339 * LIST. IT THEN SETS A FLAG INDICATING SCAN HIT OR NOT. * 22PE P2 87 OA 2403 d #413 SXIP 
2340 * THE ADDRESS OF THE HIT AND ITS CONTENTS ARE SAVED. * 2404 
2241 * * 2301 0c 00 2BC2 2ADF 240 |. MVC DDCF(1} -TEHP2 
2342 * FORMAT FOLLOWS: * 2307 3C FF 2aB4a 2406 BVI LSTSCN,X*FF* SET LAST SCAN FLAG 
2343 * * 2407 
2344 * B _ SCHPTC * 230B CO 87 239C 2408 B WINERY SCAN READ 
DATE 29AUG75 22DEC75 30APR76 25HART7 PROG ID DD6<-2 DATE 29BRUG75 22DEC75 30APR76 25HAR77 PROG ID DD6-3 
EC NO. 827804 827836 571872 571989 PAGE 20 EC NO. 627804 827836 571872 571989 PAGE 20A 
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DD63 
ERR LOC 


230F 
2310 
2312 


2314 


2318 
23tc 


231E 
2322 


2326 


232A 
232E 


2331 
2335 
2339 
233D 
2341 
2342 
2344 


2346 
234A 


234E 


234F 
2353 
2357 
235A 
235E 
2362 
2366 
2369 
236D 


2371 


DATE 
EC NO. 


3340 CE DISK EDITOR 


OBJECT CODE 


20 
4800 
2BB9 


ci 00 


co 87 
2BBE 


3D FF 
co 0a 


34 01 


3c 00 
F2 87 


34 01 
3c¢ OF 
3c 00 
co 87 
80 
4800 
2BB9 


35 01 
cd) 87 


00 


34 08 
39 38 
F2 90 
3c CO 
3C F1 
38 20 
F2 30 
3c cé 
aC F2 


co “7 


29Aa0G7 
827804 


2331 
2198 


2AB4 
22EB 


232D 


0000 
15 


2338 
0000 
2BC2 
239C 


2277 
0000 


2374 
026C 


2348. 
303¢ 
020C 
08 

234E 
303¢c 


0000 


5 


ADDR 


230F 
2311 
2313 


234D 


232A 


2341 
2343 
2345 


234E 


22DEC75 


MOD 12 


STST SOURCE STATEMENT 


2409 
2410 
2411 
2412 
2413 
2474 
2415 


2416. 


2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
24364 
2435 
2436 
2437 
2437 
2437 
2437 
2437 
2437 
2437 
2437 
2438 
2439 


2440 

2447 2 

2442 * 

2443 * 

2444 © 

2845 

2446 

2846 

2447 DRIVE# DC 
2448 

24489 SELDRY ST 
2450 TSF 
2451 JF 
2452 SVI 
2453 AVI 
2454 TBN 
2455 JF 
2456 AVI 
2457 NVI 
2458 * TBN 
2459 * JF 
2460 * AVI 
2461 * MVE 
2462 * TBN 
2463 * JF 
7-464 * BVI 
2465 * AVI 
2466 SLDRVR B 
30APR76 2584877 
573872 571939 


pc 
bc 
Lc 
TIO18 TIO 


B 
bc 


CLI 
BNE 


st 


END1 
AVI1 


EQU 
BVI 
J 


CONTES ST 

HVI2 NVI 
AVI 
B 
bc 
pc 
dc 


SCNYTE L 
SCNUTR B 


SHS EREEETE SS 
* SELDRY * 


XL1*20* 
AL2 (DDDF} 
AL2 (DDCFB} 


CONTES, *-* 


STPFLD 
AL2 (DDCF#) 


LSTSCN, X*FF* 
LOOPS 


BVI%4#3,XR1 


* 
*-*,0 
SCHVTE 


MVI2+3,XR1 
*-*, X°OF? 
DDCF,0 
WINRW 
XL1°808 
AL2 (DDDF} 
AL2 (LDCFB) 


TESP3,XR4 
+t % 


PART NO. 
PAGE 


@ OF DDDF 
@ OF DDCF 


IS IT SCAN HIT? 
INCREMENT SCAN DDCF FIELD. 
IS LAST SCAN FLAG SET? 
RETORN IF NOT 


OVERLAY M¥I INST 


RESET SCAN HIT FT.AG 
RETORN 


OVERLAY INSTRUCTION 
SCT SCAN HIT FLAG 
READ IN 1 RECORD 


4248217 JBM MAINTENANCE DIAGNOSTIC PROGRAM 


21 


READ IN Y¥YICC ENTRY THAT RESULTED 


IN THE SCAN HIT. 


RELOAD XR1 
RETURN TO CALLER 


SEEKER SEKESERSEEEKSEESEKSSEKKESE EELS SEFHEKEKSESEEKEKSEKAEEERERKAKEEEREREES 


SUBROOTINE TO TEST SENSE SWITCHES AND SELECT 
WHICH DISK DRIVE TO USE 


ILiU*Ot 


SLDRVR*3,ARR 


SBYTE&, SSH22¢SSW234¢SSH2U 


£214 
DRIVES,DR1 
KBRDY,C'1? 
SBYTEG,SSW22 
SLDRVR 
DRIVE€,DR2 
KBRDY,C¢2* 
SBYTES,SSK23 
*¢ 74 

DRIVE€, DR3 
KBRDY,C?3! 
SSYTEW, SS¥24 
£444 

DRIVEt, DRY 
KBRDY,C* 4? 
tok 


SAVE RETURN ADDRESS 
TEST FOR DRIVE 1 


SSW10 ON? 
IF NOT RETORN 


SS¥i1 ON? 
CONTINDE IF NOT 
SET FOR DRIVE 3 


SET FOR DRIVE 4 


RETURN TO CALLER 


PROG ID 
PAGE 


i 
* 
= 
ee. 


REEEECESSEKEEEEEEEKKESESEEEES KE SEEE EERE EESEREREEEAEEARERES FEEEEREREEEERESEEK 


DD6-3 
21 


i 
r 


DD63 


334G CE DISK EDITOR 


ERR LOC OBJECT CODE 


2375 
237D 
237F 


2381 


2383 
2388 


238C 
2391 
2393 


2395 
239A 


239C 
23A0 
23A4 
23A8 


23AE 
23B2 
2337 
23BD 
23C3 
23C9 
23CF 
2305 
23DB 
23E1 
23E7 
23ED 


23F1 
23F4 


DATE 
EC WO. 


0000000000000000 


0000 
0000 


0000 


000000000000C000 


00 


0000000000 


238C 
2383 


0000000000 


OC8F 


34 08 
34 01 
35 01 
OE 07 


3C OA 
1c 01 
0c 01 
OE 01 
OE 01 
0C 07 
OE 01 
OC 02 
oc 09 
oc 01 
OD 03 
CO 84 


78 26 
co 10 


29A0G75 
827804 


2522 
2Acs 
2522 
2522 2BFO 
2BFD 

2350 04 
257E 23£0 
23E0 2BF0 
23E0 2BEC 
23D8 23E0 
23E0 0203 
0000 2B8A 
237E 0000 
24B8 23E0 
2379 2387 
2735 


00 
24D9 


22DzEC7 
827836 


ADDR 


2378 


2380 
2381 
2382 
2383 
2388 


238C 
2390 
2392 
2394 
2395 
2399 
2398 


5 


PART NO. 4248217 
PAGE 21a 
HOD 12 
STMT SOURCE STATEMENT 
2468 KERKREREEESE 
2469 * WINRG + 
2EITO SEEK SSSESESERESEEREEEKESESKSEKASESRESSEEEEEKESESESAKSESEKERESEEKCKKERESEKEKESEKKEKERE 
2471 * SUBROUTINES READ, WRITE OR SCAN N RECORDS ON 3340 * 
2472 * ACCESS FORMAT: * 
2473 * B WIRRW BRANCH TO SUBROUTINE * 
2474 * pc XL1 FLAG * 
2475 * DC —_ AL2(#-#) @ OF DISK DRIVE DATA FIELD * 
2476 * DC AL2 (*-*) @ OF DISK DRIVE CONTROL FIELD = 
2477 * * 
2878 * FLAG BITS (NO BORE THAN ONE BIT ON AT A TIME) * 
2479 * BIT * 
2480 * Q- SEEK AND READ * 
2481 * 1- SEEK AND &@RITE * 
2482 * 2” SEEK AND SCAR READ * 
2483 * + 
2484 * VALUES OF BYTE *DRIVE€¢: * 
2485 * DRIVE 1 *DRIVE#*= x*co?e * 
2886 * DRIVE 2 "DRIVE@*= x*cse * 
2487 * DRIVE 3 ®*DRIVE#*= X' DOF * 
2488 * DRIVE 4& *DRIVE#*= x*ps? * 
2489 * + 
QESD FKHKESSESHKESEKSSESEEKRESSKSERSSKESSEESESEESSAKSEKEEFEKSESTHESKEEAETHKESKSECEKSTKKEKESKE REE 
2491 
2491 
2492 BDDCFE DC 10IL1°0O* 
2492 
2493 TDDDR 2C IL2° OF 
2494 QUITFG EQU * 
2495 TDDCR DC IL2*0% 
2496 TDDDF EQU * 
2467 DC —._—s«oSIL1#08 
2497 
2498 TDDCF £EQ0 * 
2499 DCs SIL 408 
2500 TDDCF@ DC = AL2 (TDDCF) 
2501 TDDDF@ DC AL2 (TDDDF) 
2502 OUTREC EQU * 
2503 DC —s SIL 108 
2504 LINKB@ DC AL2 (LINKS) 
2505 
2505 
2505 
2505 
2506 WINRW ST WINRBRt+3, ARR SAVE ADDRESS 
2507 Sst ADDR,XR1 SAVE XRi 
2508 L WINRWRE3,XR1 LOAD POINTER REGISTER 
2509 ALC WINRWRE3 (2) ,X5 SET RETUKN ADDRESS TO NEXT INST 
2510 
25171 aVI ICTR, 10 INITIALIZ= COUNTER 
25%i2 NVC MOV145 (2) ,4(,XR1} OVERLAY SVC INST 
2513 HVC MVI4&+3 (2) ,MOV145 OVERLAY MOVE INSTRUCTOR 
2514 ALC MOV¥145 (2) ,xS CHANGE POINTER 
2515 ALC = HO¥145 (2) ,X3 
2516 HYC MVC10¢3(2) ,MOV1I¢S OVERLAY KEY AND DATA LENGTHS 
2517 ALC MOV145(2} ,ORE 
2518 BYC10 MVC 8 *-*(3),%256 
2519 BOVT BKYC DDCFE (10) ,#-* STORE DDBCF IN ALTERNATE PLACE 
2520 HVC MOV2¢3 (2) , BOV1ES OVERLAY HOVE IRSTROUCTION 
2521 CLC DDCFE~5 (4) ,C33H18 TRYING TO ADD TOO FAR? 
2522 Bd TOOPAR 
2523 
2528 TBN 0(,XR1j .-X'208 IS IT SCAN READ REQUEST? 
2225 Br SCANRD 
2526 
2527 * * 
Sues * THIS SECTION OVERLAYS I/0 INSTRUCTIONS FOR CORRECT DRIVE * 
* * 
30APR76 25MAR77 PROG ID DD6~3 
571872 59 1989 PAGE 214A 














IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248217 IBM MAINTENANCE DIAGNOSTIC PROGRAS PART RO. 4248217 
PAGE 22 PAGE 22A 
DD63 3340 CE DISK EDITOR MOD 12 DD63 3340 CE DISK EDITOR HOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDE STEHT SOURCE STATEMENT 
2530 2597 
23F8 OC 00 246F 234E 2531 BYC SI01¢1¢1) DRIVES OVERLAY SIO INSTRUCTION 2597 
23FE OC 00 2&6C 234E 2532 BVC SI05¢1(1) ,DRIVES OVERLAY SIO INST 2597 
2404 OC 00 2472 234E 2533 HVC TIO&¢1(1) DRIVES OVERLAY TIO INST 24D9 OC 00 250D 234E 2598 SCANED HYC SI010¢1(1) ,DRIVES OVERLAY SIO INSTR 
240A 38 02 2472 2534 SBN TIOe1,x*02° Z4DP 3A 03 250d 2599 SBR $S1010+1,x'038 
240E OC OO 24AF 234E 2535 MVC SIO7¢1(1),DRIVE@ OVERLAY SIO INST 24E3 OC GO 250K 2348 2600 HVC SIO11¢1¢1) ,DRIVE¢ OVERLAY SIO INST 
2414 OC 00 24B2 2348 2536 MVC) 8=—6 TIO 1(1) ,DRIVE# OVERLAY TIO INST 24E9 OC 00 2506 234E 2601 MVC =: TIO94#1(1) , DRIVES OVERLAY TIO INSTR 
241A 3A 01 24UB2 2537 SBN TIOS#1,x°O1° 24EP OC 00 2510 234E 2602 BYC TI010¢1{(1), DRIVES OVERLAY TIO INSTR 
241E OCC 00 2468 234E 2538 HVC =T10141(1), DRIVE? OVERLAY TIO INST 24P5 3A 02 2510 2603 SBN TIO10¢1,x*02* 
2424 OC 06 2476 234E 2539 HVC TIO7*1(¢1) ,DRIVES OVERLAY TIO INST 24F9 OC 00 2514 234E 2604 HVC TiOt1+1¢1),DRIVE# OVERLAY TIO INSTR 
2540 24FF 71 C4& 02 2605 LIO 2{,XR1)_.DDDR LOAD DDDR 
242A 78 40 00 2541 TBE 0(,XR1),X*40° SEE IF READ OR WRITF REQUEST 2502 71 cé O84 2606 LIO = & (, KR1) , DDCR LOAD DDCR 
242D F2 10 07 2542 JT *#10 2505 C1 00 2651 2607 TIOS TIO HALTI,*-* TEST FOR DEVICE NOT READY 
2430 3A 01 246P 2543 SBN SI01¢1,x*07! OVERLAY FOR READ 2509 F3 00 00 2608 SIOT7 SIO £1500°%,#-% SEEK 
2434 F2 87 2A 2544 J RTRY1 JUMP IP WRITE 2669 
2437 3A 02 246F 2545 SBN SIO1#1,x¥"02" OVERLAY FOR WRITE 250C 2610 DRTRH1 EQU 
2438 OC 01 24a0 2320 2546 MYC) = CLI. 14.3 (2) , HOV145 OVERLAY CLI INST 250C F3 00 OC 2677 SIO10 SIO X*0Ct, #-% EXECUTE SCAN READ 
2441 0C 01 2489 2380 2547 MVC MOV343 (2), HOOVES OVERLAY SVC INST 250PF C1 00 250F 2612 TIO10 TIO 4%, ¥#~# WAIT UNTIL DONE 
2447 OC 00 2490 246Cc 2548 HVC =—- SI08# 1(1) , SIOS #4 OVERLAY SIO INST 2513 C1 00 2703 2613 TIO11 TIO HALT2,#-* TEST FOR UNIT CHECK 
244D 0C 00 2493 246C 2549 HVC = S10947(1) ,SI05e1 OVERLAY SIO INST 2614 
2453 3A 01 2493 2550 SBN SI09¢1,xX*'018 FURTHER OVERLAY SIO INST 2616 
2457 0C 00 24696 234E 2551 MVC TIO641(%),DRIVE# OVERLAY TIO INST 2517 35 01 2acS 2615 WINRWT L ADDR, XR1 
245D 3A 02 2496 2552 SBR TI0B841,x°02° 251B 3C 00 0000 2616 BYIG MYI 8 #-#,0 ZER OUT FLAG BYTE BEFORE RETURNING 
2553 . 251F CO 87 0000 2617 WINRWR B aed RETURN TO CALLER 
2461 2554 RTRY1 EQU * 2618 
2555 2618 
2555 2619 * 
24671 71 C4 02 2556 LIO 3 =.2¢,XR1}),DDDR LOAD DISK DRIVE DATA REGISTER 2620 © THIS SECTION FINDS THE ALTERNATE TRACK ADDRESS SEEKS TO IT * 
2464 71 Cb O04 2557 LIO &(,XR1),PDDCR LOAD DISK DRIVE COKTROL REGISTER 2621 * AND RETURNS CONTROL; OR, WHEN COMEING OFF AN ALTERNATE TRACK, * 
2558 2622 # IT GETS THE PROGRAM BACK TO THE RIGHT TRACK. * 
2467 C1 00 26B1 2559 TIO1 TIO HALT1,*-# TEST FOR DEVICE NOT READY ‘ 2623 # = 
246B F3 00 00 2560 SI05 SIO xX*00*,e-« SEE. : 2628 
2561 2626 
246E 2562 DRTRN2 EQU * 2523 34 G8 254Cc 2625 DEFTRK ST DEPTKR¢3,ARR SAVE ADDRESS a 
2563 - 2527 OF 00 2BFD OA03 2626 SLC ICTR(1),ONE DECREMENT LOOP COUNTER 
246E F3 90 00 2564 SIO1 sio X*00% ,#-% READ OR WRITE WN RECORDS 252D CO 81 2699 2627 BZ EE2 QUIT IF 10 TIES 
2471 Ct 00 2471 2565 TIO8 TIO *,#-<¢ TEST FOR ADAPTER NOT BUSY 2531 3D OD OBE? 2628 CLI DBYTE7,X*OD* COMPARE BYTE 7 
2475 C1 00 2703 256€ TIO7 TIO HALT2,*-* TEST FOR NOT READY DURING INST 2535 F2 61 15 2529 JE = TODTRK TF="OD* THEN SEEK TO ALTERNATE 
2567 2630 
2479 38 02 2N6F 2568 TBN  SI01¢1,x"02° IS IT WRITE INST? 2538 OC 01 2544 251E 2631 KVC  «=- BVI5¢3(2) , MVIGe3 OVERLAY INTSTRUCTION TO ZERO DDCF 
247D F2 90 97 2569 JF BINRRT IF NOT, RETURN TC CALLER 253E 3C 0G 0000 ~ 2632 VIS BVI s—#,0 FLAG BYTE. 
2570 2633 
2480 0C 00 249A 2342 2571 MVC) 8=—«: TI.01941(1) ,DRIVE@ OVERLAY TIO 2542 3D OE OB67 2634 CLI DBYTE7,xX*OE* 
2486 OC 09 0000 237E 2572 MOV3 AVC 8 9*=*§€10) ,DDCFE 2546 F2 81 7D 2635 JE FRDTRK 
248C 71 C4 02 2573 LIO 2(,XR1},DDDR RELOAD DDDR 2548 CO 87 0000 2636 DEFTKR B <2 RETURN TO CALLER 
248F F3 00 00 2574 SIO8B SIO 0,*#-# SEEK : 2637 
. 2492 2575 DRTRN3 EQU * . 2523 0C 90 2584 2348 2638 TODTEK KYC TIO1S¢4(1) _DRIVE# OVERLAY TOP ONST 
2492 F3 00 03 2576 SIC9 SIO 3,%-# READ VERIFY 2553 0C 00 2588 234E 2639 HVC SZ02¢1(1),DRIVE# OVERLAY SIO INST 
2495 C1 00 2495 2577 TIO8 TIO *, #—-% WAIT TILL DRIVE NOT BUSY . 2559 3A 01 2588 2640 SRN SIO2+1,x*01° 
2499 €1 90 24D1 2578 TIO019 TIO. CHKI,*<-* UNIT CHECK? : 255D OC 00 2520 2588 2641 B¥YC SI04+1(1),SIO2¢1 
249D 3D FF 0000 2579 CLI1 CLI o—*, X* PPO SUCCESSFUL READ VERIFY? 2563 OC O06 258F 234E 2642 BYC SI03¢1¢1} ,DRIVE€ OVERLAY SIO INST 
24A1 F2 81 73 2580 JE BINRST y 2569 OC 01 Z5AC 23EG6 2643 MVC BVC2¢3 (2) -MOVI4S5 PUT DDCF ADDRES IN MOVE INST 
2581 7 256F OF G1 25AC 2BFO 2644 SLC -MVC243(2} ,X5 ADJUST ADDRESS 
2444 OF 00 2BFD 0A03 2582 BRTRY1 SLC ICTR(1),UNE IS THIS THE 10TH TIHE? 2575 OC 00 259C 2584 2645 AVC = =—- TLO241(1) ,TIOIS¢1 
24AA CO 81 2699 2583 BZ EE2 IF YES GO TO END ROUTINE ; 2646 
24AE F3 00 01 2584 SIO7 SIO X*04*,4-« RECALIBRETE 2646 
24B1 C1 00 2481 2585 T105 TIO +, 4—* WAIT FOR SiEK NOT BUSY 2578 30 C& 2380 2647 SHS TDDDR,-DDDR SAVE CONTEETS OF DDDR 
24B5 OC 09 0000 237E 2586 MOV2 avC %-—* (10) , DDCFE RELOAD DDC® FIELD Z257F 31 C4 239% 2648 LIO TODDP@,DDDR LOAD DDDR WITH TEMPORARY VALUE 
2587 ; 2583 C100 2651 2649 TI015 TIO HALT1,*-* SEE IF DEVICE IS READY 
24BB 7D 20 00 2588 CLI 0O¢,XR1p,X*20¢ IS IT A SCAN READ? 2587 F3 00 01 2650 SIOZ SIO X*O01%,#-* READ HA AND RO FIELDS 
24BE F2 81 3E 2589 SE TI09-6 IF SO, RETURN TO THAT SECTION 258A 31 C6 239% 26514 LIO TDDDF@, DDCR CHANGE THE DDCF FOR SEEK 
24C1 38 FF 2521 2590 TBN WRIVFY,X*FF® IS If WRITE VERIFY? 258E P3 00 00 2652 SIO3. SIO xX*00°,*-* SEEK TO ALTERNATE TRACK 
24CS 3B FF 25E1 2591 SBF WRTVFY,X*FF¢ 2591 OC O04 2399 2387 2653 MYC OUTKEC¢4 (5), TDDDFe4 
249 CO 10 2486 2592 Br #OV3 IF SO, THAN RETURN TO THAT SECTION ‘%° 2597 31 C4 2394 2654 LIO Sree ees 
24CD CO 87 2461 2593 B RTRY? : 259B C1 00 2681 2655 TIO2 TIO HALTI,*- 
2594 . Br een eRe aoe 259F ¥3 00 01 2656 SIO& SIO X*#01%,*-* READ HA & RO OF ALT TRACK 
24D? 3C FF 2581 2595 CHK1 AVI WRIVFY,X¢PrF? 2542 71 C6 04 2657 LIO 8 &(,XR1) -DDCR RELOAD DDCR 
24DS CO 87 2703 2596 B HALT2 2585 31 C4 2380 2658 LIO TDDDR,DDDR RELOAD DDDR 
LATE 29A0G7S © 22DEC75  30APR76 258AR77 PROG ID DD6-3 DATE = 2380675 =—- 22DEC75 = =— 30 APR76 258877 eee Pee 
EC NO. 827804 827836 571872 571989 PAGE 22 EC NO. 827804 827836 571872 571989 ee an8 
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PART NO. 4246217 IBM MAINTENANCE DIAGNOSTIC PROGRAS PART WO. 4248217 
PAGE 23 PAGE 23a 
DD63 +3340 CE DISK EDITOR BOD 12 DD63 = 3340 CE DISK EDITOR BOD a2 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDB STAT SOURCE STATEBERT 
25a9 OC G4 0000 2387 2659 MVC2 MVC *-*(5}),TDDDF+4 MOVE CORRECT HIGH ORDER § BYTES 265F 2D38 2660 2726 DC AL2 (EDMS2) PRINT ADDRESS 
2660 * INTO DDCF FIELD 2727 
2661 2661 CO 87 O21~a 2728 B PRINT 
25AF 7D 20 00 2662 CLI 0(,XR1) ,X*20t 2665 02 2665 2729 pc XL1*02° - FLAG (NO HEADING) 
25B2 CO 81 250C 2663 BE DRTRN1 RETURN TO SEEK IN SCANRD SECTION 2666 S56 2666 2730 DC AL1(EDGt-KDG1B) LENGTH 
25B6 38 FF 2551 2664 TBN WRIVFY,X'FF? FROM WRITE VERIFY? 2667 ZCE6 2668 2731 BC AL2(HDG1) ADDRESS 
25BA 3B FF 2551 2665 SBF WRIVFY,X*FF* RESET FLAG 2732 
Z5BE CO 10 2492 2666 BT § DRTRN3 2669 CO 87 021A 2733 B PRINT 
25C2 CO 87 246E 2667 B DRTRN2 RETURN TC SEEK IN RD,WRT,OR SK SCT 266D 06 266D 2734 DC XLT‘ 06° FLAG 
2668 266E 56 266E 2735 DC AL1(DSGSNS2-DGS2B) LENGTH 
25C6 2669 FRDTRK EQG * 266F OBSF 2670 2736 DGPRT@ dC AL2 (DGSNS2) ADDRESS 
25C6 7D 20 00 2670 CLI 0(,XR1) ,-X*208 IS IT & SCAN READ? 2737 
25C9 CO 814 2505 2671 BE T1IO9 IF SO, RETURN TO THAT SECTION 2671 35 01 2AE1 27 38 L TEMP6,XR1 RESTORE INDEX BEGISTERS 
25CD 38 FF 251 2672 TBN WRIVFY,X'FF? IS IT A WRITE VERIFY? 2675 35 02 2194 2739 L TEAPS,XR2 
25D1 3B FF 25Ei 2673 SBF WRIVFY,X'FF* 2679 CO 87 0000 2740 SNSAPR B o~ RETURRE TO CALLE 
25D5 CO 10 248F 2674 BT SIOs8 IF SO, RETURN TO THAT SECTION 2741 
25D9 CO 87 2467 2675 B TIO01 RETURN TO READ OR WRITE SECTION 27414 
2676 * * 267D CO 87 O21A 2742 EE1 B PRINT PRINT "ADAPTER CHECK? 
2677 * SENSE DIAGNOSTIC 24 BYTES SUBROUTINE * 2681 C2 268% 2743 DC XL1*C2? FLAG 
2678 * * 2682 15 2682 2744 DC AL1(ERHS 1-ERNSS 1B) LENGTH 
2679 * x 2683 2C90 2684 2745 DC AL2 (ERBS1) ADDRESS 
25DD 0B60 25DE 2680 DGSNS@ DC AL2 (DGSNSB) 2685 FFFP 2686 2746 DC XL2¢FFFF® 1D 
25DF 0000 25E0 2681 TEM1 DC IL2*0! 2687 CO 87 25E2 2747 B SNS24 
25E17 00 25E1 2682 WRTVFY DC IL7*G* 268B CO 87 2607 2748 B SNSAP 
2683 268F CO 8&7 0222 27493 B HALT TO DCP HALT ROUTINE 
25E2 34 GB 2606 26846 SNS24 ST SNS24R¢3,ARR SAVE ADDRESS 2693 FFPF 269% 2750 DC XL2°FFFF? FLAG 
2566 30 C5 GA14 2685 SNS STATE, xX*C53 DIAGNOSTIC SEKSE 2695 CO 87 CCB8F 2754 B LINKS TERMINATE SECTION 
25EA 30 C& 25E0 26 B6 SNS TES1,DDDE SAVE DDDR 2752 
23EE 31 C& 25DE 2687 LIOo DGSNS@, DDDR LOAD DDDR 2752 
25F2 OC 00 25FD 234HE 2668 MVC =9SIOS*i{1) ,DRIVES CVERLAY INST 2699 CO 87 O2Th 2753 EE2 B PRINT 
25F8 3A 01 25FD 2689 SBR SLOS*#1,X*O4* CONTINUE CYERLAY 269D C2 269D 275% DC ZLi*c2¢ PLAG 
Z5FC F3 00 07 2690 SIO6 SIO X°C7® ,#-s SENSE DIAGNOSTIC 24 BYTES Z269E 25 269E 2755 DC ALT (EDMS 1-EDNS17B} LENGTH 
2691 Z269F 2D0B 26A0 2756 DC AL2 (EDMS1) PRINT ADDRESS 
25FF 31 C4& 25E0 2692 L1Io TEN1,DDDR RELCAD DDDR 26A1 FFFE 26A2 2757 DC XL2*FFFE® ID 
2603 CO 87 0000 2693 SNS24R B *-% RETURN TO CALLEP 26A3 CO 87 2607 2758 B SNSAP 
2694 26A7 CO 87 0222 2759 B HALT BRANCH TO DCP HALT ROUTINE 
2694 Z26AB FFPE 26aC 2760 DC XL2°PPPE® HALT ID 
2607 34 08 267¢ 2635 SNSAP ST SNSAPR+3,ARR SAVE PETURN ADDRESS 26AD CO 87 OCH8F 2761 B LINKS TERBINATE SECTION 
260B 34 01 2AE1 2696 ST TEMP6 ,XR1 SAVE INDEX REGISTERS 2762 
260F 34 02 219A 2697 St TEMPG,XR2 2763 * e 
26713 CZ 01 OB6O 2698 LA DGSNSB,XR1 INITIALIZE ADDRESS POINTERS 2764 * s 
2617 C2 02 OBOB 2699 LA DGS2B¢2,XR2 2765 * DEVICE NOT READY OR ERROR SUBROUTIBE 2 
2700 * 2766 * * * e s 
2701 +* FOLLOWING ROUTINE ONPACKS THE 24 BYTE DIAGNOSTIC READ 26B1 2767 HALT? EQD * 
2702 * TO BE PRINTED Z6B1 34 08 2702 2768 ST HALT1R€3, ABR STORE RETURE ADDRESS 
; 2763 * 26B5 OF 01 2702 2BEE 2769 SLC HALT1R¢3(2},X4 RETURN TO TIO INSTRUCTION THAT 
Z61B 3C 06 2B21 764 AVI CTR1I,6 INITIALIZE DO LOOP COUETERS 2770 * CALLED IT 
261F 3C 04 2822 2705 LOOP13 VI CTR2,8 26BB CO 87 2582 2771 B SNS24 SENSE DIAGNGSTIC 24 BYTES 
2623 34 014 2631 2706 LOOP1&4 ST UPi,XR1 SET UNPACK ADDRESSES 26BF 38 10 0A13 2772 HALTIA TBN STATE-1,xX°10° CHECK TO SEE WHAT DRIVE ONIT CHECK 
<627 34 02 2633 2707 st UP2,XR2 26C3 FZ 90 04 2773 JF *67 OCCURRED ANS PUT IT IN BESSAGE 
<62b CO 87 O21E 2708 B UNPACK TO DCP UNPACK ROUTINE 26C6 3C PH 2063 2774 YI ERMSG~24,C¢48 
262F 01 262F 2769 DC ILietve 26CA 38 20 0OA13 2775 TBN STATE-1,%°20! 
2630 0000 2631 271C UP1 Dc AL2 ¢*-#) 26CE FZ 90 04 2776 JF +47 : 
2632 0000 2633 2711 oP2 DC AL2 (#-*; 26D1 3C F3 2C63 2777 BVI ERBSG-24,C? 3° 
9 
2634 BC 40 01 2772 MVI «| 4(,XR2},€° * INSERT BLANK BETWEEN BYTES 26D5 38 40 0A13 2778 TBN STATE-1,xX°40¢ 
£637 D2 07 01 2713 LA 1(,XRi},XR1 INCREMENT ADDRESS POINTERS 26D9 F2 90 04 2779 JF *67 , 
263A EZ 02 03 2778 LA 3€¢XR2} -ER2 26DC 3C F2 2C63 2780 BVI ERMSG~24,C#2¢ 
263D OF 00 2822 0A03 2715 SLC CTR2€1) , ONE DECREMENT LOOP COUNTTR 26E0 38 80 0A13 2781 TBN STATE~1 K°8G! 
2643 CO 07 2623 2776 BNZ LOOPw4 26E4 F2 90 O48 2782 JF e7 : 
2647 8C G62 01 OBCS au AVC 1(3,KR2),BiNK INSERT & BLANKS BETWEEN EVERY ZOE7 3C F1 2C63 2783 BYI ERBSG~24&,C* 48 
* BYTES 26EB CO 87 O21A 7 — 
264C E2 92 03 2748 LB 3(_XR2) ,XR2 26EF C6 26EF S4ee fe rates eae Denar ae eee 
264F OF 00 2B21 0203 2720 sic CTR1 {1}, ONE DECREMERT LOOP COURTER 26FOQ 24 26F0 2786 bc AL (ERNSG-ERMSGB) LENGTH 
2655 CO 04 261F 2) BNZ LOOPT3 al 273 26F2 2787 DC AL2 (ERNSG} aSG @ 
7 Le aie PFFC ‘ a e 
ee 87 O21A 2773 B PRIRT TO PCP PRINT RTE aoa Saas Tr aii eras 
2 265D 2724 DC L14Q3¢ 5 
265E 2D 265E 2725 Bc De te vaeeceneeon perce en a eek oat 3 nen Pree rene AOU BRAVE SSERSED 
DATE 29AUG75 22DEC75 3CAPR76 25HAR77 PROG ID DD6-4 LATE 29ARUG75 22DEC75 30APR76 25MAR77 5 
EC NO. 827804 827836 571872 571989 PAGE 23. EC NO. 627804 827836 571872 5719839 Page 7 ea 





IBH MAINTENANCE DIAGNOSTIC PROGRAN PART NO. 4248217 IBM MAINTENANCE DIAGNOSTIC PROGRAK 


PART NO. 4&268217 
PAGE 24 4 PAGE 20a 
DD63 3340 CE DISK EDITOR BOD 12 DD63 3340 CE DISK EDITOR . HOD 12 
ERR LOC OBJECT CODE ADDR STST SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
26F9 CO 87 0222 : 2792 B HALT TO DCP HALT ROUTINE 2824 FEHRERTEE SERS SESERE EE ESSERESSEEREE SEES SESRESSREESEESESSREEEEEEENERS ES ERS 
26FD FFFC 20FE Z1 pc XL2*FFFCt HEADING oa 2825 * INPUT ROUTINES e 
4 2626 * * 
26FF CO 87 0000 2795 HALTIR B t-* RETURN TO CALLER 2827 * THE FOLLOWING ROUTINES WILL ALLOW * 
2796 2828 * INPUT RECORDS TO BE READ. * 
2796 2829 * * 
2796 . . 2830 * SSW18 = 1442 AS INPUT DEVICE * 
2796 2831 * SSW17 = 3741 AS INPUT DEVICE * 
2703 2797 HALT2 EQU * 2832 * SSW1A = MFCU AS INPUT DEVICE * 
2703 CO 87 2582 2798 B SNS24 2833 * NO SETTING = 5471 AS INPUT DEVICE * 
2707 38 G1 OAl4 2799 TBH STATE, X*018 CHECK IF ANY CHECKS OCCURRED 2838 FEE EERE TEESE EE EREEEESEETESEEEEEE SS EESEESESSEOOEEES 099805600008 40ERR ERED 
270B CO 10 267D 2800 BT EE 2835 
2801 2749 34 08 27EC 2836 RECORD ST XEXITR+3,ARR SAVE RETURN ADDRESS 
270F 39 02 OB60 2802 TBF |. DBYTEQ,TRKCC SEE IF DEFECTIVE TRACK. IF IT IS 274D C2 02 OA80 2837 TRYAGN LA READIN, XR2 SET XK2 TC POINT TO READIN 
2713 39 01 0B61 2803 TBF DBYTE1,OPINCP 2751 BC &O SF 28 38 SVI 95(,XR2),c* * BLAWK INPUT BUFFER 
2737 CO 90 2523 2804 BF DEFTRK THEN READ ALTERNATE TRACK LOCATION, 2754 AC SE SE SF 2839 HVC 8 =—- 94 (95, XR2) ,95(,XR2;j 
2605 * SEEK TO IT, AND CONTINUE OPERATION. 2640 
2806 2758 35 FO 27¥5 2841 SBF USECRT,X*FO# RESET USECRT PFLAG 
271B 39 25 0B60 2807 TBF DBYTEO,xX*25# IF ANY OF THES 275C 3C 02 2aBF 2842 HYI CD10R2,2 SET FLAG FOR READING UNCOMPRESS DATA 
271F 39 1C 0B61 2808 TBF DBYTE7,x*1C® BITS ARE oN 2843 
2723 39 78 OB62 2809 TBF DBYTE2,X*78¢ THEN RETRY OPERATION 2760 38 01 020D 2844 TBN SWITCH¢3,SSW2P IF SSW 2F ON, DO PE? PROCEDURE 
2727 CO 90 24a4 2810 BF BRTRY1 2764 F2 90 4A 22845 JP CK18 IF OFF, NORMAL PROCESSING 
2811. 2767 34 01 2ac5 2846 Sst ADDR, XR1 SAVE XR1 
2811 276B OC 01 2774 3FFF 2847 HVC 8 =© GOOUT#3 (2) ,X3FFF SET UP LINKAGE TO FET ROUTINE 
272B 0C 01 2702 239B 2812 MVC =—- HALT 1R#3 (2) FLINKN@ AFTER HALT1, TERMINATE SECTION 2771 CO 87 0006 2848 GOOUT B ore, GO TO OUT IN FE? 
2731 CO 87 26BF 2813 B HALTIA PRINT *DEVICE NOT READY OR CHECK® 2775 35 0% 2ac5 2849 L ADDR, XR1 RESTORE REGISTERS 
2814 2779 C? 02 OABO 2850 LA READIN, XR2 . 
2814 277D CO 87 27Cc1 2851 B XEXIT RETURN TO CALLER 
2814 : 2852 
2814 2781 38 80 020B 2853 CK18 TBH SWITCH¢1,SSH18 TEST SSW 18 
2735 CO 87 021A 2815 TOOFAR B PRINT PRINT "NO ROOM LEFT ...¢ 2785 CO 10 29FB 2854 BT LD1442 IF ON, USE THE 1642 AS INPUT. 
2739 Co 2739 2816 Dc XL1°C6# 2789 38 01 020A 2855 TBN SWITCH, SSW17 TEST SSW 17 
273A 4E 273a 2817 pc AL1(ERR14-ERR14B) 278D F2 10 DD 2856 {T LD3741 IF ON, USE THE 3741 AS INPUT. 
273B 2E85 273c 2818 DC AL2 (ERR14) “ 2790 38 20 0208 2857 TBN SWITCHE1,SSWI1A TEST SSW 1A, 
273D FFEE 273E 2819 Dc XL2*PFEE* ’ 2794 CO 10 2997 2858 BT MFCU IF ON, USE THE MFCU AS INPUT. 
273F CO 87 0222 2820 B HALT HALT -EE- © 2798 38 10 0208 2859 TBN SWITCHE1,SSW1B IS SSW1B ON 
2743 FFEE 2744 2821 pc XL2* FREE* 279C F2 10 08 (2860 JT CLESS IP SO USE PROGRAM F55 AS INPUT 
2745 CO 87 OBCB 2822 B EDITAA 279F 3A FO 27F5 2861 SBN USECRT,X*FO* USE THE 5871 FOR INPUT. 
27A3 CO 87 27F6 2862 B LD5471 IF WO SWITCHES ON USE 5871 FOR INPUT 
2863 
27a7 34 014 2acS 2864 CLE5S st ADDR, XR1 SAVE ADDRESS IN IR1 
27AB OC 01 2734 7001 ' 2865 BVC = BES55¢3(2) .X*7001° CO TO 7001 AND GET ADDRESS TO BRANCH 
27B1 CO 87 0000 2866 BESS B + * BRANCH TO E55 
27B5 C2 02 0a80 2867 La READIN, XR2 RESTORE XP2 
27B9 35 01 2ac5S 2868 L ADDR, XR1 RESTORE XR1 
27BD 3C 02 2ABF 2869 MVI  CD1IOR2,2 SET PLAG FOR UNCOMPRESSED FORBAT 
2870 . 
27C1 38 OF 2aco _ 2871 XEXIT TBE ADDFLG,X*OF* ADD MODE SWITCH ON? 
2705 F2 90 21 2872 JF . XEXITR IF NOT RETURN TO CALLER 
27C8 CO 87 OBBA 2873 B SETO ‘SET DDDF FIELD TC ZERO 
27cC 6C SF DF SF 2874 AVC  223(96,XR1),95(,XR2) PUT CARD IMAGE IN TO DISK FIELD 
27D0 3D 02 2ABF 2875 CLI CD1OR2,2 _ IS If IN GNCOMPRESSED FORHAT? 
27D4 FZ 814 12 2876 JE XEXITR IF YES, RETURN TO CALLER 
27D7_ 38 C1 020D 2877 TBN SWITCH¢3,SSW2P.. - SKIP IF CALLED BY FE? OR CCC 
27DB F2 10 OB 2878 3T XEXITR 
27DE 38 01 O20; 2879 TBN) SWITCH,SSW17 USING 3741 THEN RECORDS IN 
27E2 F2 10 04 2880 JT XEXITR COMPRESS FOR 
2881 . 
27E5 AC 07 SF 4F 2882 —. MVC =. 955. (8, XR2) 5 79 ( , XR2) ADJUST ID AND SEQ # FIELDS 
27E9 cO 87 0030 2883 XEXITR B +-% . _  RETORN TO CALLER 
28e4 
2884 
2884 
2884 : 
27ED 5050 27EE 2885 x80 Dc XL2*5050° . FOR 2560 READ LENGTH (80) . 
27EF O0A80 - 2770 2886 CARD1a DC AL2(READIN} ADDRESS OF FIRST CARD READIN AREA 
27F1 3900 27F2 2887 BLiI14 DC XL2*3900¢ — ; 
27F2 2888 CARD2@ EQU BUFI4 ‘ . ADDRESS OF 2ND CARD READIN AREA 
DATE 29a0G75 22DEC75 30APR76 25HAR77 PROG ID DD6<3 DATE 29aUG75 22DEC75 30APR76 25MAR77. os: om PROG ID DD6-3 
EC BO. 327804 827836 571872: 571989 PAGE 24 EC NO. 827804 827836 $77872 $§71989 | eee ee ‘ PAGE .  * QaA 





IBM MAINTENANCE DIAGNOSTIC PROGRANS PART NO. 4248217 IBM MAINTENANCE DIAGNOSTIC PROGRAS PART RO, 8246217 
PAGE 25 PAGE 25A 
DD63 3340 CE DISK EDITOR HOD 12 4 DROP, « SeN0 CE DISK, EDETO® BOR Ae 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERE LOE OBIECT CODE ADDR STAT SOURCE STATEMENT 
27F3 0000 27F4 2889 STATUX DC XL2°O8 289D 3674 289E 2951 pc AL2 (RDBD} uSG @ 
27F5 00 27F5 2890 USECRT DC ILito# SWITCH FOR NOT PRINTING ON 5471 289F FFF1 28A0 2952 DC XL2°FFFY* HALT INDICATOR 
2891 28A1 CO 87 027A 2953 B PRINT PRINT 1NFO MSG 
2891 28A5 06 28A5 2954 DC KL1°06° SPACE 
2891 28A6 4S 28A6 2955 DC IL1°69' LENGTH 
2891 } 28A7 3689 28A8 2956 bc AL2 (SETUP) MSG @ 
2892 FERRARA ERRAESE EES SOK SEREEEEREASSS SHSKHESE AEE RE SKKEE EE EERE 2EA9 CO 87 0222 2957 B HALT INDICATE *F1* ON STIK LIT 
2893 * 5471 INPUT ROUTINE % 28AD FFF1 28aAE 2958 cc XL2¢‘FFPt 
2894 * * 28AP CO 87 2883 2959 B DOSIO RETURN 
2895 * CODE TO READ RECORD FROM THE 5471 PRINTER/KEYBOARD * 28B3 F3 43 08 2960 CONTI? SIO X*O8*,xX*Q3Ze NCRBAL RESPONSE TO 3781 
2896 FERRE ERESEREEERSER EEK EERE ERSTE THES KHATER RRR EE EERE AE EE EE EE 28B6 3C 07 2ABF 2961 SVI CDIOR2,1 SET FOR COMPRESS 
2897 28BA 37 44 27F0 2962 LIO CARDI@, X*4ust PUT READ @ IN DSAR 
27F6 2898 £D5477 EQU * 28BE 37 42 2992 2963 Lio LENCT2,X* 426 PUT 255-LENGTH IN LC REG 
27F6 CO 87 234F 2899 B SELDRY SET DRIVE # IN DISPLAY 28C2 F3 41 00 2964 SIO O,xtutt READ NEXT RECORD 
27FA 35 02 2821 2900 RTRY L XEXT1¢3,XR2 LOAD THE ® OF READ BUFFER 28C5 Ci 42 28C5 2965 TIO 8 *,xeyr8 TEST ONTIL “741 NOT BUSY 
27PE AC 83 83 84 2901 HVC =. 131.4132, XR2),132(,XR2}) CLEAR BUFFER 26C9 30 4&2 2994 2966 SNS SNBYT2,X*4u2é GET THE STATUS BYTE 
2802 F3 18 41 2902 SIO X"STELX" 188 START CARRIAGE RETURN + RESET PRT 28CD 39 OA 2993 2967 TBF SKBYT2-1,X°OA® PARITY READ ERROR OR LCR CY¥FLE 
2805 F3 10 11 2903 NXTCHR SIO X°dT! xe 108 PROCEED IND ON ¢ RESET REG KEY 28D1 CO 96 297D 2968 BF ERR11 HALT IF EITHER CONDITION EXIST 
2808 30 11 2c05 2904 RESNS SNS  DAT,xX*1i* CHARACTER KEYED 28D5 F3 43 08 2969 SIO x*08*,x*43% NORHAL RESPONSE TO 37414 
280C 38 40 2C05 2905 TBN  DAT,Xt&O? END OR CANCE’ KEYED 28D8 38 01 2AB5 2970 TBN F3741,x*O1* ADD PLAG ON 
2810 F2 90 13 2906 oF TSTDAT NO 28DC F2 10 40 2971 JT EOJUCHK 
2813 38 20 2c05 2907 TBN DAT, X*20% CANCEL KEYED 2<8DPF BD 5B 00 2372 ClI 0O(,XR2),C*S$* CONTROL CARD BEAD 
2817 CO 10 27FA 2908 Br RTRY YES 28E2 F2 0% O& 2973 JNE 2¢7 JUMP IF nor 
2815 F3 10 01 2909 SIO 1,X°10# RESET REQUEST KEY 28E5 38 O8 2AB5 2974 SBN F3741,x° 0868 SET CONTROL FLAG OF 
281E C2 02 OA8O 2910 XEXT1 LA READIN, XR2 LOAD @ OF BUFFER <8E9 BD 61 00 2975 CLI 0(,XR2),C'y? CONTROL CARD READ 
2822 CO 87 2855 2911 BR DORD CHECK FOR INPUT <8EC F2 C1 OA 23976 JNE CTLREC ASSUME A CONTROL RECORD 
2826 38 08 2C05 2912 TSTDAT TBN DAT,xX'O8* DATA KEYED 28EF BD 50 01 2977 CLE 1(,XR2),C'E! TERMINATOR RECORD? 
282A CO 90 2808 2913 BF RESNS HO Z8F2 F2 81 4C 2978 JE FIN GO FPINISH READING 
282E 28 O4 2C05 2914 TBN DAT, X*O4U! RETURN KEY PRESSED 28F5 3A 08 2AB5 2979 SEN F3741,xX* 088 SET CONTROL RiCORD BIT 
2832 CO 10 27FA 2915 BT RTERY YES 2<8F9 38 O8 2AB5 2980 CTLREC TBN F3741,x*0O8* SET CONTROL FLAG OR 
2836 8C 00 00 204 2916 MVC) =60¢1,¥R2),DAT=1 28FD F2 10 1P 2981 JT EOJC HK 
2835 31 718 2c05 2917 LIO DAT, X*78¢ MOVE CHARACTER TO BE PRINTED 2900 3A O71 2ABS5 2982 SBN F3741,x°O18 SET THE ADD AND REPLACE PLAGS OW 
283F F3 18 81 2918 SIO K*Bi* Kt1g PRINT CHARACTER 2904 3C FT 2AB6 2983 BVI FADD,C*1* SET PORCED ADD PLAG 
2842 E2 02 01 2919 LA 1(,XR2) ,XR2 MOVE TO NEXT CHARACTER 2908 30 43 2994 2984 WAIT SNS SNBYT2, X* 43° SENSE 1/0 TRANSFER LINES 03 
2845 34 02 2C05 2920 ST TSIN,XR2 STORE CONTENTS CF REG 2905 38 02 2993 2985 TBN SNBYT2-1,X*N28 READ BIT ON? 03 
2849 3D £0 2C05 2921 CLI TSTN, X* EO 2910 cO 10 OD2F 2986 BT RTRN2 RETURN TO PROCESS 1ST RECORD 03 
ZE4D CO 81 2BIE 2922 BE XEXT4 2914 38 O08 2994 2987 TBN SNBYT2,X"°08¢ END OF JOB? 03 
<851 CO 87 2805 2923 B NXTCHR 2918 F2 10 17 2988 JT LSTRC CONTINUE 03 
2855 F3 18 40 2928 DORD SIO x*4O*",x*1g8 RETURN CARRIAGE 291B CO 87 2908 2989 5 WAIT 03 
2858 3D 40 05803 2925 DOREAD CLI READIN¢131,C! CHECK POR BLANK INPUT 291F 30 43 2994 2990 EQJCHK SNS  SNBYT2,X*43° SEKSE I/O TRANSFER LIWES 
285C F2 01 OA 2926 JNE NOTBLK 2923 38 02 2993 2991 TBN SNBYT2~1,x*02¢ READ BIT OW 
285P 5D 82 0302 0803 2927 C:C READIN¢ 130(131),READIR€131 2927 F2 10 13 2992 JT CDEXIT RETURN 
2865 CO 61 27FA 2928 BE RTRY 292A 38 08 2994 2993 TBH SNBYT2,X* 08° END OF JOB 
2869 CO 87 27ci 2929 NOTBLK B XEXIT 292E CO 90 291F 2954 BF EOJCHK 
2930 2932 348 10 2AB5 2995 LSTRC SBN F3741,x' 408 TURN ON LAST RECORD 03 
2930 2936 CO 87 27¢1 - 2996 B XEXIT RETORN 
2930 293A F3 43 08 2997 E£OJ1 SIO x*08*,x*43¢ NORMAL RESPONSE TO 3741 
2930 293D CO 87 27C1 2998 CDEXIT B XEXIT RETURN TO CALLER 
2931 FEREREREER EASE REESE RARE EERE SEE RENE RE KRESS KRAEMER SEER ES 2941 30 43 2994 2999 FIN SNS SNBYT2,X° 438 SENSE I/O TRANSFER LIRES 
2932 * * 2945 38 02 2993 3000 TBN  SNBYT2-1,x'°02° READ BIT ON 
2933 * 3741 INPUT ROUTINE * 2949 F2 10 OC 3001 JT NXT RETURN 
2934 * * 294C 38 08 2994 3002 TBN SNBYT2,X*O8# END OF JOB 
2935 SHRSEHSSEESER EEE RHRS SERRE KEE EEE SRKASLEEEEEERES DR EEEETER EE 2950 CO 10 293A 3003 BT E031 
286D 2936 LD3741 EQU * * 2954 CO 87 2941 3004 B FIN Looe 
286D 38 10 2aB5 2937 TBN F37&1,x°108 HAVE ®E READ THE LAST RECORD 2958 F3 43 08 3005 Nxt SIO =X*08*,Z*43t NORBAL RESPONSE TO 37414 
2871 F2 90 OD 2938 oF DOSIO JUMP IF NOT 295B 31 4G 27F2 3006 LIO =6CARD2@,X* 44? PUT READ @ I 
2874 8C 01 OF 2ABC 293 : ; . EAD WN DSAR 
“ C 2939 BYC 142, X82} ,SLAMNP MOVE IN A '/&e 295F 31 42 2992 3007 LIO LENCT2,X* 42° PUT 255-LENGTH IN LC 
2879 35 FPF 2AB5 9 1,X "PPE LAG : ag ane 
Saya CO at oc: 2940 SBF F374%,X°FP TURN OFF ALL FLAGS 2963 F3 41 00 3008 sro O,X*ate READ REXT PECORD 
oat a4 U4 eee oes Be EOD). Sort GO END IT a 2960 C1 42 2966 3009 TIO *,X°u72e TEST UNTIL 3741 NOT BUSY 
ae Seas DOSIO LIO FUNBT1,X*41 LOAD THE FUNCTION BYTE 296A 30 42 2994 3910 SNS  SWBYT2,X*42¢ GET THE STATUS SYTP 
2889 38 04 2993 Soak ee ena oe LIFES 5 = OA 2993 3014 TBF SNBYT2~1,X°OA* PARITY READ ERROR OR LCR OVFIL® 
288D F2 90 ED one is AR CO 90 297D 3012 BF ERR11 HALT IF FITHER CONDITION EXIST 
0 JF ERR14 NO ERROR 2976 F3 43 08 3013 SIO X?#06*,x*43! NORMAL RESPONSE TO 3741 
TO e & 
oe . a 2946 TBN SNBYT2-71,X°02 TEST FOR READ BIT ON 2979 CO 87 2944 3014 B FIN LOOP TO TEST 
3607 CO670544, ae JT CORTI1 LOOP UNTIL READ BIT IS ON 297D CO 87 O21A 3015 ERR B PRINT ERANCH TO PRINT MFCO WOT READY OF 
< 9 B PRINT PRINT SSG* 3741 NOT IN READ NODE* 3016 * ERROR. 
Saar a 2895 2949 DC XL1°ci¢ SPACE 2981 46 2981 3017 DC XL1*°46¢ FLAGS 
C Ib 289C 2950 bec IL1# 298 LENGTH 2982 23 2982 3018 Dc IL1°358 LENGTH 
DATE 29AUG75 22DEC75 30APR76 25HAR77 PROG ID DD6-3 DATE 29A0G75 22DEC75 30APR76 25MAR77 S 
EC NO. 827804 827836 571872 571989 PAGE 25 EC NO. 827804 827836 571872 571989 oe oes 
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IBM MAINTENANCE DIAGNOSTIC PROGRAK 


DD63 3340 CE DISK EDITOR 


ERR LOC OBJECT CODE ADDR 
2983 


2385 


29FA 
FFEC 
2987 CO 87 
298B FFEC 
298D CO 87 
2991 OO7F 
2993 0000 
2995 4000 


2984 

2986 
0222 

2398C 
2881 

2992 

2994 

2996 


2997 C1 FO 29BA 
299B 3% F5 27FO 
299F F3 Fi G0 

29A2 C1 PI 29A2 
2906 30 F3 27F4 
29AA 39 86 27F4 
29AE 3C G2 2ABF 
29B2 CO 10 2A1F 
2986 CO 87 2997 


29BA 34 08 
29BE OF 03 
298 CO 87 


29D7 
29D7 
G21A 


2BEE 


29C8 486 
29C9 23 
29CA 29FA 
29CC FFEC 
29CE CO 87 
2952 FFEC 
29D4 CO 87 


29C8 

29c3 

239CB 

29CD 
0222 

29D3 
0000 
29D8 CIDZSE3CSDYDSCIE3 
29EO0 CS4OD3DECIC4HC5D9 
29E& &0D5D6E340D9C5C1 
29FO CUEB4ODEDSHOCS5DY 
29F8 DIDEDS 


29FA 


29FB 31 54 
29FF 3C 01 2ABF 
2403 CO 87 2A23 
2A07 BD EV 4c 

2A0a CO 01 2AIF . 
<AOE 31 54 27F2 
2A12 3C 02 2ABF 
2a%6 CO 87 2A23 
247A 8C 13 5F 3913 
2AtP CO 87 2858 


27F0 


2A23 34 O08 2A3D 

2427 €1.50 29RA 

(2A2B F3 51 00 

2A2E C1 52 2A2E 

2432 30 53 27F4& 

2A36 39 93 27F4& 

2a3A CO 10 0000 

, 2A3D 


2a3E CO 87 2A27 


-29A0G75 
827804 


DATE 
EC NO. 


22DEC75 
827836 


PART NO. 


4248217 IBM MAINTENANCE DIAGNOSTIC PROGRAS 


PART NO. 42408217 
PAGE 26 ; PAGE 262 
MOD 12 DD63 3340 CE DISK EDITOR MOD 12 

STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 

3019 Dc AL2 (ERRORC} ADDRESS OF LAST PRINT CHARACTER 3080 Se SSEeSEREREEE THESES EERSTE SSCA SKATES SHSLEKSE TOSSES HARARE RES 

3020 pc XL2°*PFEC! NESSAGE IDENTIFICATION 368. * 5471 PRINT RCOUTINE « 

3021 B HALT ISSUE BALT "EC? 3082 SHEKHAR ATEERSEREETEEGERL ARE SVSSHE SISK SSERSASE SHE SHOKKSIESESSERKS 

3022 pc XL2"*FFEC* ; 2A42 3083 PRINT EQU & 

3023 B DosiIo GO TRY START I/0 2a42 34 O8 2A8S 3088 st PRIEND+3, ARR STORE THE RETURN @& 

3024 LENCT2 DC XL2°O007F* ZA&G 3B Ft 27F5 3085 SBF OSECRT,XFE SET OFF UOSECRT 

3025 SNBYT2 DC XL2'*O°* Z2AGA 34 07 27992 3086 st TEMPS ,XR? SAVE THE CONTENTS OF XRi 

3026 FONBT1 Dc XL2* 40008 | Z2A4E 35 01 2489 3087 L PRIEND¢3,.XR4 LOAD @ OF THE PRINTER PARE LIST 

3027 SEEEREREREEEEREEES EEEEEERETAAEERER EERE EREEEE CERES ES KRAK RE CH 2A52 39 01 O208 3088 TBF SWITCH,SSHi7 ARE WE GSING 37471 

3026 * MFCU INPUT ROUTINE * 2456. 39 AO 0208 3089 TBF SWITCH¢? ,SSHTS¢SSBIA ARE WE DSING 5428 OR 1842 

3029 FEREREEEEEK ERE EERRERRERERERRERARERE ERS HERE EHO E EEE REE 2A52—2 F2 10 03 3090 NODS oT DS&7 7 NO,THEN JOMP 

3630 Z2A5D F2 87 12 309% J PASPRH YES,DON'T PRINT ON S&TT 

3031 MFCU TIO ERR, X°FO* TEST FOR NOT READY OR ERROR 2469 3A FO 27FS 3092 D5&7% SBN GSECRT, K* FG! SET BIT FOR S&7% 

3032 LIO CARD1@, X*F5¢ LOAD DATA READIN ADDRESS 2A6&% tC 00 2877 OG 3093 M¥C PRYPRA€1} -0¢,XRT} BUILD 

3033 SIO X'00* Xt Fie READ CARD INTO I/G AREA 2A69 iC 00 2A78 04 309% eY¥Cc PRTPRAOT (TE T{eERT PARE List . 

3034 TIO *,X°F? WAIT 2A6E 1C 07 2A7A 03 3095 H¥C PRIPRH¢3 (2} -3€,X8 1} FOR 5471 O8 PRINTEE 
3035 SKS STATUX, X*F3? SENSE DEVICE STATUS 2k73 CO BF O21 3096 B PRIRT GC PRINT 

3036 TBF STATUX,X° 868 TEST FOR READ CR FEED CHECK 2k77 3097 PRTIPRA EQU & PRINTER PARS LIST 

3037 NVI CDIOR2,2 SET FOR UNCOMPYESSED DATA 2477 00000600 2k7A 3098 bc &XL1T*OO* 

3038 BT XEXT 2A7B D2 01 04 3099 PASPRA L& & (0,283) .XR1 POINT TO IST INSTRUCTION PASSED PARE 
3039 B MFCO Z2A7E 34 07 2A89 3700 st PRIEWD¢3, £87 . STORE THAT @ INTO RETOURE BRARCE 

3040 2A82 35 G7 2798 3101 L TEMPS XR RESTORE XR1 TO ORIGINAL VALUE 

3041 ERR ST ERR1¢3,ARR STORE RETOEN ADDRESS 2as6é CO &7 O00G S402 PRTEND B ene RETUPN TO CALLER 

3642 sic ERR1¢3 (2) -X4 AND ADJUST IF 3103 SECSARASEREHREREERERERHESASSREAEESSE CHES SERS AE SESSKESERTSSE SHS SSSR SS SESSH 
' 3043 B PRINT BRANCH TO PRINT MFCU NOT READY OR 3408 © THIS ROOTINE WILL SET OF THE PRINTER SO THAT THE FIRST SIX POSITIONS* 
3044 * ERROR, : 3105 * OF THE PRINT DATA IS NOT LOSSED WHEN PRINTING ON THE ALTERNATE Pe 

euge * DEV « 

ee Ae areas ereeey ace Doc 5s WEECWA a wSR awa wea w Odd de hwadWa UN CeRSE RW ea Ga hee ee reetaeneanees 
3047 DC AL2 (ERRORC} ADDRESS OF LAST PRINT CHARACTER 248A 3105 PRINT2 EQU © 

3048 bc XL2°FFEC® MESSAGE IDENTIFICATION 2AGA 34 O8 2KAC 3409 . st RTRN64¢3, ARR STORE THE RETORE @ 

3049 B HALT BRANCH TO DCP HALT 2A8E 38 0& 0208 3110 TBR SWITCH-2,SS805 TEST FOR ALTERNATE PRINT DEVICE 

3050 oc XL2Z* PFEC® HALT ID 2A92 FZ 10 O09 3114 JT PRTZ YES,LOAD AT x*880° 

3051 ERR1 B *—% RETURN TO TIO 2835 OC SF O8DB OADF 3442 HEC X87C¢#95 (96) ,READINGCSS MOVE IN DATA TO BE PRINTED 

3052 2A9B F2 87 06 3713 cg PRTS JOMP AROUND 

3053 ERRORC DC CL35*ALTERNATE LOADER NOT READY OR ERROR® 2A9E OC 5k OBDA OAaDA 3744 PRT2 H¥C X%8804¢90 (91) ,nEADIN@SD HOVE IN DATA @O BE PRINTED 

3053 2AAu CO 87 O2TA 3175 PRTS B PRINT GO PRINT 

‘3053 2:A8 26 2kA8 31146 Do XL1°26° PLAG 

3053 2ak9 CO 87 0000 37717 ETRN6 B s—% RETURN TO CALLER 

3053 : 

3054 

3058 

3054 

3054 : 

3055 FER ESEARAEREEEREREEERERSEEEEEEREEEESGERTEE SEEDERS EHERS EEAKEEGEEAREEEEKES 

3056 * 1442 INPUT ROUTINE * 

2057 FEKREKEREEEER ER ERE REE S EEEECEREAKESESE SES EERE EEE ERE ERESRERRESAKERKREREE | 

3058 ‘ 

3059 LD1&’42 LIO CARD1@,X* 54? 

3060 - MVE CDIOR2,1 SET FLAG FOR COMPRESSED DATA i 

3061 B RD1642 ; 

3062 CcLi 76 (-XR2) -C*X® TEST FOR A 96 BYTE RECORD 

3063 BNE XxEXT 

3064 LIO BUFI4,x*5a8° IF SO THEN READ SECOND 

3065 AVI CDIOR2,2 SET FLAG FOR UKCOMPRESSED DATA 

36 66 B RD1442 CARD AND SOVE 20 BYTES 

3067 MVC 95(20,XR2),CARD2A+19 TO SAKE A 96 BYTE RECORD 

3068 XEXT B DOREAD CHECK INPUT 

3669 i 

3070 RD14642 ST X1442,ARR 

3071 DxX14 TIO ERR, X*508 TEST FOR NOT REASY OR ERROR 

3072 ‘ siI0 X*O0* ,x#51° READ CARD INTO I/O AREA 3 

3073 TIO 8 *, X*52¢* WAIT . 

3074 SNS STATOX,X*53* SENSE DEVICE STATUS 

3075 TBF STATUX,X°93°* TEST FOR READ OR FEED CHECK ' 

30 76 Br . ¥+# q 

3077 X1442 EQU. *=1 

3078 5 Dx14 

3079 

30APR76 25MART7? PROG ID ppe-3 DATE 29aUG75 22DEC75 30APR76 25HAR77 PROG <D DDE~3 
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IBM MAINTENANCE DIAGNOSTIC PROGRAS 


DD63 


ERR LOC 


2AAD 
2AAE 
2ARF 
2AB0 
2AB1 
2AB2 
2AB3 


2AB4 
2AB5 
2ABo 
2AB7 
2ABB 
2ABD 
2ABE 
2aBF 
2aco 
2aCI 
2ac2 
2AC4 
2AC6 
2acT 
2ac8 
24CA 
2acc 
2ACE 
2AD0 
2AD2 
2AD4 
2AD6 
2AD8 
Z2ADA 


2ADE 
2AEO 
ZAE2 
2AE4 
2AE8 
2AEA 
2AEE 
2AEF 
2AF2 
2AFS 
2AF8 
2APA 
2AFC 
2AFE 
2B02 
2BOA 
2BOE 
2BI2 
2B15 
2BtI7 
2B19 
2BiB 
2BiF 
2321 
2B22 
2B23 
(2B25 
2B27 


DATE 
FC NO. 


3340 CE DISK EDITOR 


OBJECT CODE ADDR 
00 2AAD 
00 2AAE 
00 2AAaF 
00 2AB0 
00 2AB1 
00 2AB2 
00 2AB3 
00 2AB4 
00 2AB5 
FO 2AB6 
SBCIC&CK 2ABA 
6150 2ABC 
00 2ABD 
00 Z2ABE 
02 2ABF 
00 2acd 
60 2ACt 
0000 2AC3 
0000 2acs 
00 2AC6 
00 2AC7 
6000 2Ac9 
0000 2ACB 
0000 2ACD 
0000 2ACF 
0000 2AD1 
0000 2AD3 
0060 2AD5 
OOFF 2AD7 
0000 2aD9 
§C4O0K040 2ADD 
2ADD 
0000 2ADF 
0000 2AE1 
0000 2A5E3 
FOFOFOFO 2AE7 
C4FO 2AE9 
FOFOFOPO 2AED 
Fi 2AEE 
FOFUFS8 2aFi 
FIF2FO 2AF4 
FU FO6F8 2AF7 
D7D5 2AF9 
D&cs 2AFB 
E240 2AFD 
C3D7E44O0 2B01 
6167140C3C8C1IC9D5 2B03 
E2E2E640 2B0D 
EGCKE340 2B11 
D6D3C4 2B14 
C3D6 2B16 
C2D4 2B18 
C3F1 2BlA 
FOFOFOFO 2BlE 
0000 2B20 
00 2821 
00 2B22 
8001 2B24 
0003 28326 
c6c6ci 2B29 
29AUG75 22DFCT5 
827804 827836 


PART NO. 
PAGE 27 

HOD 12 DD63 
STMT SOURCE STATEMENT ERR LOC 
3119 **eeenene 2B2a 
3120 * pets * 2B2D 
3121 SEERA REEEAREREERE ERE REE EEEERERECKERSE ERE AEERERRAEERSEERERAERERERERE KEES 2330 
3122 2B34 
3122 2839 
3122 2B3E 
3122 2543 
3123 PFLAC DC IL1*0! THESE <B4B 
3124 NWRTFG DC ILi*o! MUST <B4D 
3125 CPUDFG DC IL7*0# RENAIN 2B52 
3126 SCDFG DC IL1*0? TOGETHER, 2B57 
3127 LWRT pc ILi*O# ZEROED 2B5C 
3128 DFLAG DC ILO! AT ABOUT 2361 
3129 DCPFG DC IL1*0! RTRN2 2Bo66 
3130 2868 
3131 LSTSCN DC IL7*08 2570 
3132 F3741 DC IL7#0O8 2B75 
3133 FADD 9c CLi*o! 257A 
3134 DADD vc CL&*$appe 257F 
3135 SLAMP DC CL2' et 2B84 
3136 CPUFG DC ILi*08 
3137 FSTCPU DC IL1*08 2B88 
3138 CDIOR2 DC IL1*2¢ 2B8B 
3139 ADDFPLG DC IL1*O# 2B8C 
3140 CPIGFG DC ILi*O# 2B8E 
31417 Vrocé oDc IL2¢*0!# 2B90 
3142 ADDR DC IL2¢*0o¢ 2B93 
3143 CARSAV DC IL1*O? 2Bo4 
3144 HARSAV DC IL1*O8 ; 
3145 WORK pc IL2*0! 2B96 
3186 CL3 pc IL2¢O! 2B99 
3147 HL3 Dc IL2*0°8 <BA1 
3148 CL® Dc IL2°6! 2Ba9 
3149 HLW pc IL2'*o' 2BB1 
3150 CPw Dc IL2*o8 
3151 HPw DC IL2¢*0°8 2BB3 
3152 CKER DC XL2*O0FF? 
3153 COUNT DC IL2*08 <BB9 
3154 SAVEID DBC CLat s 2BC1 
3155 TEMP5 EQU  SAVEID 
3156 TEMP2 pc IL2¢*0# 
3157 TEMP6 De IL2*0! 2BC3 
3158 TEMP7 DC IL2'08 2BCB 
3159 DO DC CL4*C0008 
3160 DDO pc CL2'*pDoe 
3161 LSTDCD DC CL4*09008 25CD 
3162 D1 pc CLitt 2BD5 
3163 d4uB DC CL3*0408 
3164 D120 #vC CL3' 1208 
3165 MAXPGM DC CL3"768¢ 2BD7 
3166 PN Bc CL2¢* pnt 2BDF 
3167 KE pc CL2*ME® 
3168 SB pc CL2°S 2 2BE1 
3169 CPDIDZ DC CLUfCpy ¢ 2BE3 
3170 CHNID DC CL8°// CHAIN® 2BE8 
3171 SSWID bc CLatssa ¢ 2BE9 
3172 UPDTID pc CLatUDT * 2BEB 
3173 OLD pc CL3* OLD! ZBED 
3174 FIGCON DC CL2'co¢ 2BEP 
3175 CMPCOWN De CL2°cHt 2BF1 
3176 WINID pc CL2'*cit 2BF3 
3177 SEQCTR pc CL4*0000" 2BP5 
3178 RCTR DC IL2"0# 2BF7 
3179 cTR1 pc IL1¢o8 25F9 
3180 CTR2 pec IL1*o8 2BFB 
3181 XREG pC XL2*80018 2BFD 
3182 SVPREQ DC XL2"00038 2BFE 
3183 FFA pc CL3°FFA* 23FF 
30APR76 25SAR77 PROG ID CD6é—3 DATE 
571872 571989 PAGE 27. EC NO. 


3340 CE DISK EDITOR 


OBJECT CODE 


CcsCc6c2 
C6C6Cé 
FO6B6B40 
0003001102 
0003001001 
0003001002 
0003901003 
0003001004 
0003001005 
0003000001 
0004000001 
0002000001 
000003000F 
00000C001B 
0000000201 
0003001101 
0600000030 
0000000030 
6001000001 
00210012 


000100 
WA 
005F 
0200 
CIC3E3 
00 
0013 


CIC3E3 
0600000000060000 
00000000C0000000 
0000000009000000 
6000 


000000000000 


0000000000000001 
0000 


0000000000000001 
0000 


9000000000000601 
0000 


0000000000000001 
0000 ‘ 


0000 
0000000000 
00 
0002 
6003 
0004 
0005 
0006 
0008 
000Cc 
002F 
0030 
0957 
00 
00 
00 


29AUGT5 
827804 


22DECT 
827836 


ADDR 


2B2C 
2B2F 
25333 
28338 
2B3D 
2Ba2 
2B47 
2B4aC 
2B51 
2B56 
2B5B 
2B60 
2365 
256A 
2B6F 
2B74 


‘2B79 


2B7E 
2383 
2B87 
2B5A 
2B8A 
2B8B 
2B8D 
2B8F 
2B92 
2B93 
2B95 
2B96 
2398 
25B2 


2BAB 
2BB8 
2BB9 
2BC2 


2BBE 
2BC3 
2BCC 


2BC8 
2BCD 
2BD6 


2BD2 
2BD7 
2BEO 


2BDC 
2BE2 
2BE? 
2BE8 
2BEA 
2BEC 
2BEE 
2BF0 
2BF2 
2BF4& 
2BF6 
2BF8 
2BFPA 
2BFC 
2BFD 
2BFE 
2BFF 


S 


4248217 TBM MAINTENANCE DIAGNOSTIC PROGRAM 


MOD 12 
STMT SOURCE STATEMENT 
3184 FFB DC CL3* FFB* 
31785 DCPID oC CL3'FFF¢ 
31836 DTAHDR DC CL4*0O,, * 
3187 C3H172 DC XL5*00030019102°* 
3188 C3H161 DC XL5*00930010018 
3189 C3H162 DC XL5*0003001002° 
3190 C3H163 DC XL5* 00030010038 
37191 C3H164 DC XL5°000300100u* 
3192 C3H165 BC XL5*0003001005* 
3193 C3HO DC XL5*00030000018 
3194 CHHORI DC XL5*°0004000001" 
3795 C2HOR1 DC XL5*00020000018° 
3196 C3H15 DC XL5*000003000F* 
3197 COHO27 DC XL5°000000001B* 
3198 COH2R1 DC XLS*0000000201°* 
3199 FFALOC pC XL5*00030011018 
3200 CMHIDLC DC XL5*0000000030?* 
3201 COHONB BC XL5* 0000000030 
3202 C1HOR1 DC XL5*00010009018 
3203 C33H18 DC XL4*00210012¢* 
3204 ZERO EQU C4HOR 1-1 
3205 £256 oc IL3* 256 
3206 X74 BC ILU* 748 
3207 x95 DC IL2°95¢ 
3208 x200 DC X22°92908 
3209 bc CL3*actT® 
3210 ACTO DC XL1*008 
3211 x19 bc IL2*198 
3212 VTISB £EQU * 
3213 ne CL3*actT*¢ 
3214 VTIS ac 26IL1°0# 
3274 
3214 
3214 
3215 SCTR EQU VTIBB421 
3216 NAS Dc 6ILI‘O* 
3217 DDCFB £EQU * 
3218 DDCF yc XL 10 *000000000000000700008 
3218 
3219 DDCFH EQD DDCPB¢S 
3220 DDCFRB EQU * 
3221 DDCFR DC XL10*000000000000000 100008 
32217 
3222 DDCFRM EQU DDCFRB¢5 
3223 DDCFSB EQU * 
3224 DDCFS Dc XL 10* 00000000000000010000° 
3224 
3225 DDCFSH EQU DDCFSBtS 
3226 DDCFTB EQU * 
3227 DDCFT Dc XL10*00000000060000010000* 
3227 
3228 DDCFTSM EQU DDCPTBe5 
3229 SECT# DC IL2*0°* 
3230 xLoc bc 5IL1*°08 
3231 CMID DC IL1°O® 
3232 x2 DC IL2*2? 
3233 x3 DC IL2*3° 
3234 xy DC IL2*4¢ 
3235 x5 DC IL2¢*5°* 
3236 X6 oc IL2*6* 
3237 X8 Dc IL2*6* 
3238 X12 pc IL2*12¢ 
3239 x47 aC IL2*&7¢& 
3240 x48 De IL2*ase 
3241 X87 Dc IL2*87* 
3242 ICTR bc IL1*0* 
3242 ICTR DC IL1*oO®& 
3244 KCTR DC IL1*O8 
30AP276 25MAR77 
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IBM MAINTENANCE DIAGNOSTIC PROGRAS PART NO. 4248217 IBS BAINTENANCE DIAGNOSTIC PROGRAN 


FAST WO. 4248217 
PAGE 28 PASE 28A 
DD63 3340 CE DISK EDITOR MCD 12 Dn63 3340 CE DISK EDITOR SOB 42 
ERR LOC OBJECT CUDE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STHT SOURCE STATEBERT 
2C09 00 2C00 3245 MCTR pe ILiege 2D7B CIMOC3DIESHODEDS 3272 
2c07% 00 2C01 3246 FRDRV# DC IL7*Q¢ 2083 CURGDSC5S40CBCIE? 35272 
2C02 00 2002 3247 TODRVé DC IL2¢O8 2D8B 4OESD6DG64UCDEC IDS 3272 
2C03 00 2C03 3248 DELFG vc IE1°QS : 2D93 ESKOC2ZERBE3CSE2 3272 
2c04 0006 2C0S 3249 TSIN pc XL2°0° 2099 3273 ERROB EQU 2-3 
2006 27c1 2C07 3250 EXITA pc AL2(XEXIT} 2D9A CODSESCIDICICULS 2DC9 3274 ERRS pC CLUC°EINVALID CHARACTERS IB DRIVE FIELD OF SD0P OPTIOR® 
2C08 Ccuécs 2009 325% DEL pc CL2°DE? 2DA2 C3C8C IDECICZEICS 3274 : 
2CGA C&EK 2C0B 3252 DU ve CL2*pus 2DAR DSE2ZBOCSD5Ku0CENS 3278 
2C0B 3253 VMSGB EQD we 9 a ZDB2Z CSESC5e8OCEC9CSD3 327% 
2COC DSDESB4ODECE4OD? 2C2R 3254 VrOCis pc CL31°NO. OF PGM. ENTRIES LEFT IS XEKX* 2DBA C&dUDECESOSBCUEY 3276 
2C14 C7D44B40C5D5 Fabs 3254 2DCZ DIKO BEDI E3CIDEDS 327% 
2C1C C9C5SEZ40D3C5C6E3 3254 2DCS 3275 ERRIOB EQU e-% 
2C24 4OC9EQ2UOE7E7E? 3254 2DCR D&CIEZE2CSD5C74O 2DFE 2276 c CLES* MISSING UDI OR CPU CARD. INSERT CARD IW DECKE 
2C25 6B4CEZD7C&C3C54G 2C4E 3255 SPACES DC CL36*, SPACE AVAILABLE FOR PGHS. IS xxxxy: 2DD2 EUCKER40NEDS4OC3 3276 
2033 CIESC ICSD3CIC2D3 3255 2DDA D7IESXOC3CIDSCKER 3276 
2C3B C540C6DED94U DIC? 3255 2DE2 S080CSDSE2ZCSD9E3 3276 
2C43 DUEZUBYOCIEZH0E7 3255 2DEA GOC3C1DSCeKOC>SDS 3276 
2C4B EVETETE? 3255 2DF2 $0C4C5C2D2 3276 
2£C4P YOE2ZCSC3E3D6D9E2 2C57 3256 VMSG pc CLS® SECTORS, & 2DF7F SOCTDSCESOCIC&C4H 2209 3277 ERRYO DEC CL19° AND ADD DECK OVER. * 
2C57 4B 3256 2DFP 4OC4UCSC3ID24O0DEERS 3277 
2C57 3257 ERMSGB EQU  ¥*-% ZEO7 C5SD9aR 3277 
2058 F3F3F4FOUOC4DSCS 2C7B 3258 ERMSG pc €L36'3340 DRIVE X NOT READY OR UNIT CHECK® 2EC3 3278 ERREBR EQD ~1 
2C60 ESCS40E740DSD6E3 3258 ZEOA E3C8CS&OCSD6D3D3 2E27 3279 ERBEB pC Ci86*THE POLLOWING CHAIN IMAGE DATA CARD IS IKWALID¢ 
2C66 4OD9CSCICHERLODS 3258 2ZE12 D6E6CSD5C7480C3C8 3275 
2C70 DSYOESDSCIE3N0C3 3258 ZETA CICODS&OCSD4ECIC?F 3275 
2C78 C8C5C3D2 3256 2E22 CSW0CECTERCINOCS 3279 
2C7B 3259 ERMS1B EQU #*~7 ZE2R CIDICEHOCSE24EC9 3279 
2C7C CICKCID7E3C5D9GO 2090 3260 ERMSi Dc CL271*° ADAPTER CHECK On 23402 2632 DLESCID3CSCE 3273 
2C84 C3C8C5C3D240D5ED5 3260 2237 2260 ERRIGE EOD t= ¥ 
2C8C 4OF3F3F4UFO 3260 2E38 DSD6GODSDEDEDELS 2E6K 3287 BC CLE7*HO ROOK LEPL OB DATA ECDULE - DO & CEP BEFORE € 
2C96 3261 HDGiB EQU 4-14 ZE&G D3CSCEOE2¢ODEDSED 3284 
2C91 FOFO4O4ONOKONOUG 2CBD 3262 be CLa5*a9 63 04 07 os +4 t 2648 CUCTESC14OD4EDECE 328% 
2C99 YOFOP 3404 08040FO 3262 2ESG EspscS#eoeceocens 3282 - 
2CA1 F4UXOKCEOKOROROKG 3262 Z2E58 G4OCTSO5BC3DEDTES 328% : 
2CA9 POPTUOGO4OUOFOFS 3262 <b60 C2CSC6DEDSCSLO 3287 
2CBt 4OKOKOKO4ONOKOF1 . 3262 2E6? CICKCKCODSC7T4ODE 2E85 3282 EBERRI& DC CLI ADDING OR REPPING ANY PROGRANSS.°* 
2CB9 F140&QK404G 3262 2ZEGF DS&OD9C5D7DICSDS 3282 
2CBE FIF2G04040406040 2CEG 3263 HDGi pe CLETei2 15 16 19 26 23¢ Z2E77 C740C IDSEBRODTD9 3282 
2CC& SOFTF5SU040404OF? 3263 ZETF D6CTDSCIDGE2Q&B 3282 
2CCE F6404040K0R0K 040 3263 2E@5 3283 ERNS7B EOU %-7 
2CD6 FIFSLOMONOSOF2FC 3263 2E86 CSDIDSDEDS40CSDS 2EAB 228% ERMS? 5c CL38*2RROR IH MESSAGE, RETYPE AND HIT ERD °* 
2CDE 464040480404 040F2 3263 ZESE 4OD&C5SE2E2C1C7C5 3284 
2CE6 F3 3263 ZE96 BBAODICSESESDICS 3284 
2CE6 3264 EDESiB EQU *%-7 2ZESE &OCIDSCAKOCECSE3 3284 
2CZ7 F3F3F4PO4CC6CIC9 2D0B 3265 EDHS1 pc CL37*3340 FAILED TO EXECUTE A SIO 40 TIMNESE 2EAG 4OC5D5C4ELOED 3286 
2CEF D3CSC44OE3D640C5 3265 2EAB 3785 ERRSB EQU #4 
2CF7 EICSCSEGE3CS4OC? 3265 ZEKC C3CID9CHKOEZESDS 2ECD 3286 ERRS pc CL3&*°CARD SYNTAX ERROR - CARD READ WAS:* 
2CFF 4OE2ZCSD64OFIFO4UO 3265 2EB4& EIC1IETSOCSDSD9DE 3286 ; 
2D07 E3SC9DHCSEZ 3265 - .  ZEBC D9&O604OC3CTID9CE 3286 
2D0B 3266 EDHS2B EOU to. 4 ZECH 4OD9C5CICHEO BGC) 3286 
2D0C E3C8C540C9D5CEDE 2D38 3267 EDMS2 DC CLUS*THE INFORMATION BELOW IS THE 26 BYTE DIAG SNS 2ECC E273 3286 
2014 DID4CIE3C9DEDS40 3267 2ECD 3287 ERR6B ZQU %=1 * 
2D1C C2C5D3D6E640C9E2 3267 . 2ECE CODSESCTD3CSC44O 2EPH 3288 ERR6A DC CL39°INVALID SEQUENCE @ OF CAED - SEQ ¢ XXXx°* 
2024 4OEICBCSUOF2FE4UO 3267 ' 2ED6 E2CSDBEACSDSC3C5 3288 
2D2C C2E8E3C5£0Cac9gci 3267 2EDE 407B40D6D540C3C7 3288 
2D34 C740E2DSE2 3267 , 2EE6 DSC&KOGOKOE2CSDa 32¢e8 
2D38 3268 ERR3E EOC em 4 ZEEE SO7TBUOETETE?E? 3286 
<D39 CODSESCID3C9CH4O 2D64 3269 Dc CLET* INVALID HEADER CARD~ CORRECT HEADEP CARD * 2EFS5 SCE6CTE240D9C5SC4i 2F69 3289 ERR6C DC CL21° WAS READ, AND € XZXE® 
2D41 C8C5C1C4C5)940C3 3269 ZEFD C46340C1D5C4407B 3283 
2D49 C1IDSC&ECHOC3DEDS 3269 2F05 4O0E7E7E7E7 3289 
2D51 D9ICSCIESHOCBCS5C4 3269 2FOA &O04UOESCIE240C5E7 2F17 3290 ERRS BC CLI8® WAS EXPECTED* 
2059 CUCSD94OC3CIDSCY 3269 2P72 DIC5C3E3C5C4 3290 
2D61 40 3269 2F17 329% ERR7B EGU ¥*-7 
2D62 CiDSCK4YODICSE3D9 2D6A 3270 ERR3 pc CLO*AND RETRY* 2F18 CIDSESCID3ICICKUKO 2F34 3292 ERRIA pC CL29° INVALID ID - ID READ GAS XXXxX* 
2D6A E8 _ 32790 2F20 C9Ck&ADG6O4OC9C4KO ‘3292 
2D6A 3271 ERR8B EQU +e j 2F28 DICSCICKHKOESECTE2 3292 
2D6B E3C8CS4OCECECI4O 2099 3272 ERRB DC CL47°THE FFA DECK OR 2 CPU MODULE HAS TOO MANY BYTRS* 2F30 GOETETETE? 323. 
2D73 C4C5C3D240D6D940 3272 2735 6BYOCSCEAACSETD? 2F4A 3293 ERR? pc CL22*, ID EXPECTED WAS XXxXx* 
DATE  29AUG75.-- 22DEC75. ««30APR76. = 2S MART7 PROG ID DD6-3 DATE 29AUG75  =22DEC75 30APR76 Z5BAR77 | : eve a? noni 
EC NO. 827804 827836 571872 571989 PAGE 28 §EC NO. 6827804 827836 571872 571989 ti PAGE 2 a 
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1BM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248217 IBM MAINTENANCE DIAGNOSTIC PROGRAN PART NO. 4248217 
PAGE 29 PAGE 29A 
DD63 3340 CE DISK EDITOR HOD 12 ; 4 : DD63 3340 CE DISK EDITOR MOD i2 
ERR LOC OBJECT CODE — ADDR STMT SOURCE STATEBENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
2F30 CS5C3E3CSC440E6CI 3293 30E1 CUCSE2C9D9C5C4UD 30F5 3317 STRTA ODOC CL21* DESIRED SET ON SSW22.°* 
2F45 E2NOETVE7VETE7 3293 30E9 E2C5E34U0D6D540E2 33727 
2F4A 3294 ERRGB EQU t-j 30F1 E2E6P2F24B 3317 
2F4B CODSESCID3CICKKO 2F69 3295 ERRSY Dc CL31*INVALID SYSTEM TEST HEADER CARD® 30F6 C&C5D3C5E3C5C4 30FC 3318 PGMDEL DC CL7*DELETED® 
2F53 E2E8E2E3CSD4&40E3 3295 ; 30FPD 3319 ADMSG EQD * 
2F5B C5E2E340C8C5C1C4 3295 3O0FD SO4ONOKRONONOUOUO 31748 3320 Dc TSXLI*400* 
2F63 C5D9&0C3C1D9C4 3295 3105 404040404NKOuDKO 3320 
2F69 3296 SCERRB EOQU e~4 3710D 404040404040494K0 3320 
2P6A EZC3CID540C5D9D9 2F97 3297 SCERR DC CLU6*SCAN ERROR~ HIT SYSTEH RESET,START, THEN RETRY! 3115 4040404040404040 3320 
ZF72 D6DI604OC8C9IE340 3297 311D 404040404DRONOUD 3320 
2F7A E2E8EZE3C5D440D9 3297 3125 4040404040404 040 3320 
2F82 CSE2CS5E36BE2E3C1 3297 312D 4O0K040NUDKOLONCHO 3320 
2F8A DSEZ6BYOE3C8CS5D5 3297 — 3135 40404040404048080 3320 
2F92 4OD9CSE3SD9ES 3297 313D 4OU0KOKOEOGONORD 3320 
te 2F97 3298 SZERRB EQU wo 4 3145 40480 4C 40404040 3320 
2F98 C4C1TE3CIYOD4DECK 2FAD 3299 SZERRC DC CL22*DATA MODULE ON DRIVE x®* 314C 3327 ADMSGE EQU- * 
2PAO E4D3C540D6D540C4 3299 314C C1ICUC4HC5C4HS6 O60 3152 3322 ADDED pc CL7*ADDED--* 
2PA8 BSOCIESCS4O0E7 3299 3153 C&CICIC7TDSD6EZE3 3172 3323 DCPP pC CL32* DIAGNOSTIC CONTROL PROG---HOD 12° 
2PAE 4OC9E240D5D6E340 2FDB 3300 Dc CL&6* IS NOT A 12 M BYTE PACK. IF YOU WISH TO CONT? 3158 C9C3I4OC3IDEDSE3DS 3323 
2FB6 C1INOF1IF240D440C2 3300 3163 D6D340D7D9D6C760 3323 
2FBE E8E3C540D7C1C3D2 3300 316B 6060 D4D6CU4OF1IF2 3323 
2FC6 &B404OCOCE4OESDE 3300 3173 OA&8)O 3174 3324 READAD pC AL2(READIN) 
2PCE ESUOE6C9E2ZCB40E3 3300 3175 D4C9EZE2ZC9ODSC74O 3188 3325 ERRO Dc CL20*SISSING CONTROL CARD® 
2PD6 D64OC3D6D5E3 3300 317D C3D6D5E3D9D6D340 3325 
2PDC CODSESC56B40D9C5 2FFO 3301 SZERK DC CL21*INUVE, RESET TFE HALT. °* 3185 C3C1D9C4 3325 
2FE& E2C5E340E3C8C540 3301 3189 4OCYD54O0C5D9DIDE 3191 3326 ERR2 DC CL9* IN ERROR? 
2FEC C8C1D3E34B 3301 3191 D9 3326 
2FFO 3302 CERRB £QU *-4 31$2 .~5D640E2D7C1C3C5 3186 3327 ERROR6 DC CL37*NO SPACE AVAILABLE TO ADD NEW PROGRAN® 
2FF1 C5DID9DED9S4OC9DS 3021 3303 DC CLU9*ERROR IN DCP CONFIGURE RECORDs RECORD IS PRINTED® 379A 4OCTESCIC9D3C1C2 _ 3327 
2FF9 40C&8C3D740C32D6D5 3303 ' 31A2 DICSUOEZSDE40CICY4 3327 
36C1 C6CIC7TEUDICS4ODI 3303 31AA C44O0DS5SC5E640D7D9 3327 
3009 C5C3DE6D9CHEBLO4O 3303 31B2 D6C7D9CID4 e 3327 
3011 DIC5C3D6D9C440C9 3303 31B7 4OB7TETE7T4ODSD6E3 31C6 3328 MSGO2 DC CL16* XXX NOT ON DISK® 
3019 E240D7D9C9ODSE3C5 3303 31BF 4OD6D540C4C9OE2D2 3328 
3021 C4 3303 31C6 3329 MENUDIA EQU $-1 
"3022 40C2C5D3DE6E67A 3028 33048 CERR DC CL7* BELOW: * 31C7 C5DSE3CSD940DED5 371EC 3330 HENU1 DC CL38* ENTER ONE OF THE FOLLOWING OPTIONS: ‘ 
3028 3305 KBRDYB EQU +1 31CP C540 D6CE40E3C8C5 3330 
3029 DICSCICYES60C4SCI 303C 3306 KBRDY DC CL20* READY-DISK I/O OW DX?* 31D7 40C6D6D3D3D6E6C9 3330 
3031 E2D240C961D640D6 3306 31DF DSC74ODEDTE3CIDE 3330 
3039 D540C4E7 3306 31E7 DSE27A404040 3330 
303C 3307 MSPB ECU +4 31EC 3331 MENU?B EQU) #-14 
303D E2C5SCS4OD7ID9CIDS 3047 3308 SP pc CL11"*SEE PRINTER® 31ED 6150404040404040 3214 3332 MENUI1 DC CLE0* YE ~ TERMINATE OPERATION - « 
3045 E3C5D9 3308 7 31F5 &040404040604CE3 3332 
3047 3309 TERMB EQU e-4 31FD C5DSD4C9D5C1E3C5 3332 
3048 E2C5C3E3C9DED540 3059 3310 TERS BC CLI8*SECTION TERMINATED® 3205 40D6D7C5D9C1E3C9 3332 
3050 E3C5D9OD4UCODS5CIE3 3310 320D D6D5406040404040 3332 
3058 C5C4 3310 3214 3333 MENU%C EQN *-4 
3059 3311 STRTMB EOU +4 3215 SBC3D4D740404040 323C 3334 MENDI2 DC CL&0* $cmP ~ COMPRESS <- ‘ 
305A FISB4QUOEZEG DIDS 3085 3312 Dc CL&4*i,. TURN ON SSW TO SELECT INPUT DEVICE. ive 321D 40404040406040C3 3334 
3062 4OD6D540 E2E2E640 3312 3225 DEDSD7TDIC5SEZE240 3334 
306A £3D640E2C5D3C5C3 3312 322D 6640404040404040 3334 
3072 E38OCODSD7TEXE380 3312 3235 4O40KO4ONORO4OUO 3334 
307A C4C5SESCOC3C54B40 3312 , 323C 3335 MENUID EQU *-14 
3082 4O40FTF7 3312 323D SBC3D6D5C6C9C7T4O 3264 3336 BENUI3 DC CL4&0* SCONPFIG - CONFIGURE - s 
3086 6040F3F7F4F14040 3081 3313 pe CLO4t- 3741 18— 1442 1A-BFPCU NONE- 5471 # 3245 4040480004006040C3 3336 : 
308E SO4UOPIFS6040F 1F4 3313 324D DEDSCECOCTESDSCS 3336 
3096 F4F240404040F1C1 3313 3255 40604040404 04040 3336 
309E 60DNCE6CZE4N404040 3313 325D 4040404040404040 3336 
30A6 4ODSDEDSC56040PR5 3313 3264 3337 MENUIE EOD tm 4 
30AE F&F7F140 3313 3265 SBDIEZE340404G40 328C 3338 BENUI4 DC CL40*$LST - List - s 
30B2 40 30B2 3314 STRTMS DC CLit ¢ 326D 4040404040604 0D3 3338 
30B2 3315 STRTAB EQU 4 3275 C9E2E34060404040 3338 
3083 F2NB4ONOCHCOE2ZD2 30F0 3316 pe CLG6"2. DISK DRIVE 1 WILL BE USED. IF DRIP8E 215 327D 4040404040404040 3338 
30BB 4OC4DICIESC54OFI 3316 265 4040404040404040 3338 
ue goeeeieee eae: 3316 3282 3339 MENUIF EQU ¥*-4 
B 4OE4E2CSCUNBEOKO 3316 328D 5BC4CSDZE7E7E76B 3254 3340 MENDIS DC CLU0*SDELXXX,XXX XXX= I , 
30D3 CSC640CKDOCIES5CS 3316 3295 EVETETOOGOE7EVE? 3346 : 7 Beyer seh he eee 
30DB 40F240C9 E240 3316 , 329D FEGOC9ICH4ODECE4D 3340 
DATE 29A0G75 22DEC75 30APRI76 25MAR77 PROG ID DD6-3 DATE 29A0G75 22DEC75 30APR76 25EHAR77 PROG ID DP6- 
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PAGE 30 PAGE - 30K 
DD63 3340 CE DISK EDITOR _ BOD 12 DD63 3340 CE DISK EDITOR BOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STST SOURCE STATEMENT 
32A5 DICTDS4DE25D40E3 3340 3469 404040404040 3363 —g 
32AD D640C4C5D3C5E3C5 3340 346E 3364 MENUSD EQU) #4 
32B4 3341 MENUIG ECU ¥*-4 346F E3C8C540C6D6D3D3 3496 3365 MENUS3 DC CLGOf'THE FOLLOWING ARE EXAMPLES: e 
32B5 SBCHESD740C6C6E3 32DC 3342 MENUI6 DC CU4O'$DUP FFTT FF= FROM MODULE: TT= TO MODULE? 3477 D6E6CSD5C740C1DS 3365 
32BD E340C6C67E4OCED9 3342 347F CS4OCSETCIDUDTD3 3365 
32C5 D6D44ODSDEC4EGD3 3342 3487 CSELZTAYO4O4O4OUG 3365 
32CD C55EWOE3E37E40E3 3342 348P 4040404040404040 3365 
32D5 D640 D4DEC4ES DCS 3342 3496 3366 MENOSE EQUD *-1 
32DC 3343 BENOIH EQU *=14 3497 SCUOUBRBUBGBLO4G 34BE 3367 BHEROS& DC CLUOt* 2... (ADD THE DESIRED COMMENT) * 
32DD SBDICSDTE7VE7TE7T4O 3304 3344 MENDI7 DC CL4UO* $REPXXX XXX= ID OF PROGRAM TO REP * S4SP 404040404040404D 3367 
32E5 4O404OK04OETETET 3344 34A7 CICUC44OE3CBC540 3367 
32ED TEGOC9C440DEC640 3344 34AP C&UCSE2C9D9C5C4H4O 3367 
32FS5 D7DID6C7D9C1D440 3344 34B7 C3D6D4DUC5D5E35D 3367 
32FD E3D640D9C5D74040 3344 34BE 3366 MENUSF EQU *%-4 
3304 3345 MENUII EQU ¥*=4 34BF D9GOETEVETET4GE? 34E6 3369 BENUSS DC CLOO*R XXXX XXXXIX.. 2. * 
3305 C4CSD7DICSEZE240 332C 3346 MENUDIB DC CL40*DEPRESS -END- KEY TO INPUT RESPONSE ° 34C7 .EFETETETET4BYUBUB 3369 
330D 60C5D5C46040D2C5 3346 38CF 4B40404040R04040 3369 
3315 E840E3D640C9D5D7 3346 24D7 4040404040804040 3369 
331D EVE3GODSCSE2D7D6 3346 34DP 4O49404040404040 3369 
3325 D5E2C560404 04040 3346 34E6 3370 HENUSG EQU #1 
332C 3347 MENU2B EQU *-14 34E7 E2E2E640F1C36BF1 3505 3371 MENUSG6 DC CL4O*SSW 1C,1D (TURNS ON SSW 1C AND 1D)}° 
332D CSDSE3C5D940C3DE 3352 3348 MENU2 DC CL38*ENTER CONFIGURE RECORD, OPTIONS ARE: * S4YEF C440404040404040 3371 
3335 D5C6C9CTEUDSC5&0 3348 34P7 4YDEIJEGDSD5E240D6 3371 
333D DICSC3DED9CK6B4O 3348 34FF DS¥OEZE2E640F1C3 3371 
3345 D6EDTE3ZC9DEDSE240 a3ue8 3507 &CCIDSC4USOFICUSD 3373 
334D CIDICS7TA4040 3348 350E 3372 BSENUSH EQG *-1 
3352 3349 MENU2C FOU *-4 350F C5404040G04DC3CI 3536 3373 KENUS? DC CLEOTE (CAUSES REPS TO BE WRITTEN OW DISK) * 
3353 CIDTEQ4O4BUB4BAO 337A 3350 MEN22 DC CLOO'CPU ... (EXAHPLE - CPU G,8000,0) * 3517 EVE2CSE24 0D9C5D7 3373 
335B 40404048040404DC5 3350 351F E24OE3D640C2C540 3373 
3363 E7C1D4D7D3C54060 3350 3527 E6DIC9EZE3C5D540 3373 
336B 4OC3D7E480C76BF8 3350 352P DODS4OCUCIEZD25@ 3373 
3373 FOFOFO6GBFOSD4040 3350 3536 3374 MENGSI EQU  *-1 
337A 3351 MENU2D EQU) *~4 3537 E7404080480404040 3558 3375 BERUSB DC CLUOrX (RETURN TO THE BAIN OPTION MENU) ® 
3373 E4C4E340UBUB4B4O0 33A2 3352 HEN23 DC CL&O*UDT ... (EXAMPLE - UDT C1-2,E90,..)°* . 353F 4SDDICSEZE&D9DS4O 3375 
3383 4040404040404DCS - 3352 3547 EID640E3CBCS4OD4 3375 
338B E7C1D4D7D3C54060 3352 354F CIC9DS4ODED7E3C9 3375 
3393 4OE4C4E340C3F160 3352 3557 DE6EDSSODUCSDSE45D 3375 
339B F26BC5SFO6B4B4B5D 3352 ; 355E 3376 REMB EQU *=1 . 
33A2 3353 MENU2E EQU *-1 . 355F C3D6DSC6CSCTE4DS 3584 3377 ope CL38*CONFIGURE CHANGES COMPLETE ON DISK. e 
33A3 EUCUE3E74BUB4BS0 33CA 3354 BEN24 DC CLUO*UDTK... (EXAMPLE - ODTX14,51,...) * 3567 C540C3C8CIDSCFCS 3377 
33AB 404040404Q0404DC5 3354 356PF E269C3D6D4D7D3C5 3377 
33B3 E7C1D4D7D3C54060 3358 3577 E3C540D6D540C4C9 3377 
335B 4O0E4C4ESE7F1IFU6B 3354 357F E2D24B404040 3377 
33C3 FSF1I6BUB4BABSDLEO 3354 3585 4OEBD6ESKODREGE2 35AC 3378 RES Dc CL4O* YOU SUST IPL DCP TO PUT THES IN EFFECT. * 
33CA 3355 MENU2F EQU t— 4 358D E3Z&0C9D7D340C4C3 3378 
33CB 616140C3C8C1C9D5 33FA 3356 MEN25 DC CL48°// CHAIN 048 OR // CHAIN 120 OR // CHAIN STD* 3595 D7IVOE3DE40D7EUE3 3378 
33D3 4SOFOF4F84040D6D9 3356 359D 40£3C8C5D44CC9DS 3378 
33DB 4040616140C3C&C1 3356 3505 4OCSCECK6C5C3E34B 3378 
33E3 CODS4OFIF2FO04U040 ' 3356 ; 35AC 3379 RESB2 EQD *%=-1 
33EB D6D94040616140C3 3356 35AD GOESEBDICSYOR74G 35D4 3380 DC CL&0* TYPE X AND DEPRESS END TO RETURN TO MAI® 
33F3 C8C1ICODS4CEZE3C4 3356 35B5 C1DSC44O0C4C5D7DS 3380 
' 33FA 3357 MENUZH EQU a 35BD C5E2ZE240CSD5C440 3380 
33FB E740404040404040 3422 3358 MEN27 DC CLuOtx (RETURN TO THE MAIN OPTION HENU) ° 35C5 E3D6GODSCSE3E4DS 3360 a 
3403 4DD9CS5SE3ZE4D9DS40 3358 2 : 35CD D540E3D640D4C1C9 3380 
340B E3D640E3C8C540D4 3358 35D5 D540DEDTE3C9LEDS 35E3 3381 REM2 DC CL1S*N OPTICH MENU. ° 
3413 C1C9D540D6D72£3CS 3358 35DD 4ODSCSDSEG4GBSO 3381 
341B D6D540D4CSDS ESD 3358 3523 3382 BCTLB EQU *-1 
3422 3359 MENUSB EQU *#-1 . 35E4 CS5D9D9IDED9I4LO 35E9 3383 DC CLO6O"ERROCR ¢ az 
3423 CSDSE3CSD940C3C8 3448 3360 MENUS DC  CL38*ENTER CHAIN IMAGE CARD (48 HEX DIGITS) * 335EA CIDSHODEDTEZCIDE 350A 3384 HCTL DC CL33°IN OPTION -- RETYPE & BIT END 
342B CIC9DS4OC9DaCIC? © 3360 35F2 D540605040D9C5E3 3388 
3433 C540C3C1D9CaK OUD 3360 35FA ESDICS&OS040CEC9 3384 
343B FUFB84OCBCSE740C4 3360 3602 E340CSDSCEGDEOHO 3268 
3443 C9C7C9E3E25D 3360 360A 40 3384 
3448 3367 NENUSB EQU wo 4 360A 3385 HADDB EQU *-1 
3449 CSD5E3CSD940DEDS 3460 3362 pe CL24* ENTER ONZ REPLACE RECORD® 369B SBCICUCSUOCIDSES 3617 3386 DC = CLU3"SADD INVALID ° 
3451 C540D9C5D7D3C1C3 3362 3613 CiID3CSCKKD 3386 
3459 C540D9C5C3D6 DOCK 3362 . 3618 E6COCSDSH0ENE2CS 3630 3557 SADD DC CL25*WHES USING 5471 FOR INPUT* 
3461 4040404080408080 346E 3363 REPWHO DC CLiae : $REPXXE IS INSERTED HERE 3620 DSCTYOFSF4FTFI4G 3387 
DATE 29AUG7S5 © 22DEC7S =» 330APR760—s- 2S HART7 | | PROG ID DD6-3 DATE 29AUG7S =22DECT5 = 30APR76 = 25BART7 4 preety reas 
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DD63 
ERR LOC 


3628 
3630 


3631 
3639 
3641 
3649 
364A 
3652 
3658 
3660 
3668 
3670 
3675 
367D 
3685 
368D 
3695 
362D 
36A2 
36AA 
36B2 


_ DATE 
EC NO. 


3340 CE DISK EDITOR 


OBJECT CODE 


C6D6D940OCIDSDTE4 
E3 


C5D5E3C5D94025C5 
E7E340D9C5D7D3C1 
C3C540D9C5C3 D6D9 
ch 
4040404040404040 
404040404040 
F3F7F4F1G0C9E240 
DSD6E340C9D54CE3 
C8C540D9CSC1IC&4O 
D4D6CHC54B 

D7 EYE340P3F7F4F 1 
4OC9DS5E3D640D9C5 
CIC4sODs DECHCS5S4HO 
SDE2CSC5S40EGE2C5 
DI E240CTEWCOCHCS 
4040404040 
C2D3D6C3D240F1F0 
SD40C 1D5C440D9C5 
E2C5E340C8C1D3E3 


29AUG7S . 
827804 


ADDR 


3630 
3649 


BOD 12 


STMT SOURCE 


3387 
3387 
3388 MENOSC 
3389 
3389 


- 3389 


3657 
3674 


36A1 


36B9 


22DEC75 
827836 


3389 

3390 REPWH1 
3390 

3391 RDMD 
3391 

3391 

3391 

3392 

3392 

3392 

3332 

3392 

3392 

3393 SETUP 
3393 

3393 


30APR76 
571872 


EQU 
DC 


PART NQ. 
PAGE 


STATEMENT 


+=4 
CL25'ENTER NEXT REPLACE RECGRD! 


pc CLU4at ® SREPXXKX IS INSERTED HERE 
bc CL29*3781 IS NOT IN THE READ MODE. ¢* 

pc CL&S* pour 3741 INTO READ MODE (SEE USERS GUIDE ¢* 
pc CL24*BLOCK 10) AND RESET HALT® 

25HAR77 PROG ID 
571989 PAGE 


4248217 2BS MAINTENANCE DIAGNOSTIC PROGRAM 


31 
DD63 


ERR LOC OBJECT CODE 


DD6-3 DATE 
31 &EC no. 


3340 CE DISK EDITOR 


29A0G75 
827804 


ADDR 


0O7F 
346E 
0008 
0216 
G21A 
0001 
0002 
0222 
O20A 
OB60 
OB61 
0B62 
0B67 
0002 
0001 
0212 
O21E 
0226 
C22a 
ooc4a 
00C6 
029A 
3FFF 
3900 
00co 
0018 
6879 
0001 
0020 
8010 
0008 
0080 
0001 
0020 
0010 
0001 
00cO0 
00cs8 
oc bo 
00D8 
0020 
0010 
0080 
0040 
0020 
0010 
OAO? 
O22F 
0232 
0211 
0080 
0040 
6020 
0010 
0208 
020C 
OA02 
0003 
003P 
00385 
0000 
0028 
0050 


22DEC75 


827836 


HOD 12 

STMT SOURCE STATEMENT 
3395 **eeeentanse 

3396 * EQUATES * 

3397 

3398 

3398 

3399 MSGBGN EQU X*7F* 
3400 MENUS1 EQU  REPWHO 
3401 ARR EQU = x* 08" 
3402 LINK EQU  x*2168 
3403 PRINT EQU X*21A® 
3404 XR1 ZOU x"O1" 
3405 XR2 EQD) = x"02¢ 
3406 HALT EQU  x*2228 
3407 SBYTE2 EQO  x*020a" 
3408 DBYTEO EQU DGSHSB 
3409 DBYTE1 EQG DGSNSB¢1 
3410 DBYTE2 EQU DGSNSB¢2 
3411 DBYTE7 EQU DGSNSB¢7 
3412 TRKCC EQU x*O02* 
3413 OPINCP EQU xX*O01! 
3414 TESS EQU x*2142¢ 
3415 UNPACK EQU Xx*21B¢ 
3416 PACK EQU  X*2268 
3417 LOAD EQU Xx*22~8 
3418 DDDR EQU x*cur 
3419 DDCR E£QU x*C6F 
3420 SWITCH EQD = x*020a~° 
3421 X3FFF EQU X*3FPF* 
3422 CARD2A EQU x*3900" 
3423 IAR1 EQU  xX*COe 
3424 SIOI EQU x*188 
3425 CRTIPLG EQU x*879* 
3426 SsWwO7 EOQU x*O18 
3427 SSW22 EQU  x*20° 
3428 SssW23 EQU x*108 
3429 ssw24 EQU  x*O08® 
3430 ssw18 EQU x*808 
3431 ssw17 EQU = x*O18 
3432 ssW1A EQU  x*208° 
3433 SSW1B £00 x*108 
3434 ssw2F EQU x*O18 
3435 DR1 FQU = X*CO# 
3436 DR2 EQU x*CBF 
3437 DR3 EQU) =-x* DOF 
3438 DR4 EQU x" pee 
3439 PTIAR EQU  x*208 
3440 IAR ZOU 16 
3441 SNSDR1 EQU) x*808 
3442 SNSDR2 EQU  x*4OF 
3443 SNSDR3 EQU x*208 
3444 SNSDRY EQU xX*108 
3445 QPUDT EQU xX*A07® 
3446 QTAB EQU Xx*'22F8 
3447 UIAB EQU x*2328 
3448 RPFX QO x*2118 
3449 BITO EQU x*8O0F 
3450 BIT1 EQU  x*aoe 
3451 BIT2 EFQU x*208 
3452 BIT3) EQU x*10° 
3453 SBYTEO EQU. x*208¢ 
3454 SBYTES EQD  x*20C* 
3455 SPFLGS EQU  xXx*202 
3456 H1 EOD x" 
3457 HA EQU) «x'3F* 
3458 HH Bou 8 =6x*3B 
3459 11 200 00 
349 L2 FOU 8-40 
3461 13 EQU. 80 
30APR76 258AR77 
571872 571989 


PART NO. 
PAGE 


6248217. 
314A 


SESE TER SESS EESEESSESEESERSEKESERE OEEESEESEEDEKESEHESSOEESORERSEOEERROEEED 


SECTION PREFACE UNIT TABLE-3 


FIRST SYTE OF UDT TABLE-3 
PIRST SYTE OF UDT TABLE 


SECTION PREFACE FLAGS 


HALT DISPLAY 1 
HALT DISPLAY A 
HALT DISPLAY 8&8 


PROG ID 
PAGE 
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3a 


IBM MAINTENANCE DIAGNOSTIC PROGRAMS PART XO. 4248217 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 8288217 


PAGE 32 PAGE 32A 
DD63 3340 CE DISK EDITOR BOD 12 DD63 3340 CE DISK EDITOR BOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERB LOC OBJECT CODE ADDR STHT SOURCE STATEMENT 
0078 3462 L4& EQu 120 Z47TQ FECES HEEEEAEEEE SEEKERS RES EEEEETESEEEEER EERE SEK SEERERESEOEREEEEOEEEEEEKEEEERE 
OOAO 3463 LS EQ 160 3480 * 
QOO0CB8 3464 L6 EQU 200 3481 * ER D CARD ROUTINE 
OOFO 3465 LT EQU 240 3482 * 
0118 3466 LB EQO 280 ‘ 3YBS FEKEEEEEEEEE EE SEEEEREREREEEASEEEESEEEESESESERESEREEED 
0180 3467 LO EQU 320 . 36BA 40 36BA 3484 ENDROU DC CLi# ¢t 
0768 3468 L10 EQu 360 36BB 1C 16 0016 FF 3485 SVC 22 (23) ,LENGTH-ENDROU¢ 127 (, XR 1) 
0190 3469 111 EQU 400 . 3486 * SET UP PROGRAN RESTART 
O1B8 3470 L172 EQU 440 36CO0 4C 01 DS 022F 3487 HYC LM@-ENDROUC¢I26 (2,XR1) ,X*22F! 
OA6GF 3871 IDLOC EQU SAVID-~-5 3488 * SET MESSAGE ADDRESS IN PRINT LINKAGE 
0900 3472 x900 FOU xX*9008 36C5 38 80 OA02 3489 TBN SPFPLGS,BITO BRANCH IF NO UDT ENTRIES 
2BEO 3473 WRT# EQU DDCFT 36C9 F2 10 3F 3490 JT LDEND 
2C05 3474 DAT ECU TSTIN 36CC C2 02 OA07 3491 LA QPODT, XR2 POINT XR2 AT SECTIOW PREFACE UDT(-3) 
087C 3475 x&7c EQU X*87c° : 36D0 C2 0% 022F 3492 OFIND1 LA QTAB,XR1 POINT XR AT BCP UNIT TABLE (<3) 
0880 3476 x880 Eou X*8808 36D4 E2 02 03 3433 LA 3(,XR2) ,XE2 INCREMENT PUT POINTER +3 
0004 3477 SSWOS EQD X*Qg? 36D7 D2 01 03 34948 UFIND2 La 3(,XK1) ,XR1 INCRESENT POINTER BY THREE 
36DA 6D 00 00 00 3495 cLe 0€1,XR1) ,0(, XR2) BRANCH IF NOT PROPER ODT 
36DE F2 01 15 3496 JNE UOFINDS 
36E1 9C 00 02 02 3497 AVC 2(1,XR2) .2¢,XR1) LOAD SECTION PREPACE OPTION 
36E5 98 03 01 01 3498 ANN 1(, XR2) ,1¢,XR1) BITS 
36E9 BA 20 061 3499 SBN VU XR2) ,BIT2 SET ASSIGNED FLAG 
36EC BSB 10 01 3500 UFIND3 TBN 1(-XR2) , BIT3 (UFIND3 CHECK) 
36EF CO 90 0916 3501 BF X900¢UFIND1-—ENDROU IF NOT LAST ENTRY, GO LOAD NEXT 
36F3 F2 87 15 3502 J LDEND OTHERBISE ~ GO START SECTION 
36FE 78 10 01 3503 UFIND4 TBN 1(,XR1) ,BIT3 CHECK FOR LAST DCP ERTRY 
36F9 CO 90 091D 3504 BF X9004¢0FIND2-—ENDROU CONTINUE IF NOT LAST ENTRY 
36FD B9 40 01 3505 TBF 1(,XR2) , BIT! SKIP ERROR HALT IF REQUIRED FLAG 
3706 CO 10 0932 3506 BT X900¢UFIND3-ENDROD NOT ON 
3704 FO 3B 03 - 3507 ALT1 EPL H1,HH *UDT CANNOT BE SATISFIED 
3707 CO 87 0932 3508 B X900¢UPIHD3—-ENDROU BYPASS ERROK IF HALT RESET 
370B CO 87 O21A 3509 LDERD 8B PRINT TO PRINT HEADING 
370F 47 370F 3510 bc XL1°4Q7* 
3710 OE 3710 3511 pc IL1*1a¢ 
3771 0000 3712 3512 Lea pc AL2 (*-*) 
7 3713 FFOO 3714 3513 DC XL2°*FFPOGv! 
3715 39 04 0208 3514 TBF SBYTEO,SSW07 
3719 39 08 OTFD 3515 TBF xX*1FPD*,x*08* 
371D F2 90 03 3516 JP . *¢06 
3720 FO 3B 3F 3517 HLTA HPL HA, HH 
OAOZS 3518 — USING RNUS, XR2 
3723 C2 02 OA03 3519 LA RNOH, XR2 SAVE FIPST ROUTINE PREFIX AND 
3727 BS 01 O04 3520 L &(,XR2) ,XR1 
372A 9C 00 00 00 3521 AYC RNUB (1, XR2) .0(,XR1) LOAD CURRENT ROUTINE NUABER 
372E 1C 03 0211 03 3522 avC RPFX (4) 3 (,XR1) 
3733 cO 87 0212 3523 B TEST CHECK DATA SWITCHES 
4 3737 DO 87 04 3526 B &@ (, XR1) START DIAGNOSTIC SECTION 
i 373A 3525 LENGTH EQU * 
t 
DATE 2SAUG75 22DEC75 30APR76 25MART77 PROG IP DD6-3 DATE  29A0G75 22DEC7S  930APR76 258AR77) ene Pe. 
EC NO. 827804 827836 571872 $71989 
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IBM MAINTENANCE DIAGNOSTIC PRCGRAB PART NO. 4248217 IBM MAINTENANCE DIAGNOSTIC PROGRAK PART WO. 4268217 
PAGE 33 } PAGE 33a 
DD63 3340 CE DISK EDITOR BOD 12 Db63 3340 CE DISK EDITOR MOD 12 
ERR LOC OBJECT CODE ADDR STHT SOURCE STATERERT } eer LOC OBJECT CODE ADDR STHT SOURCE STATEBEBT 
3527 FERSEESAEECKSESSESEETE ESEEEEERES CREE EEERESEREESEES SEES EEREESERSEEEEREEREDR ) 3542 TREP 
3528 * IF FLAG OCCURS ON THIS ORG YOU HAVE EXPANDED INTO x*3900". 3543 TREP 
3529 * 3900-39FF IS THE BUFFER FOR SECOND CARD FOR 2560 ARD 1842. 3544 TREP 
3530 * 3A00- ON IS RESERVED FOR JSE BY THE SLTA CONFIGURATOR PROGRAS j 3545 TREP 
3531 * * PE7*.. 3546 TREP 
7JE3A 3532 ORG X*8000*~x*3900°¢# 3547 TREP 
3533 * } 3548 TREP 
3534 « 3549 TREP 
3535 * 3550 TREP 
3536 *# } 3551 TREP 
4800 3537 ORG x*as00* 3552 TREP 
4800 3538 DDDF egy * WCRK FIELD 3553 TREP 
4800 77FF 3539 DS &8CL256 } 3554 TREP 
4300 3540 DDDF1 EQU DDDF+256 3555 * JEB 
OBSD 3556 END SETDSK 
4 
y 
: 
‘ 
DATE 29AUG75 22DEC75 30APR76 25BAR77 PROG ID DD6-3 ’ DATE 29AUG75 22DEC75 Z30APR76 254AR77 PROG ID DD6-3 
EC NO. 827804 827836 571872 571989 PAGE 33 EC NO. 827804 827836 571872 571989 PAGE 33a 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. - 
PAGE 34 3 PAGE 34a 
DD63 3340 CE DISK EDITOR HOD 12 DD63 3340 CE DISK EDITOR HOD 12 
CROSS-REFERENCE } CROSS~REFERESCE 
SYMBOL fT LEN ¥YALUE DEFN REFERENCES . SYMBOL T LEN VALUE DEFE REFERESCES 
AAO? A O0O& OBF2 0111 0108 0186 0233 COMPXT A 008 2028 2083 2027* 2068 2072 
AA1® aA 008 FTE 2040 2038 . -CONTAS A 00% 2098 2126 213% 
AA19 A003 1F7S 2037 2083 CONTAS Kk 00% 208C 2423 2411 
Aa20 & O0O& 1F97 2086 2058 CONTA6 & OOK 20B2 21432 2128 
ACTO A001 2893 3210 0565 7636 1732 1756 2366 CONTA? A 004 OFB3 0383 0347 
ADDCPE A 001 116F 0630 0749 CONTAS A 006 21F41 2271 2259 2265 
ADDED A&A 007 3152 3322 0268 — = 4% CONTAS A 008 131% 0797 0790 
ADDFPA A 001 176B 0627 0299 CORTB2 & 0041 OEFO? 0327 63028 
ADDFLG A 0C1 2ACO 3139 G8O1* 0262*% 0775* 1106% 2871 CONTC3S A 004 1T6FE 0580 6527 oO548 
ADDR A002 2acS 3182 1956* 13646 2033* 2060 2507* 2615 2846% 2849 2864*% 2868 CONTCS A 006 OFE3 0493 0486 
ADDR? A 002 1F58 2025 2032* 2059 CONTCS 2 006 12RA 0759 0509 0592 
ADDTST A 001 OCAS 0199 01646 CONTDS & 005 10E6 0573 ose 
ADMSG A 001 30FD 3319 0264* 0265* 0266% 0569 0570 0759 0762 0763% O768* 0767 0927% O926% CONTE? A 005 ODD2 0305 030% 
1076* 1C77* 1078% 1979% 1083 €272% _CONTE2 A 003 OF70 0363 0355 
ADMSGE A 00% 344C 3321 0767 0766 1083 1084 CONTES Ak 00% 2331 2827 2873 
ARR C00t 0008 3401 0042 0047 O705 11589 16868 2027 209% 2150 2202 2249 2288 2321 CONTEG6 A 06% ODAA 06295 0287 ¢283 
2366 2849 2506 2625 2684 2695 2768 2836 30487 3070 3084 3109 »CONTF3 A 008 475C 1230 1209 1213 
AST A 003 2275 2362 2339 ’CONTG? 2 005 123C 0717 0773 
ASTRK A 00% 12F1 0788 0364 ; CONTGZ A 008 1258 0725 0716 
BBi A 00% 1873 1344 1331 »CONTG3 A 006 129E 0749 0744 
BE55 2& 00& 2751 2866 2865 *CONTGS & 006 ITEC 0674 0667 
BITO C004 0080 3449 3489 CONTI? A 003 2883 2960 29487 
BIT? Cc 6007 0040 34850 3505 ® CONVERT A 004 202E 20948 6360 1229 
BIT2 Cc 001 0020 3451 3499 * CONYTR A 00C& 20B6 273% 2098% 
BITZ C001 Ov10 3452 3500 3503 COUNT & 002 2aD9 3753 1874% 1876% 1684 7689% 1492 7898 1508* 1508 1513% 1576* 1531* 1533* 
BLNK A 006 OBOS 0034 0282 0789 0803 2717 5 4536% 1543® 1546 a 
BRTRY1 & 006 246A4 2582 2810 *CPCNTY A 004 FEB 2067 2036 
BUF14 A&A 002 27F2 2887 2888 3064 CPUDFG A 00% 2AAP 3125 0529 O87& 0882% OoSss7* 
CALCAD A 008 19C3 1869 1432 -CPUFG A COT 2ABD 3736 0266 0577 0628 0666 0671% 0735* 0751% 0992 10716 1025 
CAL12 A 001 TAB? 1527 4470 CPUIDZ & 00% 2B0% 3169 0372 0566 
CARD1@ & 002 27F0 2886 2962 3032 3059 CPUPG A 00% 121D 0794 0269 06373 
CARD2@ &k 002 27F2 2888 3006 CPUPGR A 008% 12a6 0752 0705* 
CARD2A C 007 3900 34022 3067 - CPu h 002 2AD3 3150 1508% #547% 1566 1568 
CARSAY A COT 2aC6 3143 1566% 1580 CRIFLG C 001 0879 3825 
CDEXIT A 004 2930 2998 2992 CTLREC A 00& 28FS 2986 2976 
CD10R2 A 00% 2ABF 3136 0394 2029 2862* 2869* 2875 2961* 3037* 3060* 3065* CcTR1 A 00% 2B2% 3179 2704* 2720¢ 
CERR A 007 #3028 3304 1995 1996 CTR2. A GO% 2B22 3180 2705 27154 
CERRB A 001 2FFO 3302 1995 COHO27 A 00S 2B6A 3197 1397 1420 449 
CFGEND A 0046 1F28 1988 1876 1678 — COHO48 A 005 2B7E 320% 0566 0746 
CFGERR A 004 1F30 1993 1885 COH2R1 A 005 2B6F 3198 1445 
CFGPGH A 00% 1D97 1836 0207 -CTHOR? A 005 2883 3202 C75 
CFIGFG A 00% Zac 3140 0899 1048 1837* 1988¢ C2HOR? A 005 2B60 3195 060% 1627 172% 2373 
CFRT a 004 DBD 1848 1049 C3HO A 005 28356 3193 056% 0586 1145 
CFRTRN A 004 1F00 1972 0900 C3H15 #& 005 2865 3196 0532 0534 06809 0889 9936 1860 1641 1895 
CFRT3 aA O0OG DED 1873 1977 1986 2000 C3H161 A 005 2B3D 3188 2289 2323 
CHK? A 004 24D% 2595 2578 C3H962-h 005 2B&2 3189- 0578 1679 - 
CHNERR A 004 25AD 1040 0847 0858 -C3H163 A 005 2B4&7? 3190 0526 
CHNID A 008 2809 3170 0374 1880 -C3H164 A 005 2BuC 31491 0547 1148 
CKER aA 002 2An7 3152 1566 C3H165 & 005 2B51 3192 0552 
CK A 004 ODED 0313 0306 0310 , » C3H172 Rk 005 2838 3187 0303 90525 
CK18 2&2 008 2781 2853 26405 #C33H18 A 008 2B87 3203 2521 
CLE55 a 0O0& 27A7 2864 2860 ; C4HOR? A 005 2B5B 3198 0600 1396 1806 2302 3204 
CLI a GO& 249D 2579 25486% ~DADD & 004 2ABA 3438 
CLI2. aA 003 OD95 0289 0286* 0288* 0294 * DAT A002 2c05 3478 2908 2905 2907 2912 29%%¢ 29916 2977 
CLY A002 2ACF 3148 1692* 1499 DBYTEO A 00% OB60 3406 28602 2807 
CL3 A 002 2ACB 3146 1472* 1475 529% 1532 . DBYTET Rk 00% O567 3809 2803 2808 
CMCNT1 A 005 1CB2 1743 1730 - DBYTE2 aA 00% OB62 3410 7388 1394 2809 
SHCNT2 A006 20F8 2162 2158 DBYTE7 A 007 OB67 341% 2626 2634 
CHCHT3 A 006 2108 2166 2061 »DCPCD1 A 008 1312 0800 0368 1215 
CuCNT4 A 004 1D70 1810 1802 1818 -DCPCD2 a 004 1383 0834 0375 788% 
CMID aA 001 2BE8 3231 0728 0730 0732 pcpcp3 A 003 13F5 0872 0371 1887 
CMIDLC A 005 2879 3200 0674 0683 07%45* 0746" >» DCECD4 A 004% 141D 0885 0373 1883 
CMLOOP A 006 1F9B 2047 2052 - DCPCN2 B&B 0C& 7480 0899 0876 0879 
CMPCON K 0G2 2B18 3175 0214 DCPCN< A 005 7406 0878 0873 
CMPPGH A 00% 1€69 1717 0215 + DCPCT? A 00% ODF4 0314 0958 
CMPRS1 A 004 1F59 2027 0408 0649 0952 *DCPERR A 008 1599 %029 0536 
% . = 
DA 9AUG7 -2* DATE 29a9675 22DECTS 30APRT6 25 HART? PROG ID pD6-3 
TE 2980G75 22DEC75 30APR76 2588277 PROG ID DD6-3 Ec NO. 827808 627836 571872 571989 PAGE 34a 
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DD63 3340 CE DISK EDITOR SOD 12 
SYSBOLT LEN VALUE DEFN REFERENCES 
DCPFG A001 2AB3 3129 0263 0263* 
1260 
DCPID A 003 2B2F 3185 0973 1115 
DCPP A032 3172 3323 0926 0928 
DDCF A010 2BC2 3218 0&32* 0469* 
1290* 1416% 
DDCFB A001 2BB9 3217 0836 O474. 
1844 1701 
DDCPE 4 001 237E 2492 2519% 2521 


DDCPM A 00% 2BBE 3219 0303* 0319*% 
0937* 1118% 
2816 
DDCPR A010 2BCC 3221 1785* 1750* 
DDCFRBA 001 2BC3 3220 1754 2294 
DDCPRN A 00% 2BC8 3222 1744% 1748 
DDCFS 4010 2BD6 3224 0810* 0890+ 
DDCFSEA 007 2BCD 3223 0878 0897 
DDCPSNA 001 2BD2 3225 0800* 0809* 
2205* 2224 
DDCFT A010 2BEO 3227 1146* 2166* 
DDCFTBA 001 2BD7 3226 1252 2176 
DDCPTHA 001 2BDC 3228 1145* 1749 
DDCFX A 604 2198 2246 2253* 2256 
bocR C001 O00C6 3819 2557* 2606* 
DDDF AOOt 4800 3538 004837 0044 
0557 0585 
1108 1122 
4413 1428 
172€ = =61753 
2326* 2330 
2832 3540 
DDDF1 A ¢61 4900 3540 0897* 0498 
DDDR C601 O00C4 3418 2556* 2573* 
DDO 4A 602 2AE9 3160 0743 
DE R004 OCEF 0220 0217 
DEFTKRA 608 2549 2636 2625* 
DEFTRKA 604 2523 2625 2804 
DEL A 002 2C09 3251 0208 
DELPFG A 601 2C03 3248 1075* 1091% 
DELPGM 4.601 160B 1090 0244 
DELt 4601 1581 1073 1288 
DEL2 A 603 1601 1086 1315 
DEST 4 602 2063 2109 2104% 2177% 
DFLAG A601 2AB2 3128 0280* 0308% 
DGPRT@ 4 602 2670 2736 
DGSNS@A 502 25DE 2680 2687 
DGSNSB NX 601 0560 0037 2680 2698- 
DGSNS14 624 OB77 0038 2062* 2063 
DGSNS2% 686 OBSF 0036 2735 2736 
DGS2B A 60%t OBO9 0035 2699 2735 


DIVO2 4&4 606 1A48 1503 1501 1506 
DI¥V12 4.606 1A0Z 1488 1486 1491 


DORD ¥.003 2855 2924 2911 

DOREAD & 604 2858 2925 3068 

DOSIO #904 2881 2942 2938 2959 

DRIVE# 4001 234E 2447 1385* 1391* 
2538 2539 
2688 

ORTRNIX 901 250C 2610 2663 

DRTRN2%.001 246E 2562 2667 

DRTRN3 % 001 2492 2575 2666 

DR1 @001 00CO 3435 1363 2452 

DR2 @001 OOCB 3436 1356 24656 

DR3 ©0071 O0DO 3437 1369 

DR4 @Oci O0D8 3438 1372 

DSKDUP 4008 1877 1355 0219 

DATE 2940675 22DEC75 3OAPR76 

EC NO. 827804 827836 571872 


CROSS~ REFERENCE 
0367 0515 0801 
1125 


0896* 0553* 0575* 
1425* 1440* 1695* 
0503 .0558 0591 
1727 1770 1788 
2572 2586 

0442 0455 0526* 
1815* 1424% 1627*% 


2290* 2324* 

2331 3222 

2289* 2323* 

1897* 2159* 21624 
1902 2171 2215 

0834* 0881* 0886* 
2228 

2206* 2209% 3473 

2221 3228 

9255 1265 

2258* 2261 

2659* 2657* 
0044* 0103 0338 

0586* 0590 0602* 
1769 1251 1272 

1433* 14348 1437% 
1769 1787 1838 

2383* 2384 2384 


1322 
2263* 


0498* 1293% 


2605* 2647 26487 


W120 «12830 «1314 


2127 
0386 0363 0388 
3408: 3409 3410 
3023 
2211% 2217* 2395 
2551 2571 2598 
25MAaR77 
571989 


PART WO. 
PAGE 


0907 0924* 0950* 1127* 1140 1212 1257 


0580* 0670* 0675* 0938* 1119% 1259* 1277* 
1723® 1766® 1783* 2374*% 2402* 2405* 2429% 
0680 0943. 4123 1284 1300 1420 1429 
2411 2833 3219 


0547* 0552* 0578* 0601* 0669* 0674* 0936* 


1679* 17046 1721* 1739 14744 1776 2373* 
2163* 2166 2206 2208* 

3225 

O889* 1274% 1895* 1896* 2154* 2179 2204% 


1780 2155* 2781 2226 
2264* 2267* 2268*% 2269% 2272 


0493* 0494% 0502 0551 
0603* 0632 0679 0722 O770 0942 0946 
1275® 1280 1293 1294* 1295* 1299 1320 
1438% 1443 1580* 1581* 1696 1700 1718 
2770 29175 2214 2220 2293 2296 2298 
2386* 2387* 2389 2391* 2392 2392* 2410 


0435 O0470* 0473 


2654* 2658* 2686 2687* 2692* 


0405 


3411 


2452* 2856® 2531 2532 2533 2535 2536 
2600 260% 2602 2604 2638 2639 2642 


PROG ID 
PAGE 


35 
DD63 


SYMBOL 


DTAHDR 
BU 
DUPERR 
DUPROC 
dV02 
DX 14 
20 

31 
9120 
das 
D547i 
3DiT 
eDITAa 
EDITAA 


EDMS1 
EDNS 1B 
EDMS2 
EDMS2B 
EE! 
BE2 
ENCHP1 
ENDROU 
BENDEP 
SND1 
END2 
END3 
BOJCHK 
£031 
ERMSG 
ERMNSGB 
ERMS1 
ZKESTB 
EQMS7 
ERSS7B 
ERR 
ERREB 
ERREBB 
ERRORC 
ERROR6 
ERRO 
ERR1 
ERR10 
ERR10B 
ERR11 
ERR14 
ERRI4GB 
ERR2 
ERR3 
ERR3B 
ERR4 
ERRSB 
ERRS 
ERR5SB 
ERR6 
ERROA 
ERR6B 
ERR6C 
ERR? 
ERR7A 
ERR7B 
ERR8 
ERE8&B 
ERRY 
ERR9B 
EXITA 


DD6-3DATE 
35 EC NO. 


3340 CE DISK EDITOR 


> Be be be Dm be oe Dp DB De ee Dm De be oe De a be DB py > De Dm D> be me De be De fe oe De bb SD > be DD be DD | 


LER VALUE 
004 2833 
002 2C0B 
004 19B5 
006 28D2 
006 1ABF 
004 2427 
004 2AE7 
001 2AEE 
003 2aFr4 
003 2aF1 
004 2A60 
001 OA0d 
001 0B99 
004 OBCB 
037 2D0B 
001 2CE6 
045 2D38 
001 2D0B 
004 267D 
004 2699 
004 1D21 
001 36BA 
003 1776 
001 2328 
0G1 11D4 
004 1242 
004 291F 
003 293A 
036 2C7B 
001 2C57 
021 290 
00% 2C7B 
038 2EAB 
001 2E85 
004 29BA 
046 2E37 
001 2E09 
035 29FA 
037 3186 
020 3188 
004 29D4 
019 2E09 
001 2Dc9 
v04 297D 
031 2585 
001 2E37 
009 3191 
009 2D6A 
001 2D38 
031 2F69 
001 2F4a 
034 2ECD 
001 2EAB 
014 «2F17 
039 2EP4 
001 2ECD 
02% 2F09 
022 2P4a 
029 2F34 
001 2F17 
047 2D99 
001 2D6A 
048 2DC9 
001 2D99 
002 2C07 
2940675 
827804 


DEFH 


3186 
3252 
1459 
1382 
1542 
3071 
3159 
3162 
3164 
3163 
3092 
0008 
0654 
0099 


3265 
3264 
3267 
3266 
2782 
2753 
1783 
3484 
1248 
2423 
0665 
0751 
2390 
2997 
3258 
3257 
3260 
3259 
3288 
3283 
3041 
3279 
3278 
3053 
3327 
3325 
3051 
3277 
3275 
3015 
3282 
3280 
3326 
3270 
3268 
3295 
3294 
. 3286 
3285 
3290 
3288 
3287 
3289 
3293 
3292 
3291 
3272 
3271 
3274 
3273 
3250 


22DEC75 
827836 


4248217IBM MAINTENANCE DIAGNOSTIC PROGRAK 


BOD 12 


REFERENCES 

0305 

0216 

1360 1374 

1377 

1580 1545 

3078 

0271 0276 

0330 0351 

0846 

0844 1811 

3090 

0017 

0085 0197 

1989 2003 

2755 2756 

2755 

2725 2726 

2725 

2800 

2583 2627 

1757 

0827 0427 

1207 1323 

2377 

0639 

0708 0731 

2971 2981 

2941 3003 

2774% 27778 

2786 

2784 2745 

2744 

1327 1328 

1327 

3031 3071 

1082 1043 

1042 

3019 3047 

0182 

3081* 3042 

1031 1032 

1031 

2945 2968 

2817 (2818 

2817 

0229 

0966 0967 

0966 

0975 0976 

0975 

0612 0613 

0612 0984 

1001 1002 

0996 

1001 

0997* 

1015* 1019 

1014 

1019 

0689 0690 

0685 

4461 1462 

1461 
30APR76 
571872 


CROSS~REFERENCE 


1383 


0737 1007 1796 
0403 0633 0648 


0971 0980 1038 
2822 


1245 1245* 3485 


0733 
2988 


2780* 2783 2786 


3012 


0968 0985 61335 
1335 


1020 


258AR77 
$71989 


0721 


1087 


3487* 3501 


2787 


1336 


3508 3506 3508 


PART NO. 
PAGE 

1803 

1465 1825 
PROG ID 
PAGE 


4288217 


35a 


DD6-3 
35A 


IBM BAINTESANCE DIAGNOSTIC PROGRAR 


DD63 


SYSBOL. 


FADD 
FAS 
FASINE 


FASINE 
FASINE 
FASWE 
FRA 
FRALOC 
FFB 
FIGCOR: 
FIN 
FINCAL 
FLAG 
FLAGS 
FLAG1 
FLAG2 
FLAG3 
FRDRV# 
FRDTRK 
FSTCPT 
FUNBT1 
F3741 
GET1 
GET2 
GET3 
GET4 
GET5 
GET? 
GoouT 
HA 
HALT 


HALTI 
HALT 1a 
HALT1B 
HALT2 
HARSAV 
HDG1 
HDG1B 
HDRDCP 
HERE 
HERE1 
HH 
HLTA 
HLT 1 
HL 
HL3 


3340 CE DISK EDITOR 


ZT LEN VALIE 
A 001 2AB6 
& 003 2269 
A 001 2267 
A 0071 2272 
A 001 226F 
a 004 = 1020 
aA 003 2B29 
2 005 2574 
A 003 2B2C 
A 002 2516 
& 004 2941 
A 006 1AFO 
A 001 1666 
A 001 «=0C67 
A 001 = =17C5 
2 001 OF99 
® 001 OFEBB 
& 001 2c04 
& 001 25C6 
A 00T 2ABE 
42 062 2996 
A 001 2aB5 
A 008 OC42 
xn 004 0D23 
& 004 12CF 
a& 004 T4DD 
A 0048 1T17F 
a 004 1385 
A 004 2771 
c 001 O03F 
c 009 0222 
& 001 26851 
a 0048 26BF 
A 0048 = 26FFP 
& 001 2703 
& 001 2aCc7 
& 041 2CE6 
A 001 2C€90 
KROGH = 146E 
& 004 1306 
A 0048 IBIE 
£001 0038 
& 003 3720 
& 003 3704 
& 002 2AD1 
@ 002 2ACD 
& 002 2aD5 
c 001 0003 
c 001 0010 
c 001 O0Cd 
A 001 2BFD 
@ 096 OAGF 
m 006 21951 
M™® 004 21CD 
B® 004 1521 
B™ 008 1850 
B® 0048 14F9 
& 005 1572 
™ 004 150D 
@ 005 1541 
& 020 303C 
A OVI 3028 
MB 001 2BFF 
&% 001 2BFE 
29A0G75 
827804 


DEFN 


3133 
2359 
2358 


2360 
2361 
0515 
3183 
3199 
3184 
3174 
2939 
1566 
1131 
0171 
1270 
0464 
0477 
3246 
2669 
3137 
3026 
3132 
0151 
0257 
6771 
0951 
0636 
0850 
2848 
3457 
3406 


2767 
2772 
2795 
2797 
3144 
3263 
3261 
0921 
1571 
1578 
3458 
3517 
3507 
3149 
3147 
3151 
3456 
3440 
3423 
3242 
3471 
2267 
2261 
0982 
1325 
0964 
1014 
0973 
0996 
3306 
3305 
3244 
3243 


22DEC75 
827836 


MOD 12 


REFEREWCES 


0176* 
1792 
0318 


.2304% 


0317 
1798 
0452 
0298 
0577 
0300 
0206 
2978 
1522 
1134 
0166 
1273 
0567 
0480 
1357*% 
2635 
0560 
2982 
0102* 
0153 
0105 
0760 
0954 
0663 
0845 
2847* 
3517 
0096 
1050 
2552 
2813 
2768* 
2566 
1567# 
2730 
2730 
0914 
1569 
1576 
3507 


1493 
1873% 
1514* 
3507 


0862* 
0483 
2262 
2257 
0381 
1278 
0917 
0401 
C285 
0277 
017149 
O149 
1628* 
0856* 


0275* 
2296 
0540 
2361 
0506* 
1801 
0685 
0519 
0669 
0521 


3004 


0919 


1382 
0711 


0425* 
0178 
0259 
0773 


0723 
0867 


0184 
1059 
2607 


276 9% 
2596 
157 1% 
2731 


3517 


1521 
1879 
1515* 


0849* 
0484 


0641 
1220 
0920 
06486 
0290 
0399 
01450 


16784 
0860* 


30APR76 
571872 


CROSS~REFERENCE 


0710* 0918 0921* 


1159 1268 1265 
41263* 1791* 


1810* 1844 


0507 
1806 


3044 


1385 2211 


0712* O785* 


2980* 2970 
0250 


2937 
0225 
1008 


0998 1012 1027 


0618 
2001 


6231 
4596 
2655 


0195 
1341 
2669 


2812* 
26.43 
1573* 


157@s 1578* 


1530* 1539 
1552® 1555* 


1480 
15218 


0933* 
0521 


03304 
0519 


0 866* 
0430 


1222 1225 1227 


0792 


0739 0794 


24857 


0684 
2453 


163%% 1687% 7652 


25HART7 
571989 


2983 

4407% 1408 1807 
2298* 2301* 2326 
4816 


29748* 2979% 2980 


0978 
2792 


0693 0969 
2749 2759 


1581 


1562* 1544 1553 


1573 1575 


0945* 0948* 1355* 1376* 2511* 2582* 2626* 


8598 0599 


1670 


PART NO. 8248217 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART KO. 
PAGE 36 PAGE 
DD63 3340 CE DISK EDITOR BOD 12 
CROSS~REFERENCE 
SYMBOL T LEN VALUE DEFH REFERENCES 
LDEND A 00% 370B 3509 3490 3502 
LD1402 A 008 29FB 3059 2858 
1790* 1792® 2302* 2303* LD3741 A 00171 286D 2936 2856 
LD547% A 001% 27F6 2898 2862 
2376 2397 LENCT2 A OU2Z 2992 3024 2963 3007 
LENGTH A 001 373A 3525 0827 0427 0427% 1245 1245 12465* 3485 
LINK c 00% 06216 3402 0193 
LINKS A 001 OC8F 0188 0168 0696 25048 275% 2761 
’LINKS@ A 002 239B 2504 2812 
Laa A002 3712 3512 38878 
« LOAD c 001 O22A 3417 
*LOOPt aA 0O& OQE32 0381 0336 0344 0352 0418 062% 0903 0993 101% 1026 1052 
LOOP10 aA 006 187B 1357 1380 
-LOOP?11 A O0O&G 2158 2208 2229 
LOOP12 A 004 1897 1630 1665 1681 
LooP?13 aA 00O& 261F 2705 2721 
LOOP14 A 00% 2623 2706 2716 
LOOP16 A 004 %cCci 1787 1760 17814 
LOOP17 A 006 20E2 2157 2184 
LOOP18 A 00% %D52 1798 1808 
LOOP19 A 00W 189A 0931 0934 
LOOP2 A 004% OE2ZA 0338 oaus 
2982* 2995* LOOP21 A 003 ‘E60 1916 1811 19206 
LOOP22 A 003 WE7F 1927 1929 
LOOP23 A 003 1290 1933 1937 
LOOP24 A 003 TEBi 1944 1950 1966 
LOOP25 A 008 1E42 1906 1943 
LOOP3 A O0O& 1I4CB 0947 0949 
Loop30 A 003 13C5 0857 0861 
Loopy a 00& OFS 0813 0361 0369 O408 0798 
LOOP5 aA 004 <4IC7F 1723 1741 
0989 74008 1022 1035 LOOP6 aA 00% t69F 17248 1151 
2820 2957 3021 3049. LOOP7 A 006 OD8F 0288 0292 
LOOPS A 006 22EB 2399 2419 
-Loop9 a 003 1364 0823 0828 
‘LOP12A A 00& 1B9B 1631 T6144 
LSCNT? A 008 1B9F 1633 1640 1650 
»LSCNT2 A 008 BDA 1652 1615* 1635 
*LSCNT3 A 00% BEF 1658 1648 
LSPGH1 A 004 1B6D %618 1611 1613 
» LSPGM2 A 00% 18393 1628 
*“LSPG1A A 00% ‘%B7B 1621 16162 
LSPG1B * 008 14IB7F 1623 1617 
LSTCON A 004 1C03 1667 1653 
LSTDCD A 00% 2AED 3161 0307*% 0390 
LSTPGH A 00% B&F 1609 0213 
5s LSTRC A 008 2932 2995 2988 
?LSTRD A OO 1€C35 1688 1633 
LSTRDR A 0048 1CK6 1692 1688* 1690 1705 
sLSTSCN A 001 2AaBu 3131 2394* 2406* 2418 
FLWRITE A 004 OF33 O&424 0378 0386 0393 90395 O4&11 
LWET A 007 2AB1 3127 0424* 0444 1105* 1656% 1663 1664* 
git ¢ 001 O00G 3459 
r L170 c 001 O168 3468 
L1i1 c¢ 601 O719G 3469 
~L12 c G01 0788 3470 
* L2 Cc 06% 0028 3460 
L3 c 0071 6050 3461 
~ ER c 00% 0078 3462 
L5 Cc 004% OO0AO 3863 
L6 c 002 00Cc8 3464 
«L7 c 061 OOFO 3865 
L8& c 007% O118 3466 
Lg Cc 001 G740 3467 
BADD R025 3630 3387 0247 ©0288 
MADDB 2A 001 36CGA 3385 0247 
PROG ID DD6-3 DATE 29AUG75 22DEC75 30APR76 ZSBARTT PROG ID 
PAGE 36 EC HO. 827808 827836 571872 571989 PAGE 


4248217 
36A 


DD6-3 
36A 








PART NO. 4248217 IBM MAINTENANCE DIAGHOSTIC PROGRAB PART NO. 4248217 

IBS MAINTENANCE DIAGNOSTIC PROGRAE ae ee . 
DD63 3340 CE DISK EDITOR HOD 12 DD63 3340 CE DISK EDITOR HOD 12 

CROSS-REFEBEKCE CROSS~REFERENCE 
SYMBOL T LEN VALUE DEFN  #§ REFERENCES SYMBOL T LEN VALUE DEPN REFERENCES 
BAXPGH A 003 2AF7 3165 1626 1720 K¥C2 A006 25A9 2659 2683" 2644" an 
MCTL A 033 360A 3384 0174 0175 0222 0223 HVC3 A 006 2188 2253 2252* 2271 
KCTLB A 00% 35£3 3382 0174 0222 BVC4 =A 006 21F7 2272 2271% 
CTR a2 001 2C00 3245 1625* 1678* 1689* 16943 AYVC6 =A 006 27AB 2252 22515 
BE A 002 2AFB 3167 0385 uvC8 A008 2024 2081 2078* 20797 
BENUi A 038 31EC 3330 0113 01148 aVCS A004 TEA3 1939 1932* 1935* 
MEND1A A 001 31C6 3329 0113 BVI? =A 004 232A 2624 242% 
MENU1B A 001 31EC 3331 0117 AVI2 A 004 2335 2428 2427% 
MENUIC A 001 3214 3333 0121 HVI3 A 003 z00C 2076 2078* 2075% 2077* 2079 
BENUID A COt 323C 3335 0225 MY¥IY A 0046 2515 2616 2513* 2631 
BENUTE A 00% 3264 3337 0129 HVIS 2 004 253E 2632 2631% 
BENUIP A 001 328C 3339 0133 NAS A CO1 2BB8 3216 0318* 0319 0454 0455* 0507 0534* 0535* 0541* 1159* 1450 1453* 1743% 
KENUIG A 001 32BG 3341 0137 1764 1780* 1790 1841* 1843* 1972* 2155 
SENUIH A 001 32DC. 3343 0141 NBLNK A 004 1333 0808 0804 
BENUII A 001 3304 3345 0745 NEG3 A002 1F54& 2023 2084 2381 
MENUI1T A 040 3214 3332 0117 0116 NEG 8 002 1F56 2024 2055 
BENUIZ A 040 323C 3334 0121 0122 KEXT A 004 2057 2105 2119 
SENG13 A 040 3264 3336 0725 0126 koDS A 003 25a 3090 0109% 
BKENUIG A 040 328C 3338 0129 0130 NOTBLK A 004 2869 2929 2926 
-SENUIS A 040 32B4 3340 0133 0138 NOTDAT A 004 OFOD 0409 0406 
BENUI6 A 040 32DC 3342 0137 0138 NOTSSW A 00S OEF8A 0370 0366 
BKENUI7 A O40 3304 3344 07141 6142 nroTt2 A 001 T4832 1587 1384* 1435 1469 1588 
MENUI8 A 040 332C 3346 0145 0146 NRWRT A 008 OFB? 0476 0468 
BENU2 A038 3352 3348 18650 1851 HSSWo A 0030:«:17350=«1277 1211 
MENU2B A 00% 332C 3347 1850 N¥RT A 006 112B 0598 0a60 
BENU2C A 001 3352 3349 1854 NWETPG A 001 2AARE 3124 0302 0451 0957% 2153% 2164* 2183 
MENU2D A 001 337A 3351 1858 NXT A 003 2956 3005 3001 
MENUZE A 001 33A2 3353 1862 NXTCHR A 003 2805 2903 2923 
MENU2F A 001 33CA 3355 1866 OLD A 003 2B14 3173 0470 7275 1639 4729 1759 
MENU2H A 001 33FA 3357 1870 ONE A 00171 oOac3 0015 0288 0816 0439 OS0S 0564 0573 06548 0860 0866 0933 0948 1144 
BENDS A 038 3448 3360 08s2 0853 1150 1160 1232 263 1376 1476 1489 11508 1516 1533 1543 1647 
BENUYB A 001 3422 3359 0852 1674 1689 1735 1772 1935 2050 2112 2117 2118 2163 2250 2254 
BENUSB A 001 3448 3361 1174 2258 2268 2267 2517 2582 2626 2715 2720 
HENUSC A 001 3630 3388 1236 OPINCP C 00% 0001 3413 2803 
MENUSD A 001 346E 3364 1178 OUTKEC A 001 2395 2502 1420® 1431 1472 1473 1529 1530 2653 
MENUSE A 001 3496 3366 1182 PACK C 001 0226 3816 0488 0725 2096 2106 
MENUSF A 001 34BE 3368 1186 PASPRM A 003 2A7B 3099 3091 
MENUSG A 001 3426 3370 1190 PAUSE A 004 OC9B 0195 0170 
MENUSH A 001 350E 3372 1194 PFLAG A 001 2AAD 3123 0311* 0392 0396 0407 0410 2069 
MENUSI A 001 3536 3374 1198 PGMDEL A 007 30FC 3318 1077 
MENUS1 a 014 346E 3400 11740 1175 ,PGNTP A 006 1820 1308 1126 1135 1274 
SENUS3 A 040 3496 3365 1178 «1179 "PN A 002 2AP9 3166 0273 0717 0759 
MENUSS A 040 34BE 3367 1982 1183 PNAS A 00% 20C7 21487 0532* 0533 0540* 11758* 1449% 1450 1452 1763% 1860 1642* 1973 2154 
MENU5S A 040 3456 3369 13860-1187 ,PRGID # 003 1669 1432 1111* 1308 
MENUS6 A O40 350E 3371 1190 1191 * PRGID1 A 003 17C8 1271 1268* 
KENU57 A 040 3536 3373 1194 1195 PhGID2 A 003 OF9C 0965 04962* 
MENUSS A C40 3552 3375 1198 1199 y PRINT C 001 021A 3403 0087 0092 0179 0226 0610 0687 0765 09648 0973 0982 0999 1017 
HEN22 A 040 337A 3350 1854 4855 1029 1040 1054 1081 1309 1333 1459 1590 1658 1667 1820 1993 
MEN23 A 040 33A2 3352 1856 1859 2723 2728 2733 2742 2753 2784 2815 2948 2953 3015 3043 3096 
HEN24 A 040 33CA 2354 1862 1863 b 3115 3509 
MEN25 A 048 33FA 3356 1866 1667 PRINT? A001 2a42 3083 01117 0115 0119 0123 9127 0131 07135 0139 0143 0167 0172 0189 
MEN27 A 040 3422 3358 1870 1871 0220 0245 0850 1172 1176 1180 1188 #1188 1192 1196 1234 1325 
MFCO) «6A 004 «2997 3031 2858 3039 ) 1848 1852 1856 1860 1864 1868 1978 1982 
MINUST A 002 OBSC 0056 2040 2130 PRINT2 A 001 2A8A 3108 0616 0987 1086 1339 1998 
uOv1 A 006 23DB 2519 2512* 2513 2578 2515* 2516 2517% 2520 2546 2547 2643 PRTBF A OOt OA15 0027 1618* 1619 1649% 1620® 1621* 1623* 1630 1654* 1655 1655* 1661 1672* 
MOV2 A 006 24B5 2586 2520% ) 1680* 
MOV3) A006 2486 2572 2547* 2592 PRTEND A 004 2A86 3102 3084* 3087 3100% 
BSGBGN C 001 O0O7F 3399 0427* 1245* PRTPRM A001 2A77 3097 3093* 3094 3095* 
MSGO2 A016 39C6 3328 1308* 1312 pPRT2 A 006 2A9E 3114 3111 
MSP A011 3047 3308 PRT3 A OOY 2AA8 3115 3113 
MSPE A001 303C 3307 PBWR A004 132C 0805 0802 0817 
MULT10 A 006 1A9D 1532 1534 PIIAR C 001 0020 3439 
MULT12 A 006 @AG6E 1515 1517. QcPpu A001 109E 0550 0518 
BULT4O A 096 4920 1875 1477 QDCP A004 1053 0529 0516 
eVC1 A006 22BE 2387 2380* .QFFA A 006 10F2 0577 0520 
MVC10 A006 23D5 2518 2516* ‘OFFB A006 1048 0525 0522 

i 

DATE 29AUG75 22DEC75 30APR76 25BHAR77 PROG ID pp6—-3? DATE 29A0G75 22DEC75 3OAPR76 258AR77 PROG ID DD6-3 
EC NO. 827804 827836 571872 571989 PAGE 37. EC NO. 827804 827836 571872 571989 PAGE 37a 
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IBM BLINTENANCE DIAGNOSTIC PROGRAB PART NO. 6248217 IBM MAINTENANCE DIAGNOSTIC PROGRAH PART NO. &248217 
PAGE 38A 


PAGE 38 


DD63 3340 CE DISK EDITOR ROD 12 DD63 3340 CE DISK EDITOR MOD 12 


CROSS-REFERENCE CROSS~REPERENCE 


SYMBOL T LEN VALUE DEFHN REPEREWCES 


SYMBOL T LEN VALUE DEFN REFERENCES 
QOPUDT C001 OAO7 3445 3491 0795* 0955* 0997 1007 
QTAB C 00% O22F 3446 34a92 SEQMY A 0O& 4FF9 2071 
QUITPS A 001 2381 2494 SETADD A 004% 0D13 0245 0201 
RCTE A 002 2B20 3178 0331* 0339* 0414 0416* 0432 0438 SETDSK A 001 OB9SD 0079 3556 
RDFAS A 00& 2201 2288 0315 1400 1795 2372 SETTO A 004 OB78 0042 0857 0584 1292 1788 2325 
RDFASR A 004 223E 2306 2288* 2299 SETTOR A 00% OB86 0045 0042* 
RDMD A029 3674 3391 2951 SETUP A 024 36B9 3393 2956 
RDWET A OO4S 29140 2202 1398 1408 SETO A 004 OBBA 0047 0563 093% 74321 2873 
RDWRT2 A OVS 2190 2230 2202% SETOR A 008 CB95 0050 004K7* 
RD1442 2% OO4 2A23 3070 3061 3066 SIOI C001 0018 3424 
READAD A 002 3174 3324 2042 2057 sIo1 A 003 246E 2568 2531* 2543* 2545* 2568 
READIES A 001 OA80 0031 0032 0651* 0653 0660 0727 0818 0831 0862 1925 1969 2036 2044 S1010 A C03 250C 2611 2598* 2599% 
2074 2092 2098 2099 2100 2100* 2102 2103* 2104* 2112* 2118* 2123 SI011 A 003 2509 2608 2600% 
2124 2724* 2125 2837 2850 2867 2886 2910 2925 2927 2927 3112 SIOZ A 003 2587 2650 2639% 2640* 2661 
3114 3324 S$i03 A003 258E 2652 2682 
READ&® A 002 202D 2092 2901 S104 A 003 259F 2656 26418 
RECORD A 004 2749 2836 0157 0257 0341 0636 0771 O85& 0947 0951 1201 1873 S105 A 003 2868 2560 2532* 2548 2549 
REM A040 35aC 3378 1880 1981 S106 A 003 25FC 2690 2688* 2689*% 
REMB A 001 355E 3376 1980 S107 A 003 24AE 2584 2535* 
RESB2 A 001 35aC 3379 1984 SIO8 A 003 248F 2574 2548* 2674 
REM2 A 015 3583 3381 1984 1985 Sx09 A003 2492 2576 2509% 2550% 
REPEEZ A 004 1153 0610 0357 0359 SIZER A 008 1833 1588 1389 71395 
REP?PGY A CO1 1614 1104 0205 SIZERR A 00& 1B4B 1598 1589 
REPWEO A O14 346E 3363 1109* 1268 3400 SKDVO2 A 006 1AD5 1546 1541 
REPWHT A O14 3657 3390 1110* 1236 1237 SKDO2 A 006 ASE 1508 1502 
RESKS A 0048 2808 2904 2913 SKDi2 A 006 1A24 1492 1487 
RNUM A 001 0A03 0009 3518 3519 3521* SLAMP A 002 2ABC 3135 2939 
RPCNTT A 004 1662 1130 11176 SLDRVR A 008 237% 2466 24498 2455 
RPCKT2 A005 1672 1137 1128 SNBYT2 A 002 2994 3025 2983* 2944 2946 2966 2967 298% 2985 2987 2990* 2991 2993 2999*% 
RPCKT3 A 00S i652 1158 4181 3000 3002 3010* 30%1 
RPCNTs A 00& %6C7 1168 1152 SNSAP a 00% 2607 2695 2748 2758 2790 
RPCETS A 006 1745 1263 4258 SNSAPR A 004 2679 2740 2695* 
EPCNT6 A 004 1I7FD 1292 1261 SNSDR1 C 00% 0080 344% 
RPCET? A 006 %7BB 1268 1113 SNSDR2 C 0071 0040 3442 
RPFX C 001 021% 3448 35224 SNSDR3 C 001 0020 3443 
RTRN 2 003 OCUE 0163 0777 0779 SNSDR& C 001 0010 3844 
RTREKt a 006 OF75 0454 0523 SNS24 aA 004% 25E2 2684 1387 1393 2747 2771 2798 
RTRN2 A 001 OD2F 0261 0780 2986 SNS24R & 00% 2603 2693 26864 
BTRN3 A001 16CP 1171 SPACE# A 036 2C4E 3255 1796 1803* 1811*% 
RTRK3Z& A 004 1707 1201 0902 1238 1344 SPFLGS C 001 OAO2 3455 34&89 
RTRN6G AB OOK 2AA9 3117 3109 SRCE A 002 2061 2108 2105# 
RTRY A 004 27FA 2900 2908 2915 2928 SSWID A 00& 2B0D 3171 0365 0816 1210 
RTRY1 2&2 001 2461 2554 2544 2593 Ssw05 c 001 0004 38477 3110 
KWRIK A 001 20C8 2149 0538 0544 1162 1454 1776 +1846 1974 SSWO7 <2 001 000% 3426 3574 
RWRTSER' A 004 2138 2186 2150* SSWIA C001 0020 3432 2857 3089 
SAVEID A 004 2ADD 3158. 0297* 0400 0462. 0567 0581 0582 0645 0741* 0762 0764 079% 0922* ‘SSW1B C001 0010 3433 0104 2859 
0923* 1015 1092* 3155 $8817 Cc 007 0001 3431 0916 2855 2879 3088 
SAVID a 096 OA7& 0028 0296 0494 0586 0603 0740* 1137% 1295 3471 Sswi8 Cc 001 0080 3430 2853 3089 
SAVIDB A 001 OA15 0026 0027 0925* 0926* SSWZ2F C001 000% 3434 0084 0107 28448 2877 
SB A 002 2AFD 3168 SSW22 C 061 0020 3427 2450 2458 
SBYTEO C 001 0208 3453 3514 SSW23 ¢ 001 0010 3428 24650 
SBYTE2 C 001 020A 3407 SSW24 C001 0008 34829 2450 
SBYTE* C 001 020C 3454 2450 24548 SS1 A 002 PAI 2048 2086* 2047 2050* 2051 
SCANRD A 006 24D9 2598 2525 SS2 A 00& FAS 2049 2047* 
SCDFG A 001 2ABO 3126 0293* 0485 2067 STARTX A 001 0000 00905 
SCERR A 046 2F97 3297 1056 1057 STATE A 002 OA14 0025 2685* 2772 2775 2778 2781 2799 
SCERRB A 001 2F69 3296 1056 STATUX A 002 27F4 2889 3035* 3036 3074* 3075 
SCNERB A 00% 15CD 1054 0481 STCNT A 0OK& 1D48 1795 1676 1733 
SCNVTC A OOK 227A 2366 0463 0476 1130 1269 1286 STPFLD A 008 219B 2249 0861 0682 1148 1258 1403 1/03 1738 1747 #1775 1805 1813 2178 
SCNVTE A 004 2346 2435 2425 2180 2223 2225 2415 
SCNVTA A 008 234A 2436 2366* 2368 2370* STPFLR A 004% 21FD 2274 2249% 2250* 2251 2254* 
SCTR A 001 2BAB 3215 0329* 0436* 0439* 0542 stpscT A 00% 273F 2200 12 16% 1407* 2228 
SECT® A 002 2BE2 3229 0536* 0542*® 1139% 1193 1160% 9451* 1762% 1844% 2151 STP2 A 904 1209 0687 0656 
SELDR¥ A 004 234F 2449 0100 1856 2899 STP3 a 00% #D8BB 1820 1799 «1817 
SEQCHK A 005 OEE? 0398 0389 0391 STRSCT A001 213B 2199 4397* 1806* 2208 
SEQCTR A 004 2B1E 3177 0271* 0330% 0351* 0398 0403* 0633* 06463 0648* 0721* 0737% 0738 0793 STRTA A 021 30F5 3317 0094 0095 
DATE 29AUG75  _22DEC75 30APR76 25BAE77 PROG ID pp6-3 DATE  29A0G75 22DEC75 = 30APR76 25HA277 PROG ID ppé-3 
EC NO. 827804 827836 571872 571989 PAGE 38 EC HO. 827804 827836 571872 $77989 PAGE 36A 
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PART NO. 4248217 IBM MAINTENANCE DIAGNOSTIC PROGRAB PART NO. 4248217 


NTEN DIAGNOSTIC PROGRAS 
IBM MAINTENANCE DIA pace = eee a 


DD63 3340 CE DISK EDITOR MOD 12 DD63 3340 CE DISK EDITOR HOD %2 


CROSS-REFERRCE CROSS~REFERENCE 


SYHBOL T LEW VALUE DEFH § REFERENCES SYMBOL T LEN VALUE DEFH REFERENCES 

; a UTCNT1 A 00% 1E7& 1923 1918 
eeeue 7 oe aces aot anes UTCNT2 A 003 1EC7F 1952 19485 1954 
STRTHS A 001 30B2 3314 0089 0090 UTCNT3 A 004 JEFY 1968 1947 
SWITCH C 001 020A 3420 008% 0106 0107 0916 264% 2853 2855 2857 2859 2877 2879 3088 UTCNTS A 004 EDS 1957 1962 

aoe 310 en aes ne 

SZERR A 021 2FFO 3301 1592 1593 VESG A009 2C 182 
SZERRB A 001 2F97 3298 1592 VNSGB A CO1 2C0B 3253 1822 
SZERRC A 022 2FAD 3299 1386% 1392 VTIN A001 2BB2 3214 0328* 049% 04893 0585 0602 1138* 1294 
TDDCF A 001 238C 2498 2500 ¥VTINB A OO? 2B96 3212 0458* C4YB32* 0484* 0525% 0566* 0577% 0581* 0582*% 0598% 0599* 0600* 1139 
TDDCP@ A 002 2392 2500 1246*% 1264% 3215 
TDDCR A 002 2382 2495 VINAS a& 0CO3 20C% 21746 
TDDDF A 001 2383 2096 2501 2653 2659 yroc¢ A 002 2aC3 3141 0317* 0459 05052 0506 1779% 1735% 1772* 17914 
TDDDF@ A 002 2394 2501 2648 2651 2654 VTOC1¢ A O31 2C2R 32548 1675* 1720* 1736% 17737 
TDDDR A 002 2380 2493 2647* 2658 WAIT A004 2908 2984 2989 
TEMADR A 002 143D 0896 0841* 0869 0892* WCPUVT A 004 10EB 0575 oS71 
TEMP? A002 20BB 2145 1143* 114G* 1150® 2126% 2127 2751* 2157 2160* 2162 WINID A 002 2BIA 3176 0878 
TEMP2 aA O02 2ADF 3156 2397* 2399 2401* 2405 WINRH A OO& 239C 2506 0433 0871 OS00 0555 0588 0677 081% 0898 0940 1120 1249 1278 
TEMP3 A 002 2277 2363 0638* 0653* 0654* 0655 %720* 2367* 24635 1297 2417 #1426 7481 #1698 1728 11751 «#+(1767 +1785 1899 2168 2173 
TEMPS A002 219A 2247 2095* 2132 2697* 2739 W86* 3101 2212 2218 229% 2328 2408 2430 
TEMPS A O04 2ADD 3155. 16.26% 1637* 1675 WINRWR A 008 257F 2617 2506%* 2508 2509% 
TEMP6 & 002 2AE1 3157 2696* 2738 WINEWT A O08 2517 2615 2569 2580 ; 
TERP7 A002 2AE3 3158 WORK a 002 2ac9 3145 1471* 1475* 1479% 1480* 1485 1488* 1490 1493 171499* 1500 1503* 1505 
TEMPS A002 1F52 2022 1515 1528 1532% 1546% 1547 
TEMP9 A001 %F50 2020 2035* 2065 WRFAS A 0048 2242 2321 0508 1266 1793 
TEM1 A& 002 25E0 2681 2686* 2692 WRFASR A004 2263 2333 2321* 
TERM A O18 3059 3310 0191 0192 WRITE A 006 OF4& 0432 0415 
TERMB aA 00% 3087 3309 0191 ERTS A010 2BEO 3473 1168* 1232% 1286 13197 
TEST c 001 0212 3414 0099 3523 WRTREC A 00% 1988 14480 1836 1582 
TEST1 & 00% 18B5 1373 1365 @RIVFY A 001 25E% 2682 2590 2591 2595* 2664 2665* 2672 2673*% 
TFI a 005 OCB8 0206 0203 WRIVTC A 00% OFEF 04896 0604 
Tz01 A008 2867 2559 2538* 2675 WRT A 006 1429 0889 0806 0832 0838 0870 0883 1970 
T1010 A004 250F 2612 2602* 2603* wRT2 A 004 11F6 0677 0672 
TI011 A OO& 2513 2613 26047 wRT3 A 008 111EB 0588 0576 
71015 a008 2583 2649 2638 2645 XEXIT A 004 27C1 2871 2851 2929 2996 2998 3250 
T1018 AOO0& 23148 2413 2395* 2396* , XEXITR A 004% 27E9 2883 2836* 2872 2876 2878 2880 
TI019 A 00& 2499 2578 2871* XEXxT A004 2A1F 3068 3038 3963 
T1102 A 004 259B 2655 2645* ; -XExXT1 aA 008 281E 2910 2900 2922 
TIO4 A 004 2474 2565 2533* 2534% “XHANDL A 004 183A 9319 
TIO5 A004 24B1 2585 2536* 2537% XLOC A001 2BE7 3230 1322 
T107 a 004 24875 2566 2539* ; XREG A002 2B24 3181 0082 
T108 A 00% 2895 2577 2551* 2552 * X¥R1 Cc 001 0001 3404 0048 00489 0069 0103* 0333 0334 0335 0338* 0413 0417* 0426 0427 
TIO9 A008 2505 - 2607 2589 2601* 2671 0551* 05646 0565 0566 0567 0568 0569 0570 0573 0632* 0658 0660* 
TL A003 ocDdO 0212 0209 : 0661 0661* 0722*% 0770* 0797 0805 0808 0816 0819 0819* 0820 0820 
TMADR A 002 1347 0813 osoRe* 0830 0821 0823 0828 0824* 0826 0830* 0835 0836 0836. 0840 0841 0844 
TMADRY A 002 1638 ° 1901: ° 1893% 19048 1923 1980 19868 ; 0846 O864 0865 0865* 0869* 0880 0885 0892 0932* 0946* 1078 1079 
TODRV# 2 601 2C02 3247 1357 1358* 1363* 1366% ni69* 1372 1373 1382 1391 2217 : 1108* 1125 1137 1138 1158 1169% 1230 1233* 1244 1285 1320* 1634 
TODTRK A 006 254n 2638 2629 ° 1639 1642 1643 1646 1685 1691* 1696* 1718* 1729 1732 1743 1756 ; 
TOOFAR A 004 2735 2815 2522 1759 1762 1763 1766 1838* 1893 1904* 4905 1905* 1906 1908 17909 ‘ 
TRKCC C 004 0002 3412 2802 % 1909* 1910 1912 1923* 19248 1924* 1927 1927 1926 1931 1933 1933* 
TRYAGR A 004 274D 2837 # 1939 1940* 1941 1941* 19642 1984 1946 1948 1948% 1956 1957 1960 
TSTDAT A 008 2826 2992 2906 1966* 1964* 1965 1968* 2032 2044* 2045 2053 2054* 2059* 2095 2102% 
TSTDCP A 00S 1854 09%3 0274 a 2105 2110 2143 2115 2915* 2416 2116® 2125 2126 2129 2130* 2132* 
TST A 002 2C05 3249 2920* 2921 3474 ¥ 2367 2368* 2379 2379* 2300 2381* 24621 24827 2435* 2507 2508* 2512 
UDSCH A 004% 1E3B 1904 1921 2528 25871 2556 2557 2573 2588 2605 2606 2615* 2657 2662 2670 
UDTID A O0O& 2B1ItI 3172 0370 , . 2696 2698* 2706 2713 2713* 2738* 2846 28489%* 2864 2868* 2874 3086 
UDTZJD A OO’ FTEID 1893 0875 ¥ 3087* 3093 309% 3095 3099 3099* 3100 3101* 3485 3487 3492* 3898 
UFIND1 A 004 36D0 3892 3501 3494* 3495 3497 3498 3503 35°0* 3521 3522 3524 
UFIND2 A 003 36D7 3494 3504 XR2 c 001 0002 3405 0452 0152 0163 0165 0167 9169 0200 0202 0204 0206 0208 0210 
UFIND3 A 003 36EC 3500 3506 2508 . 0212 0214 0216 0218 02758 0258 0265 0266 0273 0276 0278 0282 
UFINDY A 003 36F6 3503 3896 0284 0289 0296 0297 0298 0300 0305 0307 0309 0333 0334 0343 
UNPACK C 001 0O21EB 3415 2748 : 0343 0349 03548 0356 0358 0363 0365 0370 0372 0374 0377 0380 
OP1 A 002 2631 2710 2706* : 0385 0390 0398 O800 0813 0426 0638 0640 0643 0645 0658 0707 
UP2 A002 2633 2711 2707* 0777 «#0738 O740 0741 0743 O772 OF772 O776 O778 O789 0791 0793 
USECRT A 001 27F5 2890 0177. 0224 0249 1330 876 1999 2881* 2861* 3085* 3092 0797 0803 0805 0818 0825 0825* 0826 0827 0831* 0837 0840 0857 
UTAB C 001 0232 34487 0080 : 0859 C859* 0862* 0864 0872 0878 0880 0885 0913 0922 0923 0925 
DATE 29aUG75 22DEC75 30APR76 25BAR77 PROG ID DD6-3 DATE 29AUG75 22DEC75 30APR76 258AR77 PROG ID DD6-3 
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IBM MAINTENANCE DIAGNOSTIC PROGRAS PART NO. 4248217 IBM MAINTENANCE DIAGNOSTIC PROGRAB PART WO. 42468217 
PAGE 40 PAGE - BOA 
DD63 3340 CE DISK EDITOR HOD 12 DD63 3340 CE DISK EDITOR HOD 12 
CROSS-REFERENCE é OBJECT CARD LISTING 
SYMBOL T LEN VALUE DEFH REFERENCES ‘ e eae 
‘@HE CHARACTER + INDICATZS A BLANK COLUMN AND THE CHARACTERS D E 8 INDICATE NUMERIC SHIFT. 
0927 0953 0955 0996 1014 1086 1088 1088* 1992 1109 1110 1111 
1175 1203 1206 1208 1210 %217 1239 «#1221 #1224 «01226«1230 «1359 5CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL &9 THROUGH 64 CL 65 THROUGH 8G CL 81 THROUGH 96 
1361 1364 1367 1370 1378 1378 1379 1379 1386 1392 1630" 1642 : 
1643 1644 1645 1649 1649* 1875 1877 1880 1882 1884 1886 1894 - 
189 &* 1906 1916 19 16% 1917 1919 1925 1934 1934% 19 36 1939 1942 ad e Pd Cd oe 2 oe eo a = eeweaneaen * @m@eeenenecenw es2eone oe 
1949 1949% 1952 1952 1953 1957 1958 196% 1961* 1965* 1969* 2033 GBK GBD PN 42 48216 EC 578989 3340 CE DISK EDI TOR MOD 12 8&a@a@84aa pDp6é30000 
2035 2036* 2037 2039 2040* 2041 2045* 2048 2048 2089 2089 2053 
2055* 2056 2060* 2062 2063 2064 2065 2071 2071 2076 2080 2081 eno oe ee = oon ene emcee eevegeaeeweeaoeeeo SOR ODF O00 2208 2 Oo mnanacnoewneeneotveosvene weave 
2081 2697 2699* 2707 2712 2714 2714 2717 2719 2719* 2739* 2837% TD-¥K70< & B9U <E' + ¢€D& &HODD630001 
2838 2839 2839 2850* 2867* 2874 2882 2882 2900* 2901 2901 2910* 
3493% 3495 3497 3498 3499 3500 3505 3518 3519* 3520 3521 TAGHIEDA EPA KI~DD630002 
XR2WK A 002 4F52 2021 2022 20471* 2042 2056* 2057 
X12 A 002 2BF6 3228 1485 1488 1490 - SP tele . at tae Be Ls : ‘ s 
X1403 A 003 OA12 0021 1612 T#->2( --SLO K{@ <®UT=Kg" 0 (- .WGO "53="?7" 70 'EC™"™3S TI2ZD - TIKSU<*H,IT-A -7 2DA- EGUDD630003 
X1442 2&2 001 2A3D 3077 3070* 
x19 A 002 2B85 3211 * -  . *e - : : coe 
X2 A002 2BEA 3232 1500 1503 1505 1539 1542 1544 2077 ‘Te-?_OH*BFUIR<.. "@<BG /YFE&3C50H* BH7"OOH*BDREGHYS "2, *+"OD_*HAK 8D H.OA (H3~A ~7 20 & HL DD630004 
X200 A002 2B8F 3208 
X255 A002 2279 23648 2399 2401 . ae _ 7 i ‘ a = = Ss s _ oe 
X256 a 003 2B8A 3205 0335 0817 0655 0932 1233 1691 2518 ‘T+-O¥| *DO@BGHUH AITGSOH*DE-DY</L /22B K-2{<BGHUH AHCIUOH*D&-DY<¥Y3 /2ZB K-2_<BGHUH AHCH *66DD630005 
x3 A 002 2BEC 3233 2515 7 
X3FFF C001 3FFF 3421 2847 ee Gees = ° -. : - * a4 
x4 A002 2BEE 3234 0536 1844 2370 2769 3042 T+-1T7<BGHUHAHC< DOH*DE-HY<23 /2Z BA/E0|<BGIGW_PS' -OHD<E,5$ {HARSS / [HACSSE *BACH= ‘*P D HYSDD630006 
X47 A 002 2BF8 3239 pe 
x48 ) 002 2BFA 3240 2157 2160 > - - -  . re a6 
x5 A 002 2BFO 3235 2075 2509 2514 2644 Te-2;@YD4OH*DE-Q X(-YOOBD6+4, X'* ECD. /OKHEI/E1S{* —OH*BH?"-OH*.a%B GHUBPDTAROH*BESB G SH J#YDD630007 
X¥5203 A 003 OAOF 0020 1610 
x6 A 002 2BF2 3 36 % dé 2 - e e s °° s s . 
x74 A 001 2B8B Py: 0286 ‘T+-3R"=G'/027.7*D ASYEY?)UA@-DG?7M DO DOEHSA SZOORD )V84A SOI@-DG?7H DO DOBO7L *BAFU= ( EH 2DHDD630008 
x8 A 002 2BF4& 3237 
x80 Ak 002 27EE 288 94 -~- ° oe = . ° : ahs ae 
x87 A 002 2BFC oa Sore ‘Te-GHHIT -JIZTED Ba 22 &3°& L -J/ 7OH*DE-QX(-Y8SB~ SOA <ERBG /,PELF J"=. /OHS"=. /0? 20H* $H DD630009 
X87C C001 O087C 3875 3112 . 
x880 C001 0880 3476 3174% \ ss ° - - - mento fe = aes 
x900 c 001 0900 3472 3501 3504 3506 3508 'pe-StHUHFITOO*] X°* ECD. /2)I,N* -Q<BACK<:C2, COQ DK2D3C Q1 3EK.A6 1H1G%G3E.13-(H,7 DAH ;,0DD630010 
x95 A 002 2B8D 3207 : 
ERO A 005 5A 3204 0 4 0634 0720 1871 1484 1498 1514 1528 1538 1719 2268 7 aa x te. Boia 2 i 3 _ ae eee 
: = ‘ pe asi lne-6HGeEOH 18b984 ACB,90 DHNC30H,E ( 5@D9@ AEMF*S C 2 &*@@BD2@Y*OTEN SBOX2-KS*ED, JM (C 2ZDDD630011 
ZOUT A 006 2000 2074 2070 ; 
TOTAL STATESENTS FLAGGED IN THIS ASSEMBLY = 0 bne-7ECR*,S08 CRE H #5 <BAEG4( 6 PI=¢ 66{{ @DZB1 ~BYJ~.'<D7N>( VY ,H®BADO>({ VY,.1H ACLO P9<DD630012 
e 4 ‘om - es aie: com = me * : e 
Ioe-e "25>c &)?S% B8@Y*ST&<CH3{2 J< %& 2, _NTOJH,H°55. 2 E6@C2D_OH*KG*B GH-D< K,CHXH<AB> 8HW@ )J&DD630013 
hee-88C 6,25>81 -eE0AN:%,0-Q0818 DeTOAHZAZP**<SE* -—P30QAH8,2/0TB M- {' ,H<BGIGW_PS* -OHD PD4DD630014 
}pe-96CTH* BD2a-E >?3H @-DHAT ,GS, >OH*E<, 7R FHAESS * ADNe’S $ ‘SE LOH*-.7HGDS5* <B AD?7D 9LEDD630015 
bao: 4TE<CHO72 6% 8"2D30A LP=HGT8G C 2NJOHDL*Q4UC 2% AOHDNGONGAZKIOBD L-#7E <BAC3+*80C JH R:%DD630016 
pe-#RHL70H,.2 68 ( GDD=@BAC3<*C2D 2a-D) <E<DEN™ &E XI6aD,* AC3<* SD “O DI<3,0HD6( S@ ,G% ;DYDD630017 
s e ees 2 es - an ana ° e o- a e ‘ 
‘Te-aX JNATE($E_7 IN2AT’,GS,>{&  D&?HAA3Z-]HD720 3 /1*RI~@D,*BAC3( SPS*+1K9, H<BACE + BS *LEDDE30018 
ipe-'SH YC(-D,SKB  GCTHO"2D140DB_01 ~P5*<n"a7¢60 HOR ,H<BGHS1 K ,>68 AB:%,H SAH:X! #8 GHRS ;HADD630019 
“pe-=)H#8°"2D10 D ¢HT7"HDE -3 -C & ,ZB>SC 6,>B>=OH* .; GAHR<,OSBADKS <'-=*H_3 /21: +~ 934 E8EDD630020 
| 
3 : PROG ID DD6é-3 
DATE  29AUG75  (22DEC75 = 330APR76 0 25HART7 PROG XD phe s UAE centers aebror? <2etese eases | PAGE GOA 
EC KO, 827804 827836 571872 571989 PAGE &0 EC NO. 827804 82783 5 | 
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IBM MAINTENANCE DIAGBOSTIC PROGRAS PART NO. 4248217 IBS MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4288217 
PAGE 41 PAGE G1A 
DD63 3340 CE DISK EDITOR HOD 12 DD63 3340 CE DISK EDITOR BOD 12 
OBJECT CARD LISTING OBJECT CARD LISTING 
CL 1 THROUGH 16 CL 87 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 (CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 
T+#-"Q =R@YDLI ,0—OBK , EXBGHS1 “K y>*BGHXY PEI *|& |>@BAE*4< s> *BWa< B>;BX * BD O@YD #66DD6 30021 T+/LDH6B@AKD=| < ,OSEGH91 K  ,>LO EE"7B HM OH*XKEa “Hew a Az<Ka"2D 30H*XK*BGGSW' =.  J& RC4DD630043 
T+/ LB*BG SQBBWS oe GOFKAO, %-1-~K (8 H) COAHaHa Dx"cj9 I"UZ"OH*TXDAH B> 9c-DDOOYCC Ds*s, cc & *KDDD630022 T+/BVIKECHI9~4 12 D,%BGC-G /OHEITH _E?"TOH*BH2?"TOH ~20BG /,PG2°Z"=L * /OHS"= "07. On BPSH SHEDD6 30044 
T+/AtHWa,><BGHU.  / VEDI ~@DN"HA.C- 1H, 7206 (-Z27H2K 2-$%(-22H232-EL "/0'SC 6, ZBREC E ,7S% KTHDD630023 T#/N-HS#("=P'/2 HOK*BHI"VIS BP*B ACT. /1E". <>*Ea < 2a1H1¢ /OHEVUY 7E"*WOR*BH?™WCE< ,GS¥ 0S0DD630005 
T+/BIJ"HGD3T" AD" “UAORC <-45 ¥) # -100CHE*, RLOAH#- < K?SH=# /2CHC & ~121?C &,>B_OC D ,8S% =R-DD630024 T+/OS9@BACKS* BD ‘OHD+<XBGDPA% 2a 4000C. UYD7*BG /, F<2* "=~ /OHSM=8 ‘BD O8D+<KBGDP* "/0H 68%DD630046 
T+/C DD@BGH<-<AB> UHSQ<AB>=H432/6C B N= C &,?7S_J1__ ,OKBGH92 K ,>LU {H,#2DE, /0>HL D NB-< 2S¥DD630025 T+/POPER .-X":5B G S.":%BGBa? /0H EOS8>("", OH*DST- {H%G DA6*OH*BH?" ,OH**<RBG /,F.S= Pw=4 EJHDD630087 
T+/C*L <CH9(< -Q , DO BB,)L 64879 <EI@1H40<73E.aY* EL-DNE-<@ B?BaY* SC &,ZB_SC &,7S_ Bi Q8DDD630026 T+/QJOH*BH?"_OH* NS3%1. <@QCDEC Q 1 3Cacae1H98*G3E -?@8G /YBL3B.70% GO D.2=HBACY{. < % SY #CODD630048 
T+/D:HaH< S>*B_0 < B>;H_7 /0_8CA1 HGB>2CE'H70Z40H* TXDAH B>9OH*KD-0 BH9OHSOO H9BH* 0 DH:& JCKDD630027 T+/K<7 Q@ BD1¢-a BO<HAK %ATI>ASO F(V*F. HOEEQ8C20 COA P>84BASK70-D TC 6,?S_<},O%B GHOO "K*DD630049 
T+/ESH5S%<AB>=H6_ <GD- *H €8<P4T-BIL ” /0" 2 0H* BPRES. %7 "9*BGHY, /OHS"=P * 70824? D2*HAK D<B% ED8DD630028 T+/EG-D- Rev ( -Q «-@ AFB aczD3are 60H*S;-CP2*6" AR @OHDQHA1I~BXL~GAO »%/0< KPSH:%*C2D 3a-D L$HDD630050 
T+/FOGS,>C DS) 2_ EOH*XKS7E {HAK#? T < AEKF( 58,G% AENF( S%D7*° AEPH PCBS; 228 /1*R] H- 8 8T0pp630029 T+/S$BHEOAH.%, 8-a AH.S%B OODH*O, NTO “Hec /2PSB*0{ KB #B-| JE~arenc & -108<AB>8HWa} K? SB-< R#*DD630051 
T+/G, KITBYD+ KI 7B-<( KI7H8,2/23 SESEE(-DH-)HA *B GDP@8C2D*ay JC's e?S_4| ,0T2GH,7 2/0Y 5.¥DD630030 T+/S$*0H*-2C0 Hac B M- OH*DE-Dw (Fe "/22B K-4V%BGHUE AHCK=OH*DE-DY(¢S /2ZB K-SCKBGHUH ACH *S*DD630052 
T+/HWC &,75_9} ,OSBGH94 K ,>*B GHR%,;*BGDBC /0H E1S@_W-"YOH*BH?" YOH*<T3EHDDW'@ET 2 P% :-0DD630031 T+/*8(%BGRUHFHCH ;0H*XK$7xX <BABa> €16C2-N:*P'C2-L: ( 0<,CsHAC3-4H, | 2UB@GAB7KOH*LGS7 R < 338DD630053 
T+/I/1{ D_T-1H,8 #C2D=az PC'&,;K> CTED<H?x2-J&< KI VHSYF<BY;H>#B S- *OH*J-@BG SQBB_Y .2C4 0J0DD630032 T+/)3 57678 AO D QH.5 AS APEB'S . "=3/678 GOHDON<B GHB9ZPS'<C- ,8 ¥ Sib xuanuneist POH* "3900630054 
T+/H*4B7Y@YH: [8 oz (aieae Gacuvten 38>; ( 5a,6% AEMD SPOZ4P20CH_SS$TEE EH>X2 6Y:C2D=C & +E K® Jg*DD6 30033 T+/;>E0) @1EAC~"@ 7¢68AH:%, 8<BGH91 “K ,S@BGERX, 7C4 1H.12 6xa‘B7B) Dx"Hco sanxHH 00 DH:& QI<DD630055 
Tt/.P~S$BGDOBECZD 40H GACS D=nH AF OB<E*D7CI-<S- << CDIH_7 /OHE U@ 1K@HAK'C /2)1,8* ~Q< P, 40630034 T#/=ZHWaCABI?HNG “/21BC HP2CI>0H* S;-A 6D <ACDIK - ¢ AnEaYEHC IHASK | ,OKBGHO1 K  ,>L-" 6H-pD630056 
T+/<K-J.1+0050.5 / <BACDz*00C -51 +0R*(.8UCPOKIAYD Q7E(SH_7 gN2TE( ~Hi# SWAAT .GS, >$E@ 9-KDD630035’ T+/-UC20COA N8*B GHXY PE1*| D,O%B GB7-<"ux"Kja<Gp- *HeR<PuT~BXL /2¢ *5D- Hex /0?.C H 1>/0 =84DD630057 
T+/((P5" /0aR| - e4TPOH, 12D S( EN - B*HA2615F5%2/%Q & 3(6C <, 4K Vv] ,53BGH92° ,3M4 B Sk O7upneiboae? tay aEses FAFEE Pe axa 62-6 /0? 1 ,8<HAK C 70> Hic 6,7B7X0H*P) XB GHUBPIS:,¢) X'H SE< 7-YDD630058 
T+/+HC* AD23B -D BU-DBS-DA=H AO D LUXi, )HA =HB 60 A BYEOG -3(0(6D LI@HBBYC2/:Q@A27 KD NO<DD630037 T+/SE/0HEOSH> 34" VOH*DS&ZBG: S."9%5 GEO*@ S?*C %& KO DI & ,7DA* AFSO ‘86$2 6630B0B7~H FO D 1?%DD630059 
T+/jC"S3="27="*8-X 2-RNEBOS.. ( DS|LO BH"S ( -%ba-Hacn4 BB2, 4O DN, LOEH"7 " /2ZBASQUR<BGIAU @<BX 92EDD630038 T¢/TNF.8@2B0B?~< Fa-DD{ (% ,74a7H AAC3Q. H* BOBOED R_68 B"4i “HacHO AA Ex 6QHOH*Q: 04 ” .” n RYHDD630060 
Tesj=", 5 ” <BAEET S =Dt " BP = Be ‘a4 EO-HE-F07¢2"K- L | B2*B-y J*5(ED M{--HG (. 5 “HAB3T Ohba 27 DDé30039 Te¢sué. "G2-) Ya Ax 2¢ TLSOA. "2, 6L ” /2PS4E<. OSBEP3* <8 oa Hx B=_A%B GI;H9 0_SOI $<00 CHL@ B,&DD630061 
T+/E90A ;G>HGeY4 AAKSE@-D2$E'~P30 FH*H:@BD7@Y*<$E! =P30EH*H:C2D7C < /4K_V)° ,STGAECT "/2<" 2¥epp6300%0 'T4/¥. B5¥<" 208 Hex "/28 OH*S LOOHW" " /2P$HWO< 2D8ESY < 2D"HWe /2E | TVOODHE8,$30 Ba. "/2< ) 26DD630062 
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OASA CO BT C222 55 
OASE FEZ CASF S6 
© 57 
£8 
GC OA6O 3C 67 OAS? «9 
; 60 
cCAce «63 
ak 62 
€ OAG4 25 03 0203 63 
OA68 20 FF 0203 64 
OA6C F2 O01 04 6s 
OA6F 35 03 0090 66 
OA73 36 03 ODA 67 
OA77 F2 81 OC 68 
CATA SO 7F TF 7F 69 
Oa7E CO 87 0031 70 
oae2 CO 8&7 OATS 71 
ose6) = 72 
OAs6 3C 00 0082 73 
OA@A 38 FF 0082 7 
OAfE F2 96 06 75 
OAS1 CO BF 0222 76 
é; Oa9S FEO! Oas6) 77 
C. 78 
OAS? 29 FF 0082 79 
: Oa9B F2 10 06 80 
C- CASE CO 87 0222 81 
OAA2 FEO2 OAAS &2 
. 83 
CE ooana 2c FF 0082 a4 
0AaaB 39 FF 0082 8s 
OAAC CO 90 OABG 86 
€ = oano co 87 0222 £7 
Oaks FEO3 oases) = 68 
& 89 
OAB6 28 FF ODB2 90 
OABA F2 10 06 93 
@ OABD CO 87 0222 92 
OACi FEOS oac2 93 
94 
e OAC3 3C 00 0082 95 
OAC? 3A FF 0082 96 
OACS 38 FF O0B2 97 
& 
care 22cecTs 
oO NOe e@27836 


TEST 


"OD 12 


SOURCE STATEMENT 


TETOLA 


ory 
Coz 


OFX 


OP 2 


OPA 
cec 
ER ARCH 


ors 


TSsToIs 


YEST2 


8 
TEN 
JF 
l 
uvI 
sto 


MVE 


Eou 


cul 
SNE 


JZ 
cic 


Eau 
ayy 
TEN 
JF 


oc 


TeF 
JST 


oc 
wvy 
T6F 
6F 
oc 


JBN 
JT 


oc 
evE 


S6N 
TEN 


Test 

CPU .X*802 
TSTOLE 
ERRINT eI ARO 
CRANCH(1.X%*SO° 
020 
ADRYePIITAR 
ACRZ.P2TAR 
ACRX»P2TAaR 
9 

OF2 


Halt 
XL 2°FEZ2° 


MEOG® oF OF 

INTRPT -IARO 
ACRA.PITAR 

ADRBePTIAR 

ATRCePZTAR 

ACRE eP2TAR 

° 

orc 


HALT 
XL2°FES31° 


BRANCHS! oX* AT? 


s 


CCHSt2e3 
CCRSIZ6X* FFP 
8 

ZEROS 
NEG12603 
TEsST2 


127€12@eXR2) 1 27€ oXR1 


Exiv 

e€ 

s 

TSTFLOLO 
TETFLOX* FFE 
49 

HALT 
xXL2°FEOR © 


TETFLO eX* FFE 
eo9 

HALT 
xXL2°*FEO2* 


TSTFLOX* FFE 
TSTFLO ox*FFS 
410 

HALT 

XL 2°*FEOT? 


TYSTFLC oX* FFE 
649 

HALT 
XL2*FEOS* 


TSTFLOLO 
TSTFLOX*FF®e 
TSTFLOEX*FFSE 


PART NO 4248254 
PAGE TA 


eTEST FOR VALIC OCP ENTRY IN DATA SY 
JEST FOR DUAL PROGRAM FEATURE 
BYPASS 1F NOT PRESENT 

LOAD INTERRUPT YAR FOR ERROR 
SET BRANCH INSTs TO NOP 

CISABLE DUAL PGMe 6 INTERPT KEV 
LOAD PROGRAM LEVEL 1 IAR 

LOAD PROGRAM LEVEL 2 IAR 

LCAD PROGRAM LEVEL 2 TAR 
ADVANCE PROGRAM LEVEL 

TO NEXT TE: T 


CO HALT -0C32-= SECAUSE APL INSTR 
CAUSED PROGRAM ADVANCE WHEN NOT 
ENABLED. . 


ENABLE CUAL PGMe & INTERPT KEY 
LOAD INTERRUPT LEVEL O TAR 
LOAD PROGRAM LEVEL 23 TAR 

LOAD PROGRAM LEVEL 1 1AaR 

LOAD PROGRAM LEVEL 2 IAR 

LCAD PROGRAM LEVEL 2@ TAR 
ADVANCE PROGRAM LEVEL 


GO TO HALT ~OC31~- BECAUSE APL DID 
AOT CAUSE AN ADVANCE WHEN OU AL 
PROGRAM WAS ENABLED 


SET ERANCK TO UNCONDITIONAL < - 


LGAD CORE SIZE IN XRIEG XR2 

eCHECK IF CPU HAS 64K OF CORE. 
IF NOT. CONTINUE NORMALLY IF 
VESe ENTER X*0000" IW xXRI SF MZ 
eSUBTRACT 128 BY ADDING X*FFBO® 
eIF ALL CORE YESTEDs END TESTe 
1F NOT. CHECK PARITY OF 128 
BYTES 4ND CHECK WITH SUPERVISOR 
BEFORE CHECKING NEXT 128 BYTES. 


SEY TEST FIELD TO ZERO 
TEST ALL BITS FOR ON 
BYPASS HALT IF ALt CFF 
TO HALT IF ANY TEST ON 
HALT 10 , 


TEST Mt BITS FOR OFF 
BYPASS HALT IF ALL OFF 
TO WALT 17 ANY ON 
HALT 10 


SET TEST FIELD YO “FF 
TEST ALL BITS FOR OFF 
BYPASS HALT IF ALL ON 
TC H#ALY FF ANV TEST OFF 
HALT 1D 


TEST ALL BITS FAR aN 
BYPASS HALT IF ALL ON 
TO WALT IF ANY TEST OFF 
HALT tO 


SET TEST FIELD TO ZERO - 
SET ALL BITS ON 
TESY ALL BITS FOR ON 


PROG 10 FEI-6 
PAGE 2h 








Aire sane ae en = 


! 
i 


| 


| 
| 


oO 





© 





TQM MAINTENANCE DIAGNOSTIC PROGRAK PART NOe 4248254 I@M MAINTENANCE OTAGNOSTIC PROGRAM PART NO 4246254 
PAGE 2) © PAGE 2a 
FEI0 FE - CPU MODULE FOR SYSTEM TEST ¥CD 12 | e'* FE1 - CPU MODULE FOR SYSTEM TEST “0D 12 
ERR LOC CBVECT COCE ACCR STMT SOURCE STATEMENT | ERR LOC OBJECT COCE ADOR STMT SOURCE STATEMENT 
, i gt ‘ 
OACF CO 10 OADS 98 eT #410 BYPASS HALT IF ALL ON | © 0883 F2 81 06 166 JE +9 JUMP OVER HALT IF OK 
OAD3 CO 87 0222 99 8 HALT TO HALT IF ANY TEST OFF | oBees6 co B87 0222 167 8 HALT TO HALT IF NOT OK 
OA07 FEOS CADS 100 oc XL2°FEOS® HALT 10 OBBA FEOE oBeB 168 oc XL2°FEOE® HALT 10 
101 s G - 169 
OAD9 3C FF ODB2 102 WVE TSTFLOeX*FFE SEY TEST FIELD YO Att BITS | oeec C2 01 0000 170 LA OeXRI LOAD ZERO IN XRI 
. OADD 38 FF 0082 103 ser TSTFLOeX* FFE SET ALL BITS OFF gh OBCO 24 01 0DB3 171 Sst WCRK41 eXRI STORE 
OAE1 39 FF ODB2 104 TBF TSTFLO.X*FFE TEST att BITS FCR OFF i © 0BC4 OD 01 CDB3 0090 172 CLC wORK41¢€2) eZERO COMPARE 
OAES CO 10 OAEF 105 et #410 BYPASS HALT IF ALL OFF OBCA F2 B61 06 173 JE #49 JUMP OVER HALT IF OK 
OAES CO 87 0222 106 B HALT TC HALT Tf aNY TEST ON | oOBCcD CO 87 0222 174 8 HALT TO HALT IF NOT OK 
OAED FEOE GCAEE 107 oc XL2°FEO6? HALT 10 | C oBD1 FEOF oect2 175 oc XL 2 *FE OF ® HALT ID 
108 176 
OAEF 3C 00 0082 109 MvI VSTFLO e0 SET TEST FIELD TO ZERO | 6 OB03 C2 01 0000 177 LA © oXRI ZERO XRi 
OAF3 34 00 OD82 110 SEX TSTFLCE.O SET NO BITS ON | we OB07 02 01 02 176 LCAD1 LA 2lCeXRIPEKRI STEP BY 2 
OAF7 2D 00 ODB2 211 cut TSTFLOeO TEST FOR NO CHANGE OBDA 24 01 ODAS 179 st REGSAVeXR}? SAVE 
OAFB F2 81 06 212 Je 849 JUMF OVER HALT IF OK rc OBDE OD 01 ODAS ODA! 180 CLC REGSAVC2) »MENUS2 CCMPARE 
OAFE CO 67? 0222 113 e HALT TO HALT IF ANY TEST ON | X OBE4 Cd 01 0807 181 BNE LOAD! LOOP TILL EQUAL TO OOFE 
0802 FEO? osos 114 oc XL2°FEO7* HALT 10 182 
0804 3c FF ODB2 115 MVI  «- TSTFLDeX*FFS SET ON ALL SITS IN TEST FIELD | f OBEB C2 02 0N00 183 LA CeXR2 ZERC XR2 
0808 38 00 00382 116 ser TSTFLO.O SET NO BITS OFF | \ OBEC E2 02 02 184 LCAC2 CA 2CeXR2N6 XR2 sTeP BY 2 
OBeCC 3D FF 002 117 CLI TSTFLOGX*FF® TEST FOR NO CHANGE OBEF 34 02 ODAS 185 st REG SAV oXR2 SAVE 
0B10 F2 81 06 118 Je «49 JUME OVER HALT IF OK Ne OBF3 Of C1 ODAS ODA 186 CLC REGSAV(2)¢MINUS2 COMPARE 
OBi3 CO 87 0222 119 8 HALT TO HALT If *#NY TEST OFF i OBF9 CO 01 OBEC 187 EXE Lcac2 LOOP TELL EQUAL TO OOFE 
0817 FEO efis 120 oc XL2 *FEOS® HALT 1D | OBFE CO 87 0D3} 186 8 Exit 
C819 CO 87 OD21 121 B Ext TO SUPERVISOR Va 189 
122 | < 1$0 
0810 04 20 ODBB coat 123 ZaZ  WCRK4OCSICUNTITSCI) ZERO THE WORK AREA l 0co1 3C OF ODB82 191 MvI WORK oX*OF ® SET WORK AREA 
' 0822 06 20 ODEB ODE 124 Az WCRKES C3} eDEONE(! ACD DECIMAL ONE : ocos 3c FO 0De3 192 MMVI =WORK4E SX *FO® 
082° 07 20 OCBB CUJSE 125 SZ WORK45(3) ¢CEONEC 3} SUBTRACT DECIWAL ONE | € GCOS O08 OC 0DB2 ODB2 193 MZZ «=«- WORKS WORKS! MOVE ZONE TO ZONE 
oBp2r 3c F6 ODB2 126 MVE WORK »X* FE® SET WORK AREA TO F6 | OCcOF 30 FF ODE2 194 CLE WORKEX*FFE CHECK MOVE 
CB33 04 00 ODE2 0086 127 ZAZ = WORKED SUNT TS-701) ZERC G ADD CEC. 3 : oci3 F281 06 195 JE 49 JUMP OVER HALT IF OK 
Seteeeneceme  e CB39 2D F3 OOB2 128 CLI WCRKSX*F3S CHECK FOR DEC 3s _< oci6é CO 87 0222 196 B HALT TO HALT IF ERROR ——$—$—<— 
0B2D CO B1 OBS? 129 BE #410 BYPASS HALT IF OK \ OC1A FE10 ociB 197 oc XL2°FEI0¢ HALT 
ofe1 CO 87 0222 236 8 HALT TO HALY IF NOY EQUAL TO F3 | 198 
98405 FEOS 0846 131 oc XL2°FEOO® HPLT 10 Cc 0C1C 08 01 0082 0DB3 199 “MZN = WORK o ROR K+1 MCVE NUMERIC TO ZONE 
C847 3¢ 00 0DeA ia: avi WORK4¢2.X*D0* | . pesees a oe Pr = io Goue vee Hack TF OX 
0846 OC 07 ODB9 ODBA 134 MVC = WC RK+7 (8) eWORK EB 1€ 0c29 CO 87 0222 202 6 HALT TO HALT IF ERROR 
0BS1 06 08 ODBA ODBC 1338 az WORK4EC 9) SUNT TS-109) | oc2D FEI oc2eE 203 oC XL2°FE11° HALT ID 
08S? CD O08 ODBA ODSC 136 CLC WCRK4B (OD LUNITS=1 tos 204 
OBSC F2 G1 06 137 JE ‘849 | C Oc2F 08 03 ODpe2 OfB3 208 MNN WORK eWORK41 MOVE NUMERIC TO NUMERIC 
0860 CO 87 0222 138 e HALT { 0C35 3D 00 0082 206 a a | WORK eX*00° CHECK MOVE 
OB64 FEOA OB65 139 oc XL2 *FEOAS HALT 10 ge 0C39 F2 81 06 207 JE 845 JUMP OVER HALT IF CK 
140 | ¢ 0C3C CO 87 0222 208 8 HALT TO HALT IF ERROR 
ORGE = e eure - t ais ee te aS ea | oc4o0 FE12 oc 43 — pC 8Fs XL 2° FEI2° HALY I6 
OB6A 35 0D90 L o% 1 gems, 
0B6E 34 0: 0083 143 ST WORK41eXRI STORE BOTH c 0c42 0&8 O2 9082 CCB3 211 MNZ WCRKeWORKSL MOVE ZONE TO NUMERIC 
OB72 34 O02 Opes 144 ST WORK43eXR2 IN WORK AREA 0c4e 30 OF 0082 212 cul WORK oX*OF® CHECK MOVE 
0876 CD 61 0183 0092 145 CLC 3 3—- WEF 43 C20 eo XFF" CPYECK VALUE FROM XR} et oc4ac F2 81 06 212 JE #49 JUMP OVER HALT IF OK 
oB7C F2 81 06 146 3 649 SUMP OVER HALT IF OK noo OC4sF CO 87 0222 214 e HALT TO HALT IF ERROR 
“ “op7F cO 87 0222 147 € HALT TO HALT IF NOT OK i _0CS3 FEI3) - ocs4 215 oc xXL2°FE123° HALT ID 
0883 FEO opes 148 oc XL2*FEOB HALT 10 ; 0CS5 OC 01 ODAS CDS2 216 MVC REGSAV(2).XFF SET SAVE AREA 
0BeS 0D 01 ODES OD90 149 C1.C WORK4+302)- ZERO CHECK VALUE FROM XR2  ¢ OCS5B C2 01 0082 237 LA WCRKeXRI LOAD ADCRESS OF WORK IN XRI 
086B F2 61 06 150 JE +9 JUMP OVER HALT IF OK OCSF 02 02 00 218 La Oe XRF XR] PUT XRZ IN XR2 
OGBE CO 87 0222 151 6 HPLT TO HALT IF NOT OK | @ OC62 34 02 ODAS 219 st REGSAV»XRZ SAVE XR2 
0892 FEOC 0893 152 oc “L2*FEOCe HALT 10 : € OC66 OD 01 COAS O09B 220 CLC REGSAV(2) eWwORKO CHECK RESULT 
1£2 5 i oc6c F2 61 06 221 JE #49 JUMP OVER HALT IF OK 
08946 35 01 0090 154 t WORKS + XR1 LOAD ADDRESS OF WORK4¢S IN XR} ; OC6F CO AT 0222 222 8 HALT. TC HALT IF ERROR 
case 7C FD 00 155 MMVI} “vi Oo XRIDeXP FD! MOVE IMEADATE WITH INDEXING : & OCc73 FEI4 oC7& 223 oc XL2°F 2146 HALT ID 
156 i 224 
089e@ 3D Fd 0087 157 CLI wWORKESeX°FO®. CHECK RESULT |g. QCTS OC 01 ODAS CD92 225 MVC =9REGSAV(2) oXFF SET SAVE AREA 
OBSF F2 Bi U6 158 Je £+9 JUMP OVER HALT IF OK & oc’e C2 02 0082 226 LA WORK o XR2 LOAD ADDRESS OF WORK IN XR2 
OBA2 CO B7 0222 159 8 HALT TO RALT IF NOT OK i CCTF E2 01 00 227 La 0 €oXR2Z)eXR1 PUT ¥R2 IN IRI 
0BAG FEOO OBAT 160 cc XL2°FEOD* HALT ID OCc82 24 O01 CDAS 228 st REGSAVeXRI SAVE XR2 
. 161 © O0C86 OD 01 ODAS ODOE 229 CLE REGSAV(2).WORKO CHECK RESULT 
0648 35 02 OD9D 162 t WORKS. XR2 LOAD AUDRESS OF WORK+S IN KRZ | ocec F2 81 06 230 JE #49 JUMP OVER HALT IF OX 
OBAC BC AA 00 163 WVI2- MVE Oe XR2DoXT AAP MOVE IMEADATE ITH INDEXING i OCBF CO 87 0222 223 8 HALT TC HALT TF ERROR 
164 ‘ oco2 FES oc9s ) = 232 ec KL2°*FE1S* HALT ID 
OBAF 20 AA 00B7 165 CLE WORKEESX°AA® CHECK RESULT | 233 
DATE 22DEC 75 PROG 1D - FEI-0 CATE 22cEec7s PROG 10 FE1-0 
EC NO 627836 PAGE 2. g. EC NO. e2783€ PAGE Za 
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IBM MAINTENANCE OTAGNCSTIC FRCGFAM 


FEO FE 


ERR LOC OBJECT CODE 


oc9s F2 88 00 
oc9ea 3c 09 0082 
oc9oc 06 06 00682 
oca2 F2 88 06 
OCAS CO 87 0222 
OCAS FEIG 


OCAB 
OCAF 
OcRs 
oces 
oceo 


3c 09 
06 O00 
co 68 
co 87 
FE17 


0062 
ooB2 
ocBF 
o222 


ocer 
occ3 
occ? 


co 06 
co 87 
FEI8 


occe 
0222 


occ9 
occc 
ocoo 


F2 08 06 
co 87 0222 
FE19 


oct2 oc O1 
ocoe OA 01 0083 
OcCE 0D 01 0083 
NCES F2 B81 06 
OCE7 CO 87 0222 
OCEB FEIA 


ooe3 


OcED 3C FO 
OCF1 OF 1F 
ocr? 3C FF 
OocFB oc 10 
opc!: 08 1€ 
Op07 24 O08 ODD4s 
0008 OD 1E ODC0 
0011 F2 Bi O06 
0014 CO 67 0222 
O018 FEIC 

OD1A OO O1 ODD4 
0020 F2 81 06 
o23 CO e7 0222 
0027 FEIE 


oope2 
0o01 
OOF ts 
OOFA 
0082 


oD029 CO 87 
0020 CO 87 
OD3! 34 08 
ON38 30 FE 
op39 CO Ot 
O03D CO 87 


OD3% 
OAOE 
0040 
oa oo 
OAOA 
0000 


0041 34 20 
0045 34 40 


ove1 
ope3 
2D49 35 60 OO7F 
0040 Fi 00 00 

0050 


cc 80 0069" 


0054 CO 87 ODSE 
oose F2 87 OE 


oose F3 00 06 


ODSE 35 20 
OD62 FE 40 


0081 
oo8s 


OD66 F2 BT 04 


DATE 
EC NOe 


220EC 75 
627836 


0093 


o093 


oces 
0095 
o09g7 


oor! 


OoFs 
oo92 


oore 


- CPU MCCULE FCR SYSTEM TEST 


“0D 12 


ADOR STMT SCURCE STATEMENT 


234 
235 
236 
237 
238 
239 
240 
241 
242 
263 
244 
245 
246 
2a7 
248 
249 
250 
21 
252 
2523 
26 
2556 
256 
2s7 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
266 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
265 
286 
287 
288 
289 
290 
29 
292 
293 
294 
2s5 
296 
297 
298 
299 
300 
301 


OCAA 


oOcseeE 


occs 


ocol 


ocec 


0019 


0028 


Exit 


BR 


INTOK 


aCCCEe 


UNCND 


NEWLO 


J02Z 
mMvI 
AZ 
SOZ 
8 
oc 


MVI 
az 
602 
8 
oc 


BNOZ 


oc 


JSNOZ 


cc 


mvc 
Ec 
cic 
JE 


oc 


MMVI 
SLC 
mv" 
mvc 
ite 
st 

ci¢c 
JE 


oc 
cic 
JE 


oc 


st 
cur 
BNE 


st 
st 


APL 


ec 


43 

WORK oX* D9 * 
WORKC 19 .xO90 2) 
+9 

HALT 
XL2°*FE16° 


WORK «x °D9° 
WORK(139exX09C1) 
*416 

HALT 

XL2 *FEIT® 


e410 
HALT 
XL2 *FE16° 


#49 
HAL T 
XL2°FEI9® 


wORK4102)-X2020 
WCRK41 (2) eXE1FO 
@CRK4+1(02) oXF IFO 
49 

MALT 

XL2°FE1a* 


WORKE32-C*O° 
WORK431032) «WORKE 31 
WORK473 XP FFE 

WORKS 72030) -WORKS73 
WORK (21) —eXFF 
WCRK4+34 ,. ARR 
WORK42061 32) .WCRK4+73 
249 

HALT 

KL2°*FEICe 
WCRK434 (2) WORKS 
s49 

HactT 

RL2°*FELE* 


ExtT 

YSTOIA 
BR+ J eARR 

X*0 A00* oX* FE® 
ENTRY 

t~-e 


PISAVeR*20° 


P2ZSAVeEX*a0® 


BADINTeX* 60° 
° 
INT ERR X* 80° 


NEwLO 
INTERR 


6-0 


PISAVex*20° 
P2SAVeX*40O* 


RESETT 


¢ 


AO 


PARTY NOe 0248254 Cc TQM MAINTENANCE OTAGNOSTIC PROGRAM 
PAGE 3 ; 
ert FEL - CPU MCCULE FCR SYSTEM 
ERR LGC OBJECT CODE ADDR STMT 
| . 
RESET DECIMAL OVERFLOW © OD69 3 60 OD7F 302 
SET WORK TO MINUS DECIMAL 9 i 303 
ADD MINUS DEC. 9 TO WORK 304 
JUMP OVER HALT IF DECIMAL OVER FLOW ; OOED F3 00 OS 305 
TO HALT IF ERROR ‘ 206 
HALT 10 my, 0070 CO 87 0222 307 
ed 0074 FE89 0075 308 
SET WORK TC MINUS DECIMAL 9 209 
ADC MINUS CECe 9 YO WORK C 0076 CO a? 0069 310 
BRANCH OVER HALT IF DECIMAL OVERFLOW * adda soe core = 
TO HALT IF ERROR OD7C ODE oc7o0 1 
HALT ID j OOD7E OD70 OC7F 313 
Se, oDso opel 314 
BRANCH OVER HALT IF NO OVERFLOW op82 ocs3 315 
TO HALT IF ERROR CC Sone oe ets oo08D ae 
HALT ID o 2 
ODRE Fi OO8E 317 
JUMP OVER HALT IF NO OVERFLOW c oosF 0000 opso 218 
TO HALT IF ERROR 0091 FFFF oe ai 
HALT 1D 00S3 09 oDs3 320 
o 0094 EIFO opss 321 
SET WORK TO HEX~2020- ‘. 0096 FIFO 0097 Sag 
EDIT eoSse 2020 0099 2 
CHECK RESULT * ooga ope2 cpss 324 
JUMP OVER HALT IF OK KR cone aoe oor ae 
TO HALY IF ERROR OD9E ODD! oD 
HALT IO ; ODA0 OOFE ODAL 327 
£ ODA2 FFAO ODA3 328 
SET A NUMERIC VALUE AT END OF FLD ooas 0000 ODAS 3229 
ZERO wORK ODAE OAIBE Oca7y 330 
a ODAB OA2C CCAS 331 
COMPARE FIELD ODAA GA30 oo0aB 332 
INSERT FF a ODAC OA4F opad 333 
SAVE ARR € ODAE 0460 ODAF 324 
CHECK 0080 OAS3 ODf1 335 
JUMP OVER HALT IF OK € CD82 336 
TC HALT IF ERROR - o0B82 OCFB 337 
HALT ID oc01 338 
CHECK ARR VALUE AFTER THE ITC & 0002 339 
JUMP OVER HALT IF SET CORRECTLY : ooos 34C 
TO HALY If NOT 0080 344 
HALT 10 G 0020 3442 
C040 343 
JO SUPERVISOR een = 
r 4 
SAVE EXIT ADORESS C¢ OA0A 346 
0222 347 
. 0212 348 
& OCL2 349 
OACE 350 
SAVE P1-I AR © 
SAVE P2-TAR i 
LCAD PL & P2 TARS TO ADDR OF SETARR © o 
TRY TO ADVANCE PROG LEVEL IN INT LEY, 
NO-OP BRANCH TO TEST IAR/ZARR SELECT | € 
UNCONDITIONAL SRANCH TO TEST | @ 
IAR/ARR SELECT | 
ENABLE IKTERRUPTS & CUAL PROG MODE | @ 
RESTORE P1-1aR | 
RESTORE P2-IAR | 8 
GO RESET THE INTERRUPT. | 
' © 
PROG ID FE1~0 DATE 220EC7S 
PAGE 3 ~ EC NO e2763€ 


oO 6 © 


TEST 


SOURCE 


IATERR 
e 


RESETT 


SETARR 


INTEPT 
ERR INT 
BADINT 
PISAV 
P25 4V 
Carts 


CEONE 
ZERC 
XFF 
xc9 

XE 1F 0 
XF1FO 
x2020 
wORKO 
WORKS 
KORK21 
MINUS2 
NEGI2E 
REGSAV 
ACRX 
AORY 
ADRZ 
ACcKs 
ADRE 
AORC 
wORK 


KR 
XR2 
AR® 
TARO 
PIITAR 
F2T1AR 
COREIZ 
cPU 
EATEKY 
HALT 
vest 
TSTFLO 


MOD 12 
STATEMENT 
Lt BACINTsX*60* 
SIC Sed 
8 HALT 
oc XL2*FEBO® 
8 INTERR 
oc AL2 CI NTCK) 
oc AL2CINTERR) 
oc AL2(SETARR) 
o¢ ct2 
os CcL2 
oc CL10°1234567890* 
oc cuiesze 
oc xL2°OF 
oc XL 2 °FFFF ® 
oc xLi*oo* 
oc XL2°E1F 0° 
oc XL2*FiFO® 
oc xL2*2020° 
oc AL2C WORK) 
£C AL2(CWORK4S3 
oc AL2 (WCRK431 ) 
oc 1.2 °OOFE® 
oc XtL2*FFBO* 
oc XL2°*08 
oc AL2€OPX) 
pc AL2COFY) 
oc aL 2(oPz) 
cc AL2 (OPA) 
oc AacL2¢DP8) 
oc AL2( OPC) 
Eau s 
os CL74 
EGU 01 
ECU 02 
£€OU oe 
ecu x*@o* 
eau x*20° 
EQu x*aoe 
EoOU x*203¢ 
EQU x*204¢ 
€oQU X* ADAP 
EQU x*222° 
€au x*212° 
E€QU WCRK 
ENO TSTOIA 





PART NOe 
PAGE 


LOAD P1-IAR © P2-TAR WITH THE 
ADDRESS OF SETARR INSTRUCT ION 


RESET & DISABLE INTERRUPTS 


GO TO HALT -FE89- IF INT LEV O ERR 


RESETT FAILEDe TRY AGAIN 


PRCGRAM LEVEL 1 IAR 
PROGRAM LEVEL 2 TAR 


PROG 1D 
PAGE 


a24e2F4 


Het Sones AMMAR DPSS I Blew TT 


Bie ie I ate A ee eM 





eb cme RI 


ae RT ORM. 


+ 


IQ@M MAINTENANCE OLTAGNOSTIC FROGRAM 


FE10 


A 

acra 
ADRB 
acec 
ADRX 
ADRY 
ACRZ 
ARR 

e 
BADINT 
BR 
BRANCH 
ccrsiz 
cPYU 
CECNE 
DFA 
OFB 
oPpc 
DPX 
cry 
OP2Z 
oP2 
ENTRY 
ERRINT 
Exiv 
FE 
HALT 


¥ ARO 
INTERR 
IN TOK 
INTRPT 
LOAD? 
LOAd2 
MINUS2 
MV—IS 
MVvI2 
NEG128 
NEWLO 
nccoPp 
PITAR 
PISAYV 
P2TAR 
Pesav 
PEGSAV 
RPESETT 


“S€TARR 


TEST 
TEST2 
TSTFLO 


TSTO1 
TSTOLA 
TsTO1Bs 
UNCND 
UNITS 
woRK 


wORKO 
WORK 31 
wCRKs 
xo¢ 
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0031 139 MAXREC EQU 49 CFINC A 001 088D 0089 0084 
, 140 CFMAIN A 001 0800 0018 0006 0011 00128 0020 0039 0043 0055 0058% 0064 0082¢ 0083 008S* 
7 € 140 0086* OCs? 
CeeF 141 END Eou 41 CFMAN® A 0062 0808 0020 0047 2051 0066 
: ces2 162 END cop CLEAR A 001 0810 0027 0012 
‘ ¢ SDOSEEK A 003 0855S 0046 ocaz 
DOSIO A 003 OB8DA 0107 01 046 . 
; DSKERR A 003 08CO 0092 004: 0088 0108 
€ END A 001 O8E€F o1¢@1 0011 0011 o0118 
HH COOL co3B of21 0092 
“7 € 001 0007 0120 ooe2 
¢ G@ineur c 001 0200 o::9 #0021 
INPUT® & 002 0800 002! 0040 0059 0106 
LDOCR- C 001 00C6 0138 0047* 00518 00599 00662 
€ ZLODDR C 001 00Ce 0137 01 068 
LOAD =A 00€ 0000 0081 
P LOADAA A 001 O00F 0015 0018 
t €: {LOADE A 0C® 08693 OOT6 ooTs 
Loop =A 008% 0842 0039 0090 0093 0162 
MAXREC C 001 0031 0139 0083 
¢ € "MOVE & 005 089F 0079 0076¢ 00778 00788 
NOSEEK A 001 0879 0063 0044 0056 
_. NUM256 A 002 O8€9 0112 0031 0035 
¢ € =! ONE A 002 080F 0022 0082 0086 0099 o161 
ONESEC A 001 O8F7 0112 0076 
QDIAG C 001 COP 0832 
& € OREAD C 001 C800 0131 0068 
QRECAL C 001 Cool 0129 
QRHA © 001 C101 0330 00s2 
€ € SQSEEK C 008 COCO 0128 0049 0061 
S10 A 003 08C6 0099 00468 0052 0000 0067 
ST1OR A 004 OBES 0110 01026 
é € SSIOSET A 005 0802 0108 01008 
sKt A 003 08sc 0042 00a6e 
; STATUS A 002 OBEF 0115 
. & TeuSY C€ 001 cOC2 0135 0109 
TNR C 001 00Cce. 0136 oat 0108 
XRa C 001 0001 o116 0006 00398 0040 0041 0083 0046 0047 0088 0951 0052 0055 0056 
c €& @ 0059 0069 0068 0066 0067 0072 0976 O077 0078 007& 0082 0083 
0685 0086 C087 0086 0090 0093 0099 0100 0101 0802 0108 0106 
0108 0109 
¢ g& @ xez C 008 co02 o187 0040% 0070 0076 0077 0079 
zro A 006 081A 0030 ©031® 0032 0033 
ZROA =A 006 «~082E «(0034 0035*® 0036 0037 
é @ : @zzzz_— a 001 «coco =0007 
TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = - ° 
¢ @ ; ® 
e © ° 
¢ @ 
¢ @ : 
¢ 


oe 
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®©6e 80 @ 
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* pave 


TEM MAIARTENANCC OTAGNOSTIC PROGRAN 


fFAO 


e 
THE CHARACTER 


cu 1 TRRCUGE 16 
e eo Teee e 
GAK GER PN 55 


TC— +$CePHsoc=ore 


Te-=-5 c atc Oo 


Tee 75 E~CCHEH SAY 


ee @e 


T4012 = 198C 


Te-T, awe A fase 


Y OT? 


EBD 1S E 792-00 “PHS 


OI0EC 74a 


EC We 875 0°27¢ 


CL 17 THROUGH 32 


Se9ic EC 824829 


HC f e-2 pot 


2 G*®8 


AB AL ~7I0<C270R 


eSHnFOCR*IEC] EV 


D4rG 4HICBCRCAE) 


zOTNCE | 1 c 


CCP BOCTSTRAP CAKE SECTOR LOADER FOR 33240 = WED 15 


OBJECT CARO LISTENG 


PARTY NOe 
PAGE 


INDICATES A BLANK COLUMN AND THE CRARACTERS D E H INDICATE NUMERIC SHIFT. 


CL 33 TEECUGH 48 CL 45 TKROUGH €@ CL €£ THROUGH 80 


3340 OCP BCCTSTIA 


<* /PEG"O<"18°G"a 


* €P2 KJBA4S511-7 


< ReA™ZEC An CH 


Bi--f) TO»--4}) 17 


eeeeecseseoeoesn eo 


Fx asc RA 


AP LCADER-MOD 235 


+ €-)B4¢U°BE—-eOHE 


£/E2 GGFE*BG1%0 


Cs €T NE Yess 


wi. €® Ati 73 =«¢ 


eeeeceeoeoneees ene 


so e 


@eese02eeo0ed 


84858608 


HF-3°A"8="0DA8CD 


A=GH B-De~ D #80 


08 A&~|]-LOEBVH 


JC<CJO_7 70 AD 


13270908741 
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CU 8% THRLUGH 9€ 


eeneee80 


FF ADCOO0N 


GO-FFA0000!1 


HSL6 2L<Fraco0d2| 


{4H &£ZVFFAC000? 


ee 


4- D 2e8FFA0OCCOE 


SSVFF ACOCOOS 


3$9<FFAC00O6 
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TBM MAINTENANCE OITAGNOSTIC PROGRAM 


FFBO 


EPR LOC OBJECT CODE 


000c 


0087 


0017 


0018 
OOF 
co23 
0028 
0076 
0028 
OO2E 
0032 


0035 
0039 
0O3F 
0042 
co4a6 


Goac 
ooso 


90s3 


GO57 
OOSA 


OOSE 


OATE 
Ec NO. 


40494040 


34 
co 
02 


08 
87 


O1LFF 
OOIA 


oc 
38 
F2 


co 
oo 
F2 
oD 
co 


38 
Fe 


35 


FO 
co 


oc 


09 
02 
396 


87 
02 
8i 
FE 
o2 


01 
16 


08s 


38 
87 


04 


0073 
O21€ 


orcs 
o1iFOo 
38 


O1CcE 


0:00 
0886 
ac 

O97E 
9035 


OO1A 
CO7F 
OLFO 

o7 

OFF 


73 
oooc 


03:CO CSSE 


29AUGTS 
827804 


ADDR STMT 


Oota 
0018 


oo23 
ooes 
0027 


ooso 


OOSE 


eoerauvesun 


1 NN 1D DDN 1D fe tt et oe ne be et ee Oe ne 
QU FUN KH OKCANVAN PUNO 


27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
a8 
4s 
a6 
a7 
48 
a9 
50 
$1 
52 
s3 
$4 
$5 
55 
ss 
56 
S57 
ss 
s9 
60 
61 
62 
63 
64 
65 
66 
67 


CCP LOADER FOR 3340 DISK - MDD 12 


PART NO. azsce3el 
PAGE a | 
SOURCE STATEMENT | 
* LAST CHG 2:08:08 75 
CECK 4 
SEQ 9 | 
FFB START 0 | 
TREP 
ORG x*0O178 TO MISS DCP*S RESTARY RGUTINE | 


* 


£HERERE REALE EERE TEES DSEAEEREIRRESSSHAEEEEREDERERESEAES BS OSREES SEE EREES | 


CONTROL PROGRAM LOADER * 


REREKER RRS ERERTS KEAKERAKKLSESRAKTRAE SAKE ASKS ERERESKAKSSERKKLAERKKSEHSASCHKSSUSEE 


SERPAKAK KKK AGRE SARS ERKALKHERHESS RACAARATE SKA ARK SKS LEARGERE RSE SHARASESAAESRLE SRS 


1D pc 
ENT2 equ 
* 

st 
8 
oc 
oc 
oc 
mvc 
TBN 
JT 


SCAN 8 
cLe 
SE 
cic 
SNE 


TSN 
JST 


HPL 
LOR 8 
xXREF1 EQU 


IOFND EQU 


MVC 


SEREKSCEESESKE CREEKS RES ESE SEK SHEKSENSRE EEA ARHASSE 


NOTE <-<-- 


eae eee ee en see 


LOADING. 


THIS LOOP READS AND LOADS RECORDS. 
IF BIT 2 OR 3 IS ONe IT READS ONLY 1 RECORD AND RETURNS. 


THE INSTRUCTION LABELED *RETURN® 
DURING OCP LOADING. 
IT IS SAVEO AND RESTORED ONCE IN THE 


THE INSTRUCTION 


* «| 
* THIS PROGRAM MODULE LOADS THE CCNTROL PROGRAM, INCLUDING ITS SEC- *#! 
* TION REFERENCE TACQLE. A ONE SECTOR BOOTSTRAP LOADER READS THIS * 
* LOADER INTO CORE & BRANCHES TO IT« LOAD CARDS RECOGNIZED BY THE +# 
* DCP LOADER INCLUDE ul 
‘ a 
* TEXT * 
e END * 
* cpu * 
* upt . * 
* 2 
* OTHER CARDS CAUSE HC HALT * 
* = 


clase e 

* DCP ENTERS HERE FOR ALi B LOAD EXCEPT 
READ A RECORD (8IT 3} 

RETURN43.4 ARR SAVE RETURN ADDRESS 

UNPACK UNPACK PROGRAM ID AS PASSED 

iLi¢2¢ BY PROGRAM VIA DCP. 

AL2(PARMS? 

AL2¢10} 


CFMAINEOC 10), CFVTOC4+S FORCE SEEK YO VTOC 


LOFLAGs: BITS IF SEEK-TO-VTOC FLAG. THEN QUIT } 
RETURN RETURN TO OCP 
READ "READ® SEEKS FIRST THEN READS 
LNPUT4#VIDCS}e1D COMPARE ID TO VTOC FOR A WATCH 
IDFND JUMP IF PROPER VTOC ISFOUND | 
INPUT#+254(255) sINPUT#255 IF ALL CHAR SAME, ASSUME THEY *RE; 
SCAN ALL ZERO MEANING END OF vtToc | 
LOFLAGeBIT? SEE IF LOADING ALL SECTIONS FOR ONE | 
LOR DEVICE CEXAMPLE DE10) i 
i 
PARMS. ARR PUT UNFOUND PROGRAM IN ARR FOR DISPLyY! 
HO. HH HD HALT. PROGRAM NOT FOUND i 
2 | BRANCHES TO DCP TO LOAD NEXT PROGRAM | 
1 { REFERENCE FILLED IN WHEN OCP LOADS 
= t 


CFMAINtS (5). INPUTS VADDR MOVE OTSK ADOR INTO CTRL FLO 


FALLS THROUGH 
AFTER LOADING IT IS THE RETUPN 
*FIG* ROUTINE. 


TO OCP. 


LABELED "CKCOMA® LINKS TO CKCOH1] OURING DCP 
AFTER LOADING IT 1S ALTERED TO LINK TO NORMAL SECTION 


PROG ID FFB-0 
PAGE i 
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IBM MAINTENANCE OTFAGNOSTIC PROGRAM 


FFBO 
ov 
ERR LOC OBJECT CODE 
(~—- @06@ CO 87 C100 
00638 39 30 O:FD 
; O06C CC 10 C07e 
{., 9070 Co 87 0074 
0074 70 £3 00 
(.: 9077 co 01 OAIF 
0076 1C 92 ocse 
{~  ©080 1€ GO C0BC 
: 0085S 02 O1 04 
' 0086 1C 00 0000 
al 
a OCBD CO 87 ONES 
f > 9091 70 SC 00 
. 0094 F2 9: 09 
0097 CO 87 O21A 
£* 0098 21 
= oosc CO B87 0064 
€ 9G 7D E2 00 
OOAS F2 01 28 
OOAG OCF 03 0200 
(>  O00AC 7D 40 04 
° OOAF CO 81 C06S 
€: 0083 02 of 05 
? MOBS 34 Of 00CO 
OOBA CO 87 0226 
(;  OOBE o2 
a o006F 0000 
00C1 0000 
CG 00C3 CO 87 C000 
ee 00C7? 70 68 01 
/ CUCA D2 61 03 
é cocD Co 81 0686 
: 0091 7D CS 09 
&; 0004 co 01 co6a 
0008 38 04 01FD 
( cope co 90 0901 
OOEO CO 8? 9070 
& 
DATE 29AUGT7TS 
EC NOe 627808 


wa 


i 


“*, 


O © 


oO 


03 
023 


00 


o2co 


ADOR STMT 


0098 


OosE 
ooco 
ooce 


68 
69 
70 
71 
72 
73 
74 
7s 
76 
TF 
78 
79 
86 
81 
62 
83 
84 
8s 
86 
87 
88 
eg 
90 
ot 
92 


OCP LOADER FOR 3380 DISK = MOD 12 


SOURCE STATEMENT 


* LOADER. 


PART NOe 4246238 
PAGE iA ’ 


x 
PGMLOD B READ READ A RECORD 
TS8F LOFLAG-BIT24+BIT3 SHOULO ONLY 1 RECORD BE READ ? 
BT CONTNU CONTINUE IF 8IT2 AND 3 OFFe 
RETURN 6 #44 (t—-2) BRANCH TO CALLER (SEE NOTE ABOVE) 
= mew wee were 
* - sye - 
* aw a owe ee oe ee 
CONTNU CLI Oe XRT C*F¥® IS 1T A TEXT RECORD ? 
CKCCMA BNE CKCOMi 8 (¢-#) IF NOTe TRY COMMENT. (SEE NOTE ASCVE) 
MVC MOVE4+3(039.30 6 XRi) PUT *TO* ADDR ANDO LENGTH INTO MOVE 
MVC MOVES (2 3010eXR1) ALSO MOVE IN LENGTH AGAIN. 
LA 4OeXR1IDOKRI BUMP OVER THE *T* ETCe 
MOVE MvC #—% ( &~4%)} -t-%( XR1) MOVES THE TEXT INTO STGRAGE 
8 PGNLOD CONTINUE LOADING 
*& THE FOLLCGWING CCOING COMPLETES THE SECTION LOADERe 17 IS 
** SBYPASSED DURING OCP LOADING. ONCE THE CONTROL PROGRAM IS LOADED» 


‘*# LINKAGES ARE SET UP SO THAT A BRANCH TO THE END CARD ROUTINE 


** SE SUBSTITUTED FOR THE DCP 


93 

94 

9S 4 

96 *# 

o7 @# 

98 CKCOM CLI 
99 JNE 
100 8 
1017 oc 
1602 8 
103 

£04 * 
105 * 

106 * 

107 CKSSwx CLI 
*08 JNE 
109 SSWFO SLC 
110 CLE 
111 BE 
112 

113 LA 
214 SSLSOOP ST 
4115 8 
316 oc 
117 SADDR OC 
118 XREFS OC 
119 * 

120 8 
$24 KREFS EQU 
122 

123 CLi 
124 LA 
125 BE 
126 

127 & 

123 + 

129 * 

130 CKE cut 
171 BNE 
132 

133 TSN 
134 BF 
135 B 


- ese ~ 
Of oe XR19.C%s 
CcKsswXx 
PRINT 
xLie2ise 
PSMLOO 


Sem e ew www 


-_ ssw - 
Oe XRIPSCPS*® 
CKE 
SBYTES( 4) eSBYTES 
ACeXREDC® ¢ 
PGMLOD 


Sloe KR1iIIeXR1 
SADOR.XR1 
PACK 

Tiras 

AL2( #-#) 
AL2 {(t—a) 


tm k 
e-i 


1€eXR1P2C%,® 


3CeKR130 eXRE 
SSLOOP 
- eee - 


OC xXRI.C*E* 
PGMLOO 


LOFLAG.BITS 
x*904° 
RE TURN 


WIL. 
LOADER RESIDING AT HEX -ADO— 


e 


Is IT A COMMENT CARD 7 
IF NOT. TRY *SSw® CARD 
PRINT RECORD JUST READ 


Is tT A SSW RECORD ? 

IF NO. CHECK FOR E (END) 

CLEAR SSW 10-2F 

IF NO SSW'Se CLEAR ALL AND QUIT 


POINT AT 1ST SSw& 
SET UP THAT ADDR IN PACK 
PACK ssw 


ADOR OF SSW IN RECORD JUST READ 
ADOR IN OCP TO PUT SSW FOR ssw 
ROUTINE. FILLED IN AT LOAD TIME 
{ LINKS TO OCP TO TURN THAT SSWe 
{ FILLED IN AT LOAD TIME. 


IF COMMAs THEN MANDOLE NEXT SSW 
BUMP YO NEXT SSW (JUST IN CASE) 
LOOK "TIL ALL SSW HANDLED 


1S IT AN END RECORD 7 
¥GNDRE IT IF IT £S NOT *E*® Caro 
SEE IF *SkKIP HA HALT® BIT IS ON 
IF NOTse GO TO END CARD ROUTINE 
TF SO- RETURN TO DCP 
PROG 1D FFB-0 
PAGE ia 
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FFBO DCP LOADER FOR 3340 OLSK = MOD 12 FFEO OCP LOADER FOR 3346 DISK ~ MOD 12 


ERR LOC OBVECT CODE ADOR STMT SOURCE STATEMENT | ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
136 | C 153 ® 
136 : 154 # 1/0 FOR WINCHESTER 
136 | 155 « 
LSP KERERKSESES GRE RRAEAR AES EAE AKE SHAS EK HRRES | oY 156 * READ 
138 * THIS ROUTINE ENTERED TG READ A SINGLE RECORDe i 157 & 
139 * a C100 158 READ EGU * 
140 * HOWEVER. IF BIT 25 4¢ OR 5 IS GN ALSOs THEN THE CALLING PROGRAM ine C100 34 08 O147 159 St REAOR¢3s ARR SET UP RETURN 
141 * HAS PASSED THE ADDRESS OF A DISK CONTROL FIELO TO BE USED FOR THE 0104 31 C6 G1D6 160 LIC  CFMRANDeLDOCR POINT TO MAIN CONTROL FIELD 
142 * FUNCTION. a 0108 CO B87 0148 £61 8 SIO SEEK AS SPECIFIED IN CONTROL FIELD 
143 a o10c «oce Q10D 162 BC AL2 CQSEEKS 
OOE4 34 GB OO73 148 RECARD ST RE TURN+3 2 ARR SAVE ADDRESS RECALL REGISTER 1 * 163 
oCES 39 2C O1FD 145 TBF LOFLAG,BIT2+BLT4+B1TS CHECK BETS WHICH SAY DISK ADR PASSED. O10E 3C OO O1C4e 164 MVE CEMAINSO 6G FORCE READING OF ONLY ONE RECORD 
oCcFC F2 19 OD 146 ST SUSTRD IF ALL OFF, READ RECORO AND RETURN ae Gi12 CO a7 0148 165 B sic READ THE RECORD 
COEF 38 10 O1FD 147 SBF LDOFLAG-.@IT3 TURN OFF BIT 3 SG IT wONET CAUSE i 6116 C160 CLL? 166 Dc ALZCQREAD) 
148 * JUST ONE RECORD TO FE READ. O18 OF OO O1CO 6104 167 ALC CEMAINtS€2} eCNE BUMP RECORD # ONE> 
COF3 35 O1 O1FF 14a9 t PARMSeXRI POINT AT HIS CONTROL FIELD €WITH ERI? OL1E 35 31 O1C6 268 CLE CEMAIN+S « MAXREC REC #@ READY TO GO BACK TO i 7? 
COF7 1€ 04 O1CO OC 150 MYC CEMAIN€5S(53<¢0€9XR1} PUT HIS CCHHR INTO DCP CONTROL FIELO 6122 F2 82 18 169 fh CE ING 
COFS CO B87 0064 151 JUSTRD B PGMLOD GO READ. 0125 3¢ O: G1C0 370 MYE CFMAINGS ol FORCE REC # ¥O i AND 
< 0129 CE 06 S1IBF G14 17! ALC CFMAINtG( 23 ,ONE BUKP HEAD # 
R “1 OL2F 3D 14 O1SF i?2 cus CEMAINGS »20 21D HEAD GO Ta 20 ? 
0133 F2 82 OA 173 Jt CFENC TE NOTe JUMP OUT 
C C136 3C 00 018F £74 MVE CFMAING4&eO FORCE HEAD & TO ZERO AND 
O13& CE OO O1BO C104 i775 ALC CFEMAIN¢2€1 }2ONE AUP CYL ENDER 
6140 175 CFINC EaU * 
C e140 3c 60 0188 177 - mv E CFMAINSG RESET *FLAG* IN CASE ALT TRK WAS READ 
i 6144 CO BF 0000 178 READR bom RETURN TO CALLER 
{ 47S 
1&2 179 
« : © 186 # : 
i 181 % sta 
; €% 182 * 
a 0148 34 08 GI71 123 S190 st STORE 3eARR SAVE RETURN 
Se ee 014C 35 01 0271 164 i SIOR+3eXRE POINT AT PARMS Se 
a 0150 GE Of O17% O1D06 185 ALC SIOR+3C2)e THC BUMP PAST PARMS (FOR RETURN} 
as 6156 1C€ 61 0165 OF 186 MVC DOSTO*2C2} elf eXR1L? SET UP SIO 
‘ 0158 c2 03 Caso 187 LA ENPUT oXRE FORCE xRi TO x*se80F 
Cs O15F 31 C4& 0102 188 tro INPUT®@ +LDDDR POINT TO READ FIELD 
! 189 
_ 0163 F3 00 00 190 DOSIO SIO t<%e%—# SIO TO WINCHESTER 
if 0166 Ci C2 0166 19% T1i9 *,TBUSY HANG CN BUSY 
me OL6A CL CO 0172 192 TIO WINERRs TNR CHECK FOR AN ERROR: 
i OL6E CO BF 0006 193 SIOR 8 $e RETURN TO CALLER 
a a 196 ; 
C 194 
; ‘ 195 s## 
' €) 196 *® WINCHESTER ERROR CAND ALTERNATES? HANLDING ROUTINE> 
197 * 
198 Ks 
ange O172 CO BT 0176 199 WINERR 6& EQ 
fer te 0176 31 C& 0102 209 tro IENPUTDeLODIR READ DIAGe 
| OL7A FZ CL 07 201 sto X*O7* eK°Cit SIO OIKG 
i 0170 Ck C2 0170 202 TIO *,.TBUSY 
oe 0181 39 02 0880 203 TBF ENPUT e TRKCND TRACK CONDITION CHECK OR 
0185 39 O01 2881 204 TSF INPUT43 OP INC OPERATION INCOMPLETE ? 
f 0189 F2 96 07 205 JF ALT IF EITHER 1S ONe GO HANDLE ALT TRE 
E 018C FO 3B oO? 206 HTH? HPL “47 eHH HP ERROR HALTe OUE TO TIQ NR/ERR 
O1SF CO 87 OC5SA 207 B LDR GO BACK TO DCP LOADER 
£3 208 * HANDLE ALTERNATE ececce 
i 0193 209 ALT —EQU  * 
0193 OC O1 016A 01713 210 MVC ALTR4+30 245 e¢SIORE3 PICK UP RETURN ADDRESS FROM SIO SUB 
i. 0199 CC 87 0145 211 8 sto READ HA RC COUNT (FOR ADOR OF ALT? 
ae 0190 C101 GISE 212 oc AL2¢QRHA} READS FCCHHR cee 
O19F 31 C6 O1D2 213 tro TNPUT A eLODCR POINT TO ®ENPUTS AS CONTROL FIELO 
{: C1A3 CO 87 0148 214 8 S10 SEEK TO ALTERNATE 
os O1A7 CCOO OLAB 215 oc AL2(QSEEK?) 
{ O1AG 3C O01 0185 216 wvt CFMAINeBI TT FORCE FLAG PORTION OF CONTROL FIELDe 
1 €° O1AD 31 C6 0100 217 L410 CFMAN@eL DOCR POINT TO MAIN CONTROL FIELDe 
o 6181 CO 8? 0148 218 3 S10 SIO TO READ (FROM ALTERNATE TRACK) 
t 
DATE 2OAUGTS PROG 10 oes © me 29AUG75 PROG 10 FFB-0 
EC NO- 827504 PAGE 2 EC NO. 627604 ; PAGE 2a 
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FFBO OCP LOADER FOR 3340 DISK - MOD 12 FFBO OCP LOADER FOR 3340 DISK - MOD 12 


* 
s 
*s 
251 9 INTO °FFE%.s THE ADDRESSES TAKE UP 4 BYTES AND ARE LOADED INTO 
252 * X°IFL*%=-K°1FF* BY THE "BEGIN® ROUTINE OF °FFBS 
253 * 
254 * 
255 + 


3e FINALLYs DURING NORMAL OPERATION. *PARMS*® HOLDS PARAMETERS 
PASSED TO OCP (VIA 8 LOAD? OR IT MAY HOLD *OXXX*® TYPE ENTRIES 
FROM THE CONSOLE Sw TCHES. 


i 
| 
| 
| 
| 
4 
| oO 
ERR LOC CBJECT CODE ADOR STMT SOURCE STATEMENT | ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
6165 ¢3200 O1B6 219 oc AL 2CQREAD) | G 223 8HRSE8EDSABSSEESECEEGEEEEES EEEKEEESEE OEE EKEEE£44EKEKEDEEES EDS O8E89940040902280 
0187 CO 8? C000 220 ALTR 68 2% RETURN AS TF FROM SIO SUBROUTINE | 224 * * 
221 225 @ LOADER 0C*S * 
221 © 226 2 * 
221 227 SSTSCERERTEST HS SESE SAAKKERS OOKEEEEE REESE EE SESE TEEKEEEREDES O944E4440 240808 
228 
Oo 228 
C188 229 CFMAIN EQU * FFCCCCHHHHRRKLOLOLNN 
0188 COCOO300000ICCOS 01¢4 230 oc XL16*00000300000100010000" STARTS AT DCP CYLINDER 
© 01c3 oc00 230 
231 
231 
Q O1CS 232 CFvTOC Equ- = FFCCCCHHHHRRKLOLDLNN POINTS TO FIRST vTOC 
G1CS 0000026000020001 OCICE 233 oc XL 19°00000200000100010000? 
Oox%CD Goce 233 
© 236 
234 ; 
OIcF 0188 O1C00 235 CFMAN® o¢c AL2€CFMAIN? 
re 0202 0860 CiD2 236 INPUT® DC AL2CENPUTS 
. j 0103 060: 0104 237 ONE oc xXL2*00012¢ 
j 0105 o002 0106 238 Two oc KXL2*°9002¢ 
' oO 239 
| FFOD zac GRE XK °F FFF S~x 8 3F Ot en IF ORG FLAGGED (£3). STORAGE OVERLAY. 
oars 241 ORG xX*1FO8 ORG FOR ABSOLUTE DC*S 
© 242 - 
01F9 0000 O1FA 243 oc XL2°0000° RESERVED 
{ C2FB 0000 _O1FC 264 oc KXL2*°0002° RESERVED 
| Ci 02FD 00 O!FD 265 LOFLAG DC XL37008 1 FLAG AS PASSED TO DCP (B LOAD} 
3 | O1FE Oc7e O1FF 246 PARMS OC AL2(BEGIND { (SEE NOTE BELOW) 
247 
{ 248 *PAaRMS* IS USED FOR THE FOLLOWING: 
‘a 249 2» ONE TIME GY ‘FFA® TO SRANCH TO *BEGIN® IN *FFE® 
a | 250 2e HOLOS TWO LINKAGE AODRESSES TO BE PICKED UP BY DCP FOR LINKAGE 
| 
| 
| 


Do oO C¢ 0 @ 
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IGM MAINTENANCE DIAGNOSTIC PROGRAN PART NOo 2462386( ter MAINTENANCE DIAGNOSTIC PROGRAM FART NOe 4246238 
; PAGE “| C PAGE @A 
FFBO DCP LOADER FOR 3340 DISK - MOD 32 {| FBO OCP LOADER FOR 3340 DISK - MOD 12 
ERR LOC OBYFCT CODE ADDR STMT SOURCF SYATEMENT “ ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
a 257 ORG x=*a00° j s 328 ¢ & $S® RECORD OPTIONAL 
a 258 © 325 *« = 
259 ¢ OUMMY SECTION AND ROUTINE PREFACE QO =. REKEESESEKESERESESTESRSESEESESERETEESESSESERSEKEKSSSSSESES TE 
200 
Oa0o FFFB OAOL 261 oc XL2°*FFFBe 10 327 
0n02 80 OA02 262 oc XL1°80° FLAGS. NO SPUT CA6C 328 FIG EQquU 
OA03 01 OA03 263 pc XLI*O1* ROUTINE NOco oe OAGC 354 08 OC3B 329 st FIGR#SeARR FOR RETURN 
0A346 0000 CA0S 264 oc xL2¢0° RESERVED ' - OA7O CO OF OC38B 330 FIG: 6c FIGReX*o7# 00 CONFIG ONLY ONCE 
& AL2 (D> TNOL? ADDRESS OF 1ST ROUTINE i OA7T4 3C B7 OAT} 331 MVE FIGI¢1.X*87* 
Sane soa8 Babe eee Be seater es RE SERVED | G: OA7T8& OC SF 7FOF O80F 332 MVC ADDR2+95(96},ENPUTH9S SAVE CONTENTS OF READ BUFFER 
267 7° 1S OATE OC 01 OCS1 COT3 333 MVC = RTSAVEC2) eRETURNES SAVE *44 ADDRESS OF *RETURN® 
i : ‘ RESENT CONTROL FIELD 
AOA 0 AOA 268 RTNOL DOC XL2 POLS ROUTINE NO { » OAeSs OC O9 OC4&F O1C4 334 «vc CFSAVE*SC LOD CCFMAING9 SAVE THE P 
eee aa B08 26¢ oc XL1°0° FLAGS ° ; OABA OC 09 O1C4 OC4S 335 MVC CEMAIN49(10)eCFEIG+9 SET UP FOR READ FROM CONFIG AREA 
OAOC FFFF CAOD 270 oc XL2°"FFEFE LAST ROUTINE ie 0ago 3¢ 10 O1F0 336 MVE LDOFLAG. X*108 FORCE LOADER TO READ ft REC & RETURN 
271 ‘ OASG CO 87 OCOES 337 B RECARD READ A RECORD 
OadE CO 87 0216 272 8 LINK RETURN TO DCP © = 
273 | 
OAI2 0003 OA13 274 CNEL 0¢ iw2eis | 339 ear 
eee cate ee eee ee 0 ae aes 
OaiS 00 OAIS 276 OEV oc XLL*O? ' 
pate ooco OALT 277 MASK oc xL2°0O° \ CAGE 7D C3 00 342 cCKCPU CLI OCeKREP CECE GRANCH IF NOT C°U DEFINITION CARD 
OA1LB C3CECICODS OA1C 278 CHAIN OC CLS° CHAIN® | Cc OASB F2 Bi OF 343 JE te 
OA1D 0889 OALIE 279 INAORE OC AL 2€ INPUT49) ches =e 7 i an 2 ng sates eae 
286 1 ° 
tg OAAS FO 38 76 3a6 HPL 8-H e HH 
281 ¢ ‘ 
262 « Geese | Cc GAAS CO 87 OBOD 347 8 NEXT 
283 - ee - QAAC 1C 00 0200 0% =. 348 SC MVC SMOD( IDeA { XRD PUT SYSTEM MODEL INTO SRT 
2R4 ¢t Sees | CQ OAB1 70 C6 CA 349 CLE LOC sXRIPLCTFE IS THIS 96 OR 128K 
s GC EKPAND 
OALF 70 5C 00 285 cKcowi CLI OCOoKRIFeCeee BRANCH I& NOT COMMENT CARD * | OABS F2 61 OF 350 SE NOX IF SO N 
OA22 F2 01 15 : 286 JNE CKEND ° * | OABT SC 18 1F LE 351 mvc 3LC25eKRL Pe 3OCeXRID FORCE CPU MeSSSSeP TO cee 
287 * GEFORE GOING TO DO OVERLAYSe HANDLE CONFIGURATION RECORDS | CABB 7C FO C6 ee oe ae aids etemyec so: eos CPU Me0SSSSeP 
286 
~~ fF COMMA i 
CA2S CO B87 OAGC 289 B FIG DG CONF EGURAT ION QABE 7¢ FG 0S 354 MvI SCeXRLPC POP FORCE 0 IN PLACE OC 
290 - | QO CAC? CO 8? 0226 355 a PACK PACK STORAGE SIZE 
OA29 36 C1 0208 291 TSN SBYTEO.SSWO7 OACS 06 CAcS 356 pc ELE °6* 
CA2D CO 10 0064 292 8T PGMLOD GO REAO NEXT CARD { OAC6 OBBA OAC? 357 oc AL2C INPUT410? . 
OA33 CO 87 021A 293 8 PRINT PRINT THE COMMENT RECORD | €2  oace o203 CROP 220 tan oe ut REPOS oo ass ei ces eeious 
OA3S 23 OA3S 294 oc XLES2ZL¢ | ° 
2 Ma OACA 3C 00 0204 360 MVE CPUsd CLEAR GUT CPU OPTIONS 
mee Spey fe ¢ r = fee | Ci CACE 3€ 0. OAED 361 cPU0P MMVI MASC4E oX*O1® BEGIN OPTION MASK AT O1 
297 « - ees - | OAD2 4&6 00 OC OAE? 362 CPULP AZ L2C Le KXRLPOMFL BUMP OPTION FIELD BY %t 
296 *« erneocccecse | OAD? 7O FO CC 363 cur 120 eXREPOK*FD* MASK IS OK WHEN OPTION FIELO=F9 
OA3ZA 7O CS CO 299 CKEND CLE 0fexR19.CtE® JUMP If END CARD 5 OaADA F2 81 08 364 JE MASC : 
OA3D F2 81 OA 300 JE reste ? { © OADD CE 00 OAED OAED 365 ALC MASC41LC2DMASCEL SHIFT MASK BIT LEFT ONEs 
CA80 FO 38 6F 30% HPL HO » HH HALT HO TO SHOW CARD READ WAS IRVALIO | C Sees sate 87 OAD2 pales aes yes oe reas 
0A4a3 FC 6F 03 302 HPL «HI e HO SECONDARY HALT UNKNOWN RECORD READ | 2 
e " OAES 3A 00 6204 368 MASC SBN CPU.t-* SET ON CPU CPTION COR 0? 
ae cack OAGA Boe ISEND a re SEL NERS ree | CAEC 02 OL O08 369 LA 1s XRIFeKRI INCREMENT TO NEXT OPTIONe HANOLE 
CAGA CO BF OCAEC 305 8 FIG GO CONFIGURE IN CASE NO COMMENT CARDS | C: GAEF 70 40 OC 370 CLUE L2CeKRIFET® & MULTIPLE OPTIONS. 
QASE OC O01 0050 IFFF 306 LSENDA VC = xXREF1O02),X* LF FFS | " one F2 = - ae - oe QUIT IF BLANKe 
AF5 CG 8? OACE 
oaea oc a ope ey oon sive SEEPEL GI neieErs | C OAFS C2 62 0880 372 OPDON LA INPUT eXR1I PuT XR2 BACK AS FOUND | 
Le OAFD 70 CT? 04 374 CLI Ce KR1I} eC* GF 
a = Si aerk Sin s ease aes | OBOO F2 BE OA 375 JE NEXT3 YESe GO READ NEXT CARD 
0a66 35 10 1FFB aii L KREF3 TAR GO BEGIN OCP | C. 0803 FO 38 6F 376 HPL HOeHH #NOe CARD SET UP IMPROPERLY 
312 ps OB06 FO SF 7D 377 HPL 46HO SECONDARY HALT. CPU CARO SET UP WRONG 
312 | O0B09 3C CT? 0204 378 MVE CPUsctGe FORCE MODEL G 
313 sexenseser OB0D 379 NEXT3 EOQU s 
314 © FIG ¢ | 0 OBC0 CO BF COES 380 8 RECARD READ A RECORD 
315 « * | 382 
316 @ * oO ace : oe 
317 «e846 KRCKRKSVEKKESEHKEKEKES SSE SERSSSISRES CXESEEECERFESESESE ee é 
, aRD 
319 « THIS ROUTINE READS THE 6 COMFIG SECTORS s '#) Bott 7 = fe — CKUOT ne eer BRANCH IF NOT VOT C 
320 * FROM OISK AND PROCESSES THEM e 
32: @ CY¥it 3 HEAD O REC 1 CPU RECORD s oB17 co BF CCcsS2 387 oe eae BAD UDOT CARD 
322 © 2 UOT RECORD * Cc 0818 FO 38 6F 388 oe Aka 
323 * 3 CHAIN IMAGE “OPTIONAL 3% OB1E FO 38 76 389 HPL 2e 
© FR FFB-0 
DATE 29auUG75 PROG 10 FFB<-0 DATE 29auUGTS 7 oe 10 .. 
€C NOs 6827604 PAGE 6 EC NOe 827804 
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FFBO DCP LOADER FOR 3380 OTSK - MOD 12 


ERR LOC OBJECT CODE 


oB21 


oBss 
oB28 
0828 
ops 
0834 
oB38 
083¢c 
OB30 
C83F 
0Bat 
opas 
ceBas 
c848 
OB4E 
0651 
0254 
oBess 
oBsD 
0B60 
0863 
OB8&7 
o0B6C 
OB6F 
CB?72 
cB7s 
oB78 
os78 
CB7E 
0381 
0884 
CBa7 
OBBA 
o88D 
08s) 
0B95 
OB9o7 
oesc 
OBOF 
OBA5 
OBAA 
OBAD 
oBp3 
ose? 
OB6D 
oaca 
OBC6 
oace 


osco 
0803 
oBp0s 
oBDS 
oBD9o 
OBEO 


oBEe3 


OBE? 
OBEC 
oBEF 
oBFS 
OBF4S 


OATE 
€c NOe 


ADOR STNT 
co 87 OBE3 390 
391 
70 30 03 392 
F2 02 06 395 
OF 2D 025F O25F 394 
D2 01 0S 395 
34 0: CB3E 396 
cO 87 0226 397 
02 oB3c 398 
acco CB3E 399 
OAiS opes 40c 
c2 02 022F ao0i 
E2 02 03 402 
88 10 08 403 
F2 90 OA 406 
FO 38 6F 805 
FO 6F 57 £06 
CoO 8? OBES 407 
8D CO 00 OATS 808 
F2 81 07 409 
BD 60 CO #10 
cO 03 0845 G11 
Bc 00 00 Gals 412 
6B OF O8 413 
BC 00 02 $14 
D2 03 O13 a15 
7D 60 09 816 
F2 01 03 817 
o2 01 01 , $18 
70 49 09 419 
F2 ai 49 4 426 
7p 68 00 $21 
F2 01 OF 422 
02 01 02 a23 
co 687 OB34 424 
7D FO 00 825 
F2 02 05 426 
4E 00 00 OA14 a27 
7B FO 00 428 
OC 01 DALT 0413 429 
4aF 06 OC OA13 430 
F2 82 OA 831 
OF 02 OAS? OAL? 432 
cO 87 OBAS 433 
OC 00 OBC CA16 a3 
OC 00 OBC? 0A17 435 
BA 00 01 436 
BA 00 C2 437 
co 87 OB7B 438 
839 
3A 60 0233 440 
3D Ci 0232 e462 
CO 61 OBE3 aa2 
ce a7 ocsa 4a3 
FO 38 6F £48 
FO 6F SD $45 
&46 
OBES 447 
co av o6e4 aaa 
489 
asc 
851 
452 
aD 04 OF Oa1C 453 
F2 01 3 a54 
CO 8&7 0226 455 
FO OBF3 456 
0978 OBFS 4587 
29AUG TS 
827804 


PART NOe 4248238 
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SOURCE STATEMENT 


su 


PTFOC 
ULPI 


UPTR 


ULP2 


UTA 


LOUoT 


ULP4 


uoTs 


uote 


ULP3 


uDTO 
USET2 
USET2 


CHECKD 


CKCHN 


8 


cur 
JNE 
sic 
La 
st 


oc 
oc 
o¢ 
LA 
LA 
TEN 
JF 
HPL 
HEL 


cic 
JE 
cui 
BNE 
ave 
SBF 
MVE 
LA 
cue 
JNE 
La 
CLE 
JE 
cuz 
JNE 
LA 


ci 
Jn 
ALC 
S6F 
avec 
SLC 
Ji 

ALC 


mvc 
MVC 
SBN 
SBN 


SBN 
cut 
BE 


HPL 
HPL. 


EQu 


cLe 
JSNE 


oc 
oc 


NEXT2 

3€oKRE}OC® @ CHECK THIRD COLUMN FOR BLANK 
PTFOC JUMP EF NOT BLANK 
YTABt4S(463 ,UTAB+45 OUT PREVIOUS UDT ENTRIES 
S(€eXR1)>XRI POINT AT FIRST DEVICE CODE 
UPTReXRI SET UP DEVICE CODE POINTER 
FacK PACK DEVICE CODE 

rites 

AL2(#-8} 

AL2 (OEV) 

UTAB— 3eXRZ POINT AT DCP UNIT TABLE 

3( eXR23eXR2 INCREMENT UNIT TABLE POINTER 
10e¢XR2)-8IT3 BRANCH IF NOT LASY OCP ENTRY 
UDTA 

HO. HH *RAMN OUT ROOM IN UDT TABLE 
H3.HO SECONDARY HAIT~ MCRE THAN 18 DEVe OEFINED 
NEXTS GG REAN NEXT CARD 

O€t+¥R2F DEY BRANCH FO GVERLAY IF THIS IS SAME AS 
LDBUDT PREVICUS ENTRY 

Ol seXR2PexK*0° 1S THIS AN UNUSED ENTRY 

ULP2 iF NGY UNUSED. GO CHECK NEXT 


OCIiceXRII2OEV 
1¢€.XR2)sX* OFe 
2Ee XR2R X70? 
2€eXRIPXRI 
Ole XR1}.T2~—* FOR DASH 
RB 

RESKRED CKRI 
OCoXRESC# 8 
CHECKD 

Oo XR236C% 0% 


SEY UP THIS UDOT ENTRY DEVICE CODE 
CLEAR OPTION BITS 


3F BLANK ENCOUNTERED, CARD IS OONE 


gF COMMA ENCOUNTERED, GO TO NEXT 


vOTB DEVICE CGOE 

2Us XRF eKRI 

LP’ 

OCeXRI PARP FO? CHANGE EBCOIC 0-8 TO BINARY 


uoTc 

0€1.KR1 De NINE 
OCeKXRIVeKSFO! 
MASK 2)-ONEL 
0€12XR1 7). ONEL 


INITIALIZE MASK WITH LAST SIT GN 
SHIFT 6827 TO PROPER POSITION TO 


YOTD 

MASK(2) eMASK 

ULPS 

USETICS (CS 3 eMASK=3 LOAD MASK INTO SET BETS ON 

USET2 4103 2 eMASK INSTRUCTIONS 

3€9XR2),t—4% TURN ON PROPER OPTION BIT 

20 eXR23y%—8 

ULPS GO LOCK AT NEXT OPTION NUMBER 

UTAB4+1.xX*80* SHOW A OISK IS LOADER 

UTABs. x*cis MAKE SURE 3340 

NEXT2 IF NOY 3340. INDICATE BAD UDT 

LOCRBAD GO GET NEXT RECORD 

40. HH HALT HO TO SHOW THAY UOT WAS WRONG 

HS 0 #0 SECONDARY HALT TO SHOW THAT UDT WAS 
WRONG BUT FORCED TG C1.E1 AND MOD E 

* 

RECARD READ A RECORD 


- 747 CHAIN XXX = 


7(SoKRI 26 CHAIN BRANCH IF NOT CHAIN IMAGE CONTROL 


NEXT3 CARD : 

PACK PACK THIS PRINT IMAGE DATA CARO 
wLie2ao* INTO PROPER LOCATION 

AL2C INFUTSe?5S1 3 SOURCE 


PROG ID FFB-0 
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16M MAINTENANCE DIAGNOSTIC PROGRAM 


= 


FFBO 
~ 
C ERR toc 
f  98F6 
a oaFra 
OSFB 
Cc” OoBFE 
oco2 
Q 
o ocos 
eco9 
fr coc 
‘ oci2 
ocis 
Cc OCIE 
oc22 
€  oc2ea 
= ec2et 
CG C348 
cc3s 
© 
oc3c 
£7 oc4a 
O46 
4 OC4ae 
@ ocso 
- ccs2 
7 ocsé 
OCSA 
c* OcseE 
‘ océ2 
oCc6s 
© 
OCBA 
€ oc7o 
© 
o 
© 
& 
© 
© ave 
EC NO. 


oo 9 


OB SECT CODE 


OST? 


7D 
F2 
3¢ 


co 


TO 
F2 
oF 
oc 
oc 
co 


oc 
cc 
oc 
co 


co 


OOOSOSOO0OF OI6007 


FO 
01 
FF 


87 


E2 
or 
os 
oD} 
O% 
87 


o9 
o% 
SF 
eT 


87 


ooce 


ocoocagcocosacc3 


co090 
ocos 


34 
32 
3c 
3a 
3A 
co 


oc 
35 


08 
ci 
€1 
10 
80 
87 


o3 
10 


6a 
O48 
os78s 


OGE4 


oc 
16 
0200 
ooce 
n0cs 
OO0ASs 


o1cs 
0073 
O8DF 


OCbA 


oo06 


oc6é9 
0232 
9235 
0236 
0233 
9000 


OLCr 
1FFO 


29AUG 75 
827804 


c2c0 
IFF? 
I1FF9 


cCc4ae 
ocs3 
7TFOF 


ocse 


ADDR STMT 


OBF7 


ocoe2 


Oocse 
oceas 


OC46 
oC4aFr 


ocs1 


3FFD 
iFFB 


088% 
0200 
0203 
02048 
0208 
6003 
0232 
O22 
0216 
O21A 
G2i1E 
0226 
o010 
0908 
ooo! 
0002 


458 
aso 
460 

461 

462 
463 
464 
465 
466 
467 
868 
469 
a79 
a7} 

672 
473 
a7a 
a75 
a76 
a7? 
478 
a79 
sac 
458i 
&B2 
483 
884 
Ba 
aB5 
£86 
486 
£87 
488 
48S 
290 
491 
492 
a93 
£94 
495 
&96 
497 
acs 
498 
4s9 
500 
501 
s02 
503 
504 
505 
506 
507 
508 
509 
510 
$11 
$12 
513 
$14 
515 
S16 
S17 
518 
19 
$20 
521 
$22 


é 
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OCP LOADER FOR 33840 OfSK = MOO 12 


SOURCE STATEMENT 


oc XL2°*877° OCESTINATION 

cul VIC XKRIF.C*O# TEST FOR 12060 CHARACTER CHAIN 

JNE a47 JUNP TF NOY 120 CHARACTER 

MVE X*876% os X* FFP SET FLAG TG SAY 126 CHARACTER 
NEXT3S EQU * 


e RECARD READ A RECORD 


e aD OP aD OD ale Ss co ED a 


~ *ssee - 


* omen ow moons 
CKSSW CLI ATs XRIBLC*S® 
JNE RESCE 


* 


IF NO SSW RECGRO;: GO GON 


SLC SBYTE Si 6).SAVTES CLEAR SSwOC THRU SSW3F 

MVC KREF SUZ ea KTIFF TS SET UP LINKAGE TO SENSE SWITCH RYN 
av¥C XREFS( 2) eX" 1FFS® 

8 SS¥WRO PROCESS THE SS# CARD 


RESCF MVC CFMAING OE LO) o CF SAVESO RESTORE CONTROL FIELD AS SAVED 
MevC RETURN4 3( 2) eRTSAVE RESTURE #44 FALL THROUGH ADDRESS 
*avE INPUT+9 5(96) 6 ADDR2Z4+95 RESTORE CONTENTS OF REAG SUFFER 
* SO THAY ‘OEFINES WILL EXECUTE 


8 DEF INE GG TCO OCP YO OC OVERLAYING 
FIGR 8 ton RETUR®S TO CALLER 
‘= FF ECCCHRHHHRRKLOLDOL NN? 
CFFIG EQU > 
oc RLLO®OOOOCOSOOOFSISGOSSGGsS CONTROL FIELO FOR CPUSUDY sae 
CFSAVE EQU * x 
oc MEIG*OGGoOocNS cCoeooooGNAIG*s FOR SAaVInG OCS CONTRE FLO 
RTSAVE DC xL2*oooc? FOR SAVING & DCP LENKAGE ADDR 
SSeRECS HED 
» ‘LORBAD 
oe 
LORBAD ST LORRITN#3- ARR SET UP RETURN TO CALLER 
Mv UTABsXk* C19 FORCE 37 YO DISK 
MVE UTAB43eX*E1* FORCE TO 21463 
son MUTAB46.BIT3 SHOW LAST TABLE ENTRY 
SBN UTABtL «BITC SHOW THAY IVS DIRECT ACCESS LOADER 
LORRTN 8 t—% RETURN YO CALLER 
DEFINE MV¥C K21FF °C 4) ,ENTRYS MOVE IN LOKODER ENTRY POINTS FOR OCP 
t KREF2e TAR 
XREF2 €QU x*1FFO* 


XREFS EQU x*iFFee 


SRREREES RAD 

F EQUATES FH FE eRe SR SHSESARERSSENERLHVSSSSASCEHRS KH AAKKKKSEKSEHSSHRAHRTSERAKKASLS 
SERDAR ORAED 

INPUT EQU x*aso® 

smMco EQU x*200¢ SYSTEM MODEL IDENT LOCATION 

SIZE EQU x*203¢# CORE SIZE OF SYSTEM 

ceu Eau K*® 204° CPU OPTIONS 

SSYTEO Eau “‘x*208* COMMON SENSE S#ITCHES 

s3wo7 €QU x*o1¢ ss¥ TO LCAD SECTION AND GO 


UTAB eov x*232¢ FIRST BYTE OF UDT TABLE 

TEST EQU x*222° ENTRY TO CHECK CONSOLE SWITCHES 
LINK Eau X*226° 

PRINT EQU K°22aF ENTRY TO OCP PRINT 

UNPACK EQU x*2ieE° ENTRY TO UNPACK ROUTINE 

PACK EGu x*226° ENTRY TO PACK SUBROUTINE 

TAR Eau xe 3208 INSTRUCTION ADORESS REGISTER 
ARR €ou x*oe* ADDRESS RECALL REGISTER 

XR2 eau i INDEX REGISTER 1 

xR2 au 2 INDEK REGISTER 2 
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PART NOe 4248238 
PAGE Ss q+ PAGE 6A ‘ 
FFB9 OCP LOADER FOR 3340 OISK - MOD 12 a OCP LOADER FOR 3346 DISK - MOO 12 
Ps 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT CROSS-REFERENCE 
e002 S2t TRKCND EQU xt02" MASK FOR TRACK CONDITION CHECK (SYMBOL FT LEN VALUE OEFN REFERENCES 
0001 526 OPINC EQU xK*O1* MASK FOR OPERATION INCOMPLETE 
over 525 40 eau x*"6F* __ ADDR2 < 001 7F8d 0549 0332¢ O&77 
0003 526 Ht eau xeoO 3 f ALT A oot 0193 O20 6205 
0076 S27 He EaU x e7EF ALTR A O0& OI87 9220 02108 
00s? 528 43 cay xes?e : ARR Cc 602 0008 0520 C029 0047" 0144 0159S 0183 0329 0492 
00168 529 44 eau x*2B¢ {| BEGIN & 004% OCT O575 0246 CB? 
0O0SD 53C HS =au x*50° BITS = oo: ccsd 9538 0496 
O07D 531 HE €au x*TUe _ BITt Cc oci 0040 0539 
000? 532 HT eau x°07° { 8IT2 ¢ ocs 0920 0540 6072 0145 
O07F $33 HB EQU <K°7F® B1T3 ¢ 001 0010 0541 0072 0147 0403 ca95 
OOSF 534 49 Eau K°'Ssee e BrT4é € oc: 0008 0542 6245S 
co6sc 535 He EQU x*"6Cc# | { BITs €¢ 008 0004 0543 0133 0145 
0073 $36 HD eau x73 BIT6 € 06% COO2 O844 0035 
0038 6537 HH €ou K*'3B° HALT DISPLAY CODE -H- } BIT? € 00% 000% 0545 004% 0216 
00eo S38 BITO EQU x*s0* ( CFFIG A 001 OC3C 0483 0335 
00860 539 BITi EFOQU K*Ss0* CFINC A O01 6140 0176 0169 0173 ; 
0c20 S40 BIT2 EQU- x*20° _CFMAIN A 001 0186 0229 0034* 0054% 0150% 0164¢ C1IE7# 0168 O270% O71" O172 C1744 O175*% O177% 
0010 S4i BITS EQU K*10" (> O216% 0235 0334 0335 0475* 
oocs Sa2 BITS eQU x*o8* . CFEMANS A 002 O1950 0235 0169 O217 
0004 543 BITS EQU KtOeF _ CFSAVE A 001 OCSE 0485 03346 0478 
o0c2 S44 BITE EQU xK*'C2* (_cFvToc A 001 O01CS 0232 0035 
0001 S45 BETT £Qu x*o1# CHAIN A&A 0OS OAIC 0278 0453 
0006 S46 VID equ 6 OISPLACEPENT IN VTOC FOR PROGRAM TO _ CHECKD & 004 OBCD 0460 0220 
000A S47 HLASY EQU 16 HESD 0-9=VTOCe 10 1S PAST END { CKCHN A 60S OBE? 0453 
OO0E S88 VADOR EQU 14 DISPLACEMENT IN VTOC OF DISK ADDRESS ~ CKCOM A O0C3 0091 0098 0309 
7FBO 54S ADDR2 EQU K*7EBO° FOR BUFFER SAVE OURINT SFIG*s SAME _ CKELMA A 004% 0077 0060 0310 
550 & AS 2ND CARD SUFFER FOR FDO AND FEO ( CKCOML A 003 CALF e285 0086 
0200 551 SBYTES EQU = K*200° ssw 8YTE “ CKCPU A 003 OAIB 0342 . 
* 0031 S52 MAXREC EQU 49 NUMBER ¢1 OF RECORDS USED PER TRACK _ CKE A 0C3 O0D1 0130 e208 
553 ' € CK=ND & 003 OA3A 0299 0286 
554 Se e0kaseeesesseees | cKssw A 003 OC06 0468 
— 555 ¢ _CKSSWX & 003 00A0 0107 009 - states te ee 
556 € WINCHESTER INSTRUCTION EQUATES | ( cxuotT A 003 0811 0385 
557 © | ~ CONTNU A 003 CcO7T4 0079 oo73 
S58 £*O64664664484840R8 | Seu < 00%: 0204 05106 0369% 0368% 0378¢ 
659 ( cPULF A 00S OAD2 0362 0366 : 
cooO 560 QSEEK EQU xK*COO00f SEEK | “ cpuoPp 4 00% OACE 0561 0372 — 
C001 S61 GRECAL EQU x*cooi* RECALIGRATE | _ DEFINE A 006 OCGA 0499 0479 
C102 S62 QGRHA EQU X*C101* READ HAs ROo COUNT EVEN € DEV A O0OL CAtS 0276 0200 0408 0412 
C100 S63 OREAD EQU x*C1008 READ KEY DATA OOSIO A 603 0163 0190 01868 ie 
CiC? S64 GDIAG EQu xK*c107* READ DIAGNOSTIC SENSE (28 SYTES} { ENTRYS A 002 OC8B 0580 0499 
56S { ( ENT2 A001 0018 0027 0580 
00t0 S66 TNR Eau K*coe NOT READY 7 ERROR (UNIT CHECK) FFB A Oct 0000 0005 
ooc2e S67? TeusyY E€QU) = <X*C2* ATTACHMENT BUSY ete & 001 OAGC 0328 0289 0305 
568 € FIGR A008 OC3B 0481 0329% 0330 
ooca S69 LDDDR EQU xecae LIO DISK DRIVE DATA REGISTER FIiGt A 008 CA7O 0330 03316 
eCoc6 S70 LODCR EQU K*Cé* LIO OISK ORIVE CGNTROL REGISTER HC coo: co6éc 0535 
s71 | € HO € 001 0073 0536 0046 
S71 | HH C 001 0038 0537 0048 0206 0301 0385 0346 0376 0388 0389 0405 0444 
572 ¢ j  HLAST € 001 Od0CA 2547 
S73 €@ EXECUTION ENTRY POINT. ( HTH7 & 003 018C 0206 : 
574 * | HO C001 OO6F 0525 030% 0302 0385 0376 0377 0388 0805 0406 0444 0445 
OCTa SC 40 COTF 57S BEGIN «av! K*O7FS,c* ¢ CLEAR PRINT IMAGE AND DATA FIELDS | Ht c 008 6003 0526 a3c2 
OC7B OC FE OSTE O97F S76 MVC =—- K®OTE* (2555 XP OTF* C 42 c CCi OOTE 0527 0346 0389 
ec7e o¢ C3 caTF o8B8d S77? MYC K*OTFS(G9,X*HBG* ‘ H3 Cc oo1 cos? 0528 0806 
oC84 CO BY 0964 576 8 PGMLOD GO BEGIN LOADING ; H4 € oof 0018 0529 
cces OES ocs9 «S79 be AL2(RECARD} ENTRY POINT FOR OCP TO READ A RECORD! (‘HS € 001 OCcSD O530 0445 
OceA 0018 OCcBB SAO ENTRYS OC AL2CENT2) ENTRY POINT FROM OCP TO LOAD PGM ETC, HE c 002 0070 C531 O377 
oc7T4s SBI €ND GEGIN 1 “7 € 001 OCO?r 0532 0205 
; 1 ¢ 48 €¢ 00% OO7F 0533 
/ HS c 00: OOSF 534 
! TAR c 00: 0010 98:19 0311% O500% 
| ¢°19 A0CS CO1A 0026 0033 0039 
i "" {OFND A COR OOSE OC53 0040 
{ QNADRE A002 OAIE 0279 
' (5 INPUT € 001 osso os07 0039 0062 008% 008@ 0187 0203 020% 0236 0279 0332 0357 0373 
0457 08778 
' 
oOaTe 29aUG75 PROG {D FFE2: On. 29aUuG7s proc 10 FFE-0 
EC ND. 627806 PAGE 6 EC ND. 8278048 : PAGE 6A 
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A j 
FFEO OCP LOADER FOR 3340 DISK = MOD 12 an DCP LOADER FOR 3349 DISK = MOD 12 
> &y 
CROSS-REFERENCE . CROSS-REFERENCE 
SYMBOL T LEN VALUE OEFN REFERENCES i SYMBOL Y LEN VALUE DEFN REFERENCES 
j 
INPUTa & 002 0102 0236 0188 6200 0213 hs _e . oes sens oa a“ 
tse A 005 OAAC ©6348 0343 ae 3 
1SEND A COL CASA 0306 0300 ar . a oe ne secee 
SOE OS ee. ee coe * USET1 A 0C3 OBC3 0836 C434% 
Sees ‘ ane Bore ae ce USET2 £003 OCBCS 0437 04352 
Looper € 001 O0C6 C570 O160% O223% Of17% — « UTAB. C001 «0232 «0513 039% C394 0401 04408 964: 98934 04942 5495% o4960 
LDDOR € 001 00C4 0569 0188" 0200% f VADDR € COL OO00E O548 0054 
LDTLAG A COL O1FD 6285 C035 0044 OO72 0133 0145 C1478 0336" vID € 001 0006 0546 0039 
LOR A 00% COSA 0049 0045 0207 WINERR A COS 0172 0199 C192 
LORBAD A 004 cC52 0492 0344 O387 0443 f xFa A 003 CAE? 0367 0362 
LORRTN A 00% OC66 0497 0492% XREFIT &€ 002 6050 6050 C306" 
LOUOT AO0S OB67 O412 0409 c paces Eat bers neGs Sats 
LINK € 001 0216 0515 0272 3 
MASC A C046 OAEB 0366 O3S6ise® O3€4 0365 062652 ates ee eis a. ae Baie 
a29% 232% 04234 435 rs 
eee 2 ss sae Bee he ee were 7 xR: € OCh 000% O52} 0079 0082 0683 0054 0054% 0086 0098 3107 C110 O183 OLLB* 90114 
wove A008 ooBB cone 0082" 00834 t 9123 0128 01245 0130 0149% 6156 023888 C185 OC1B87* 0285 0299 o309% 
NEXT A OCL CBO0D O379 0347 0375 0310 6342 0348 0389 6353 0353 C352 0354 0362 0363 0369 0369% 
NEXT2 A O61 OBE3 0447 0390 0407 0442 Q 0370 0373% 0374 0385 0392 0395 060395% 0396 6415 0415% 9416 o418 
NEXTS A OOL CCO2 o462 casa 043A% 9419 0423 0823 0423% 0425 0427 0828 C430 0453 04859 0468 
NINE A 001 CAL& O275 0427 xR2 € 00t coo2 6522 OSOl*® 90402 O402% 0203 6408 0410 O412 O823 O414 04636 0837 
NOX CAB 0353 0350 5 ; 
AKe : oe aa 0237 C167 OLF72 O875 “ FOTAL STATEMENTS FLAGGED IN THIS &SSEMBLY = G 
ONEL A OC2 OA1Z3 0274 0429 0430 . 
OPDON A004 OAFO 0373 0371 | © 
OPINC € 00% O90: oO524 0204 | : 
PACK c oct c22% osia 0115 O35S 6397 0485 
-PARMS & 002 CIFF 0246 0032 0047 0189 | € 
PGMLOD A CC4&4 006% «C71 C088 0102 O1213 O83 0151 G292 O295 6303 >O578 
PO ea) a hh PRINT C001 G21A 0516 ©1080 0293 1 rr 
PTFDC A003 0831 0395 0393 'O 
QOIAG C€ OO C107 0564 | 
QREAD € COL C100 0563 0166 0219 | ‘ 
GRECAL C 0OL CCO O56r% © 
ORHA C001 C101 0562 0212 | 
QSEEK € 001 COCO 0560 0162 0215 | 
READ AOC! 0100 0158 0038 OO71 | i) 
READR A 004 02344 0178 C159" | 
RECARD A 004 OO0F4 0144 0337 ©6380 0448 06463 OS57T9 
RESCF & 006 OC22 0475 0469 \ © 
RETURN A004 ©0070 o074 O0C29* 0036 6335 0186% 4333 C476" 1 
RTNOL A OO1 OAOA 0268 0265 ; 
RTSAVE A 002 OCS! 0487 0333* 0476 © 
SADDR A002 O0CO 0117 0114s | 
SBYTEO € COl 0208 0511 0291 
SAYTES € 001. 0200 oO£51 0109 0109% 0470 o470% Q 
SCAN &CC4 ©6035 0038 0042 | 
S10 Aoca 0148 6183 0162 6165 0212 0218 90218 | 
STOR A004 C15E 0193 0183* 0184 0185% 0210 ; QO 
SIZE c 0c! ©2003 9509 0358 
SMOD € 001 0200 os5¢8 0348% 
SSLOOP A CC& OCB6 0114 0125 i @ 
SSWRD A O0C6 OCOA6 0165 0473 
SSwo? €COl 008: o512 o291 
TBUSY C COR O0C2 O567 0191 9202 | €&) 
TEST € 001 o212 oOf14 
TNR C 00% COCO 0566 0192 
TRKCND € 001 0002 90523 0203 © 
Two & 002 0106 0238 ©3265 : 
UDTA AOCOS OBSB 0408 0404 
uoTs A003 0893 04825 0422 © 
UDTC A003 oCBSC Cazs 0426 
UDTD A006 O887 0434 0431 
ULP1 A00& 0834 0396 0424 oO 
uLP2 A003 C845 0402 0411 
DATE 29AUG75 PROG 10 FFB=0 OTe 29AUG75 PROG ID FESO 
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per IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO 4248230 
" PAGE 2 | ra PAGE 2a 
FFF2 DIAGNOSTIC CONTROL PROGRAM - MODEL 12 | FFF2 DIAGNOSTIC CONTROL PROGRAM - MODEL 12 
ERR LOC OBJECT CODE ADDR STME SOURCE STATEMENT | CeRR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
0060 S ORG X*60* | OOCE BD 04 67 143 CLE S214109XR2094 CONTINUE UNTIL 4 BYTES COMPRESSED 
te eee eee eaten etheeheneeneESeesHEAESSAEESAETEEEEOREERSEOAESEOSRES ESS | ec: 0001 £0 Ol 62 144 BNE CMLOOP( eXR2) 
ma DIAGNOSTIC LOADER . 00D4 5C 02 00 00 165 LABEL HVC  *-#(3.XR1) 900 5XR1) MOVE 3 COMPRESSED BYTES TO TEMPORARY 
re © cnestatttttteeeeeeeeOhGEetEteGSE SEREEEEEEEE EEE LEEEEES SESE SERS SSCSES 7 oops AE 00 7A 68 146 ALC LABEL¢2U1+ XR2) 9 S1420—XR2) 
wi} Sena eee eaaaseteseeeeseestsheeGeeES4EESCSSRESTERESSIES | €: ooDCc 86 01 2€ 147 A NEG402XR2)2XR1 DECREMENT BY 4 
80 + *| OODF BD 17 7A 148 CLI LABEL#2(¢XR2) 923 
@} ® A ONE CARD BOOTSTRAP READS THIS LOADER INTO CORE AND BRANCHES TO * QOE2 EO 82 5F 149 BL LENGTH(,XR2) CONTINUE UNTIL CARD. DONE 
82 @ IT. THE DIAGNGSTIC LOADER THEN LOADS THE CONTROL PROGRAMe +| @ 150° XRL = X*87F* AT THIS POINT 
a3 ® INCLUDING ITS SECTION REFERENCE TABLE. AFTER DCP IS LOADED, THIS *| OES 70 C5 01 151 CLI 1 eXRLDCTE® IF THIS IS END CARD, GO ON 
84 & MODULE THEN TRANSFORMS ITSELF INTO A SECTION LOADER BY ALTERING A * OOES F2 81 21 152 JE CKREP 
BS @ BRANCH ADDRESS. OBJECT CARDS RECOGNIZED BY BOTH PHASES INCLUDE — *| ©) 153 
86 * *| QOEB 9C 02 A3 1A 154 MVC MOVE43(3XR22926(9XRL) SET UP TO MOVE TEXT DATA TO CORE 
ms st * TEXT *'  QOEF 9C 00 AG 18 155 LPTONE MVC MGVE+4(1,XR2) 2241 9XR1) ; 
: 88 * REPLACE *| ©: 00F3 02 01 1b 156 LA 27UeXR1P oXRL 
: ao © COMMENT *) OOF6 BD 20 A2 157 CLI MOVE*2 (9XR2)9X*20* SEE IF TOO BIG FOR SK | 
$0 * SENSE SWITC *) 158 
91 © - END + @ 159 * ADDRESS OF NEXT INSTRUCTION MUST NOT CHANGE. If IT DOES, THE 
32 * | 160 * REFERENCE TO IT WILL NOT WORK WITH THE 1442 OR OTHER CARO 
se @3 @ THE DCP LOADER PORTION ALSO RECOGNIZES THE FOLLOWING CaRDS-- * 161 * LOADERS. 
c “4 * CPU +|@ 162 | , 
oS + uDT , *) OOF9 F2 07 05 163 ToMu JC TOMUCH, X*07* e5NL TOMUCH® PATCHED IN IF 8K DEFINED ~~ 
% * CHAIN IMAGE CONTROL AND IMAGE CARDS + . OOFC 1C 00 0000 00 164 MOVE MVC #-# (#-#) ¢ #—-# 0 oXRL) INSTRUCTION TO MOVE TEXT DATA 
7 : «| 0101 165 TOMUCH EQU) * -s 
98 * OTHER CARDS ARE IGNORED. | 0101 CO 87 0108 166 8 x*108° SEVEN BYTES _ 
9 Nee teR ee ttaeeSeeeeeeSGeSECE CESSES SEREEEEESEELSESESEEES SSE SESS SESE SS 0105 000000 0107 167 oc XL3*O* a GF FILLER. 
100 | © 168 | 
101 * 168 
i LOZ ** SUBROUTINE TO READ ONE CARD. 169 * If FIRST 5 CARDS OF DCP ARE USED AS A LOADERs ADDR Im END 
103 * ©@ i170 * CARO WILL BE BRANCHED TO FROM HERE} 
005C 10% USING CDREAD—4XR2 | 171 ® LOADER REQUIREMENTS-~ FROM X'60* TO X*10F* AND 
0060 C2 02 O0S5C EOS CDREAD LA = CDREAO-4- XR2 LOAD BASE ADDRESS | 172 * x80" — SDF AS BUFFER. ; 
0064 C2 01 0880 186 La INPUT» XR1 SET \@ 173 * SPACE 
006% 10% AINPUT EQU *-1 i174 # THE NEXT INSTRUCTION BELOW MUST STAY aT x*108° 
0068 B+ 08 24 Los - §T —- COEXT T#34 eo XR2Z1 oARR SET UP RETURN ADDRESS 175 * IN ORDER TO REMAIN COMPATIBLE WITH 1442 LOADER ETC. $$ 
0068 El FO 25 109 TIQ ERR(,XR2),X*FO! GO HALT I€ MFCU NOT READY OR ERROR @ 176 
OO6E B1 F5 OB LE@ DOLIG LIQ  AINPUT(.XR2)9X*FS" LOAD LSR TO START LGADING AT K*880° 0108 CO 87 0068 177 B NEXTR t 
0071 F3 F1 00 Bil SIO NORMsREAD READ A CARD - NORMAL MODE 010C 35 01 0882 178 t INPUT 42 2 XR1 (NOTE -- ADDRESS OF THIS INSTRUCTION | 
0074 El Fl 18 Li2 BUSY TIO B8USY(,XR2)2X*F1° LOGP UNTIL READ DONE @ 0110 00 87 00 179 B OC ,XRE? © . IS THE SAME AS THAT OF CKREP) 
0077 80 F3 03 13 SNS  STATUS(XR2)eX*F3* GO HALT IF FEED GR READ CHECK 180 ps ee 
007A 89 86 03 bis TBE  STATUS(¢XR2) oX* 66° oe i181 * THE ABOVE 3 INSTRUCTIONS ARE OVERLAYED DURING NORMAL DCP LOADING. = 
007D CO 10 0000 £35 CDEXIT bT = *-* EXIT SUBROUTINE IF NO ERRORS '@ 182 * FIRST THE CLEAR CORE ROUTINE OVERLAYS THEM. THEN THE REST OF THE =. 
0061 FO 38 5D R16 ERR HPL H5eHH *MECU NOT READY OR ERROR 183 ® LOADER OVERLAYS THAT ROUTINE. ; : 
y 2084 EO 87 12 Lit 8 OOLIO(, XR2) GO TRY START 1/0 1p4 ® IF THESE FIRST 5 CARDS ARE USED AS A GENERAL LOADER, THESE LAST THO | 
se 128 @ 185 * INSTRUCTIONS CAUSE A BRANCH TC THE END CARD ADDRESS, WHEN EMD CARD © 
0087 0001 0088 29 M2 pc 2s xt.2"0001° 186 * IS READ ; ated 
. 0089 FFFC - 908A 120 MEGS OC XL2*FFFC* 187 i 
E22 | @ 188 , 3 : 
122 189 ** ALL ABOVE INSTRUCTIONS ARE CONTAINED IN IPL FORMAT BOOTSTRAP 8 
0088 CO. 87 0060 123 WEXTR B CDREAD GO READ A CARD 190 #* CASDS AT THE BEGINNING OF THE DCP OBJECT DECK. THE CODE IS CAPABLE: 
oosf 7D £3 00 b2® RED CLI «O00 e XR194C*T* BRANCH IF THIS IS TEXT CARD '@ 191 * GF HANDLING TEXT AND ENO CARDS AND IS USED TO GET THE REMAINDER OF — 
0092 F2 81 06 125 JE  LooP | 192 #* THE CCP LOADER INTO CORE. : ee 
0095 70 C5 00 126 CLI 01 -XR1)2C°E* BRANCH IF NOT END CARD . yf 193. ; 
0098 F2 01 71 127 JNE CREP -@ 193 | » 
0098 7D 00 01 E2@ LOOP CLI = 14eXR1).X*D0* REPLACE ALL HEX *DO* BYTES WITH °2A°' 194 * ; ane 
OO9E F2 01 03 129 INE 46 , 195 * psensenexsteeeeeteestsSeseeneteSsSSeESet F808 TOSSOReSSOeTees er eer eS * 
OOAL 7C 2A 01 120 AVI -10oXR19 9 X*2A° e@ 196 €COM BEGIN GENERATING TEXT CARDS oe 
0044 02 01 02 B32 LA 1(¢XR1)_XR1 Ae 0108 197 ORG = *-11 : 
QOAT B4 01 02 132 ST — LOWORK(»XR29eXR1 198 Tae t 
O0AA BD 06 O01 233 CLI LOWORK(,XR2),X*08° @ 199 * THE FOLLOWING IS A ROUTINE TO CLEAR CORE FROM 8K DOWN TO ITSELF. : 
OOAD EO 82 3F 124 BL LOOP, XR2) 200 * IT IS CONTAINED IN THE FIRST TEXT CARD OF OCP, AND IS EXECUTED © 
0080 C2 01 0807 135 LA INPUT4+87,XR1 201 # AS SOON AS IT IS MOVED TO CORE- ~~ res 
0084 C2 02 005C 136 LA  COREAD-4,XR2 INITIALIZE POINTERS :@ 202 
0088 BC O1 7A 137 MMVI LABEL#2(,XR2) 01 0108 3C 40 1FFF 203 CLRCOR MVI «Xf LFFFSSC® & CLEAR UPPER 256 BYTES OF 
0088 BC 00 67 EBB LENGTH MVI | -S141(,XR2100 INITIALIZE LENGTH Of ADD FIELD 1, O10 OC FE 1FFE LFFF 204 MVC XS LFFES (255) oX* LFFFS FIRST 8K WITH BLANKS — 4 
OOBE AC 00 6B 67 139 CMLOOP MVC «=- S24101,XR2) oS141 1 XR2) . €} 0112 OC FF LEFF LEFF 205 ZRO MVC X* LEFF (256) X*LFFFY CLEAR NEXT 256 BYTE SEGMENT Hots 
00C2 5E 00 01 01 140 51 ALC =. 1 0, XRLP 9 14 XRD) SHIFT OFF HIGH ORDER 2 BITS 0118 OF 01 0115 0131 206 SLC —- ZRO#3 (2) -NUM256 POINT TO NEXT 256 BYTE SEGMENT DOWN - 
O0OC6 SE 00 61 O01 141 S2 ALC «1: 0 #—&gXR1I 910 oXR1) ; O11E 3D O1 0114 207 CLI «=. ZRO#Z-X*01° CONTINUE UNTIL READY FOR 1L00-1FF ae 
OOCA AE 00 67 2C E42 ALC $141(1¢XR2) gN1C¢XRZ) PREPARE TO OPERATE ON NEXT BYTE GE 0122 co 8 0112 208 BH ZRO ae ~~ . = 
; : | ; toe ee 
DATE 29AUGTS OTNOV7S . IGMARTS PROG ID err-2 €oaTE - 29AUG75 OTNOV7TS 19MARTO PROG ID FFF@2) 
€C NO. 827804 | 827805 827aT2 PAGE 2 EC NO. 827804 827805. 827872 PAGE 2a 
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PART NOw 4248230 
PAGE 3 c: PAGE 3A 
FFF2 DIAGNOSTIC CONTROL PROGRAM - MODEL 12 FFF2 DIAGNOSTIC CONTROL PROGRAM - MODEL 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT € "ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
0126 OC CO O1FF 1FFF 209 MVC XX" LEF® (X200—ENDCLR) »X*1FFF® CLEAR REST OF THIS SEGMENT c 018C 7D 6B 01 270 CLI LC XRLNsC ts CHECK FOR MORE ENTRIES 
87 0088 210 B NEXTR RE-ENTER LOADER 9 18F D2 01 03 271 LA  —- 34 9 XRL) XR 
0130 0100 0131 211 NUM256 OC xL2*0100° 0192 CO 81 0178 272 BE  CHKSSO CONTINUE UNTIL CARD DONE 
0132 212 ENDCLR EQU)  * 7. 0196 CO 87 0086 273 6 NEXTR WHEN DONE» GO READ NEXT CARD 
0200 213 ORG x*200° €. 0194 7D C5 00 274 CHKEND CLI 0 ,XR1)»C°E® GO READ NEXT CARD IF NOT END 
0200 214x200 EQqU * 019D £0 01 2F 275 BNE  NEXTR(.XR2) 
215 . 01a0 38 04 O1FD 276 TBN FLAG, BITS 
215 i: €2 Olas DO 90 81 277 BF =: 129 »XR1) BRANCH TO X*901° 
215 O1A7T CO 87 0000 278 LOX B ° *%-# 
0108 216 ORG CLRCOR : O1AA 279 LOX@ EQqU 1 
0108 CO 87 O08B 217 B NEXTR CONTINUE LOADING, GET NEXT RECORD © —01A8 34 08 O1AA 280 LDPT2 ST LOXasARR 
010C C2 01 0880 218 CKREP LA = INPUTsXR1 RELOAD XR1 TO BUFFER BEGINNING O1AF CO 87 0060 281 B CDREAD 
0110 7D D9 00 219 CLI OL »XR1NVCERE BRANCH IF NOT REPLACE CARD .. 0183 39 AC O1FD 282 TBF FLAG, BITO*BIT2*+B1 T4481 TS 
0113 CO 01 OAOF 220 CKCOM1 BNE CKCOMA : é 0187 EO 10 33 283 BT  RED(,XR2) 
321 ** NOTE — BRANCH ADDRESS OF PREVIOUS BRANCH IS ALTERED AFTER DCP O1BA CO 87 O21E 284 B UNPACK 
222 #& LOADING COMPLETE. THIS OVERLAY PREPARES THE LOADER FOR C O1BE 02 O1a€ 285 pc = x1 *2¢ 
223 #* HANDLING SECTIONS. O16F O1FF O1CO 286 DOC AL2(DTABLE+1) 
0117 CO 87 0226 224 B PACK GO PACK ADDRESS 01C1 0050 01C2 287 DC = AL2(LOWORK? 
0116 04 Ollb 225 pc CTCL 4 - Q1€3 1D 02 005D 5A 288 CLC  LDWORK (399900 4XR1) CHECK ID (COL. 89-91) 
O11C 0885 O11D 226 DC —s- AL2(INPUT#5) -€* 018 F2 01 10 289 JNE -HLTHD 
O11E 013A Ol1F 6227 DC = AL2( DEST) 01CB iD 03 O1F4 5F 290 CLC DECOL4) 4950 eXR1? CHECK FOR CARD O 
0120 7D C5 01 228 CLI. 1teXR1D,CE® BRANCH IF NOT PATCH EXECUTE CARD —  OLDO F2 81 13 291 JE OK 
0123 F2 O01 06 229 JNE  AJDEST €: 0103 1D 03 O1F5 5F 292 CLC DEC 1 (494950 XR1) CHECK FOR CARD 1 
0126 BS O1 DE 230 L DEST »XR2) 9 XR1 BRANCH TG CARD ADDRESS IF IT IS 01D8 F2 81 08 293 JE OK 
0129 DO 87 00 231 & OC »XR1) _ 0108 35 08 OFF 294 HLTHD tL DTABLE+12ARR 
012C D2 01 08 232 AJDEST LA  —-_ 81 eXR1)yXR1 POINT AT FIRST BYTE 1 €3 oie FO 38 73 295 HPL «HDs HH 
O12F B4 O1 OC 233 NEXT ST SRCEC,XR2)eXR1 SET UP SOURCE ADDRESS | O1E2 CO 87 O1AF 296 B LOPT2+4 
0132 CO 87 0226 234 B PACK GO PACK THIS BYTE 6 O1E6 38 20 O1FOD 297.0K rex FLAGS BIT2 
0136 02 0136 235 pc —s«sTLAL‘2¢ ' €>  o1€a CO 10 O1A7 298 B LDX 
0137 0000 0138 236 SRCE OC AL2t+-¢) O1EE EO 87 33 299 B RED(»XR2) 
0139 0000 013A 237 DEST DC  AL2(e-*) O1F1 FOFOFOFO O1F4 300 DECO OC  OL4'0! DECO MUST START AT X*1Fi* 
0138 AE O1 DE 2C 238 ALC DESTC2XR2)eN109XR2) INCREMENT DESTINATION ADDRESS ‘'@ 01s fF O1FS 301 DESL oC oLI‘I* 
013F 70 40 01 239 CKBLK CLI 1CeXR1),C* * GO READ NEXT CARD IF BLANK FOUND FFFO 302 ORG X*RERE'-X*LFC'#* «IF THIS ORG FLAGGED, ORG OVERLAYED 
a 0142 £0 81 2F 240 BE = NEXTR(,XR2) O1FC 303 ORG X-1FC® 
0145 D2 01 01 241 LA —s- 1G pXR1P9XR1 INCREMENT TO NEXT COLUMN © o1rc 0060 O1FD 304 0C = AL2{COREAD) MUST BE AT X®1FC* 
0148 70 68 00 242 CLI OU aXRID C8! JUMP OVER ANY COMMAS O1FE 01A8 Q1FF 305 OC AL2CLOPT2) MUST BE AT X*1FE* 
0148 EO 81 £3 243 BE  - CKBLK(, XR2) 
014E D2 01 02 244 LA 10) XRLD2XRI POINT AT 2NO DIGIT € 
0151 €0 87 D3 245 B NEXT()XR2) GO PACK THIS BYTE 
246 
246 @ 
246 
246 
% 246 & 
246 
sy O47 #* THE FOLLOWING CODING COMPLETES THE SECTION LOADER. IT IS 
‘ 248 *# BYPASSED DURING DCP LOADING. ONCE THE CONTROL PROGRAM IS LOADEDs @ 
349 &* LINKAGES ARE SET UP SQ THAT THIS ROUTINE WILL BE SUBSTI- 
se 250 #* TUTED FOR THE OCP LOADER ROUTINE RESIDING AT HEX ~A00-. e 
_ 251 
0154 7D 5C 00 252 CKCOM CLI 0(,XR1),C*#* BRANCH IF THIS IS NOT A COMMENT 
0157 F2 01 OF 253 JNE  CHKSSW CARD 
O15A 38 01 0208 254 TBN SBYTEO,SSWOT7 BYPASS PRINTING IF SSWO7 IS ON & 
015E £0 10 2F 255 BT  NEXTR(,xR2) 
0161 CO 87 O21A 256 8 PRINT PRINT CONTENTS OF THIS CARD 
0165 21 0165 257 pc XL *21° @ 
0166 EO 87 2F 258 8 NEXTR(, XR2) GO READ NEXT CARD 
259 
0169 4D 02 02 0502 260 CHKSSW CLC =. 23 e XR)» SSW BRANCH IF MOT SENSE SWITCH CARD @ 
O16E CO O01 O19A 261 BNE CHKEND 
0172 OF 03 020D 0200 262 SLC SBYTES(4) »SBYTES CLEAR SECTION SENSE SWITCHES 
0178 02 01 05 263 ISSSW LA = 5 eXRLPXR1 POINT XR1 AT FIRST SSW NUM @ 
0178 34 01 0185 266 CHKSSO ST = SADDR»XR1 SET UP POINTER TO THIS NUMBER 
O17F CO 87 0226 265 b Pack GO PACK THIS NUMBER 
0183 02 0183 266 pc CTL S28 @ 
0184 0000 0185 267 SADOR DC AL2(%-*) 
0186 0412 0187 268 DC Os AL 2 (DATSWS) 
0188 CO 87 0413 269 8 SETSSW & 
DATE  29AUGTS O7NOV7S  19MART6 PROG ID FEF-2| €2pate § 29AUG7S = OTNOV7S5 = 19MART6 PROG ID 
EC NC. 827804 827805 827872 PAGE 3 EC NO. 827804 627805 827872 PAGE 
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4248230 PART NOw 4248230 
’ PAGE 4 e PAGE aA 
FFF2 DIAGNOSTIC CONTROL PROGRAM — MODEL 12 FFF2 DIAGNOSTIC CONTROL PROGRAM - MODEL 12 
ERR LOC QGBJECT CODE ADDR STMT SGURCE STATEMENT € “ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
0A00 307 ORG xX*a0o* . OAB1 F2 01 OA 374 JNE  PTFOC COLUMN 4 IS NOT BLANK 
308 * THESE INSTRUCTIONS AND CONSTANTS ARE USED ONLY BY THE DCP LOADER. * £ ° OAB4 3C 00 025F 375 MVI _—-UTAB445,X"08 IF BLANK — CLEAR UOT TABLE FOR ALL 
309 * THE UNIQUE SECTIONS OF THE SECTION LOADER ARE LOADED INTO THE * OAB8 OC 2C O25E O25F 376 MVC ——- UTAB#4.4(45) ,UTAB445 NEW ENTRIES 
310 * LOADER AREA, X*000" — X*1FFE. * OABE 02 01 05 377 PTFOC LA 5(_XR1),XR1 POINT AT FIRST DEVICE CODE 
311 6 OAC1 34 01 OACB 378 ULP1 ST UP TR» XR1 SET UP DEVICE CODE POINTER 
311 OACS CO 87 0226 379 8 PACK PACK DEVICE CODE 
OA0O FOF4F8 OAO2 312 0048 ~ LC DL3'048! e OAC9 02 OAC9 380 oc ILi*2¢ 
OA03 FIF2FO OAO0S 313 120 DC OL3"*120° € ‘ OACA 0000 OACB 381 UPTR DC AL2(*-*) 
OAO6 18 OAQ6 314 N24 oc IL1*24¢ . OACC OAAT OACD 382 oc AL2( DEV) 
OAOT C3C8C) C905 OAOB 315 CHAIN OC CLS"CHAIN! 2. OACE C2 02 022F 383 LA UT AB—39XR2 POINT AT DCP UNIT TABLE . 
OAOC 0001 OAQD 316 OQNEA OC XL2*0001! {.)  OAD2 E2 02 03 384 ULPZ LA 3tqXR2)_XR2 INCREMENT UNIT TABLE POINTER 
OAOE 00 OAQE 317 CHCTR OC XL1¢08 : OADS 88 10 OL 385 TBN =- 1 (9 XR20B1T3 BRANCH IF NOT LAST DCP ENTRY 
318 a OADS8 F2 90 OA 386 JF UDTA 
OAOF 7D SC 00 319 CKCOMA CLI O(sXR1)eC*** BRANCH IF NOT COMMENT CARD & OADB FO 38 6F 387 HPL HOsHH #RAN OUT ROOM IN UDT TABLE 
OA12 F2 01 28 320 JNE  CKCPU OADE FO SF 57 388 HPL H3,HO SECONDARY HALT-~ MORE THEN 15 UDT ERTRIES 
OAL5 3D 00 0232 321 CLI UTAB,O IF NOT UDT CARD GO TO FIXMOD OAE1 CO 87 0088 389 B NEXTR GO READ NEXT CARD 
COALS CO B81 OA2A 322 BE UOK WHICH WILL HALT APPROPRIATELY ne OAE5 8D 00 00 OAA7 390 UDTA CLC 0€1,XR2),0EV bRANCH TO OVERLAY IF THIS %S SAME AS 
OQA10 30 FO 6232 323 CLI UTAB,X*FOt IF NOT MECU THEN CE GGOFED ia OAEA F2 81 07 392 JE LOUOT PREVIOUS ENTRY 
OA21 F2 81 06 324 JE uoK _ OAED BD 00 00 392 CLI Ol eXRZD 4 X*0" 1S THIS AN UNUSED ENTRY 
OA24 FO 38 6F 325 HPL HO, HH HO INVALID RECORD ENCOUNTERED €>  oaFo CO 01 OAD2 393 BNE ULF2 IF NOT UNUSED, GO CHECK NEXT 
OA27 FO 6F 5D 326 HPL HS eHO SECONDARY HALT-- INVALID UDT LOADER DEV. OAF& 8C 00 00 SAAT 394 LDUDT MVC O€19XR2),DEV SET UP THIS UDT ENTRY DEVICE CODE 
OA2A CO 87 13C0 327 UOK B FIXMOB -,  OAF9 BB OF C1 395 SBF —s_- Lp XR2) 9 X*OF* CLEAR OPTION BITS 
OAZE 38 01 0208 328 TBN  SBYTEO, SSKO7 SKIP PRINTING IF SSWO7 IS ON -€3 — oaFe BC 00 02 396 MVI —- ly XRZV_X*O8 
OA32 EO 16 2F 329 BT NEXTR(,XR2) OAFF D2 01 O1 397 LA L(eXRLIeXRL POINT AT FIRST OPTION NUMBER, ALLOW 
0A35 CO 87 O2Z1A 330 B PRINT PRINT CONTENTS OF THIS CARD ~ 06892 70 66 00 398 CLI OL pXRLD-CP-* FOR DASH 
9439 21 0A39 «3321 oc XLL‘21° _€2  opos F2 01 03 399 JNE 846 
OA3A EO 87 2F 332 ) NEXTR(,XR2} GO READ NEXT CARD 0B08 F2 91 01 400 ULP4 -L& 1(6XRE)»XR1 PGINT AT NEXT OPTION NUMBER 
333 i. QBOB 70 40 00 401. CLE OfeXRLI,Ct * IF SLANK ENCQUNTEREDe CARD IS OGNE 
OA30 70 C3 05 334 CKCPU CLI OeXR1},C°C® BRANCH IF NOT CPU DEFINITION CARD : Cc OBOE CO 81 C088 402 BE NEXTR 
OA40 F2 C1 65 335 JNE = CKUDT 0812 7D 6b 00 403 CLI Ol yXRLIeC*e® IF COMMA ENCOUNTERED, GO TG NEXT 
OA43 1C 00 0200 04 336 SALLY MVC SMOD(1)+4¢,XRL) PUT SYSTEM MODEL INTO SRT OBIS F2 01 O7 404 JNE  UDTB DEVICE CODE 
OA&8 7D C6 OA 337 CLE 10¢,XR1},C°F! IS THIS 96 OR 128K /€3  oBre 02 01 02 405 LA 2leXR1LDeXR1I 
OA4B F2 81 07 338 JE NOX IF SO KO EXPAND 0B1B CO 87 OAC] 406 B ULF 
Ses eee OASE 5C 18 1F 1E 339 MVC —-3310259XR19300,XRi) FORCE CPU MeSSSSeP TO ea | om  CB1F 7D FO 00 G07 UDTB CLE = OL eXRLDYX* FOS CHANGE EBCDIC 0-6 TO BENARY Pe a are 
OAS2 TC FO 06 340 MVI 6» XR1}-C*O! eos CPU H;0SSSS_P | €3 ~ op22 F2 62 05 408 JNL = - UDTC 
0AS5 341 NOX equ) * | 0b25 4E CO 00 OAA6 409 ALC «= OL 1 eo XRLDYRD 
OAS5 IC FO 05 342 MVI - 5p XRID SCOP FORCE O IN PLACE GF COMMA | -. 082A 7B FO 00 410 UDTC SBF O€4XR1),X*FO* 
OA58 CO 87 0226 343 B PACK PACK STORAGE SIZE | €S 0820 0c 02 1203 OACD 411 MVC MASK(2),0NEA . 
OASC 06 OASC 344 oc IL1°6# 0833 4F 00 00 OA0D 412 ULP3 SLC Of 1isXR1),ONEA SHIFT BIT TO PROPER POSITION TO 
OA5D 086A OASE 345 DC AL2 CINPUT+10? | gx, 0838 F2 82 OA 413 Jt up TD 
OASF 0203 CA60 346 DC AL2(SIZE} | €} 0838 OE 01 1203 1203 414 ALC MASK(2),HASK 
347 * CPU MODEL AND STORAGE IS DONE, NOW DO OPTIONS | 0541 CO 87 0833 415 8 ULP3 
OA6L 3C 00 0204 348 MV = CPU.0 CLEAR OUT CPU OPTICNS i 0845 OC OO 0852 1202 416 UDTD MVC USET141(1) eMASK-1 LOAD MASK INTO SEY BITS ON 
OAGS 3C OL OATF 349 CPUOP MVi MASC+1,X*01° BEGIN OPTION MASK AT 01 €: OB4B OC 00 0855 1203 | 417 MVC  USET241(1) »MASK INSTRUCTIONS 
OA69 46 00 OC OAS 350 CPULP AZ 1Z2CieXRLPSXFL BUMP OPTION FIELD BY 1 i O0B51 BA OO Ol 418 USETL SBN L(eXR2) 5 2% TURN ON PROPER OPTION BIT 
OASE 7D F9 OC 351 CLI «124 eXR1) XP FOF MASK IS OK WHEN OPTION FIELD=F9 | zx 0854 BA 00 02 419 USET2 SBN 20,XR2),8—* 
OA71 F2 81 OA 352 JE MASC | &#  CB57 CO 87 0608 420 8 ULPS GO LOOK AT NEXT OPTION NUMBER 
OA7T% OE 00 OATF OATF 353 ALC MASC#I01LDSMASCH+i SHIFT MASK BIT LEFT ONE. 421 
OATA CO 87 OAKS 354 8 CPULP Pres 0858 4D 02 G2 OBFT 422 CKDCPS CLC 232 XR1L),SSWO BRANCH If NOT SSH CARD 
GATE 3A CO 0204 355 MASC SBN  CPU.*-* SET ON CPU OPTION (OR 0} | €3 6660 F2 01 OC 423 JNE  CKCHN 
0a82 02 G1 01 356 LA L(eXR1) 9 XR1 INCREMENT TO NEXT OPTION, HANDLE 0B64 3C 00 0205 424 MVE SBYTEQ, X*0* CLEAR COMMON SENSE SWITCHES 
0A85 7D 40 OC 357 CLI L2teXRLI2CE * KULTIPLE GPTIONS. 0867 3C 00 0209 425 MVI SBYTE1,X*O* 
OABB F2 B1 04 358 JE OPDGN QUIT TF BLANK. €3 0868 Co 87 0178 426 B 1SSSW SO SET PROPER SENSE SWITCHES 
OA8B CO 87 0A6S 359 8 cpuoP | 427 
OA8F C2 01 0889 360 OPDON LA INPUT, XRI PUT XR1 BACK 4&5 FOUND { OB6F 428 CKCHN EQU * 
0A93 F2 BT OL 361 J 44 | €*= oBer 4D 04 07 OADB 429 CLO 765eXR1L)yCHAIN CHECK If *// CHAIN® CARD 
OA96 FI OA96 «362 XFi DC XLI¢FLS OB74 F2 G1 30 430 JNE  CKEND BRANCH IF NOT 
OA9T 70 C7 04 363 CLI @(pXRLDEC SE ' .  QB77 3C 17 OBDD 431 ISCHN MVI IMGADR,23 ENITIALIZE IMAGE FILLO POINTER 
OAQA EO 81 2F 364 BE NEX¥R(.XR2} YES: GO READ NEXT CARD | €) - OBTB 3C 02 OACE 432 MVI  CHCTR+2 SET UP FOR 48 POSITION LINE ~ 2 CDS 
OA9D FO 38 SF 365 CDERRO HPL HO,HH *NO, CARD SET UP IMPROPERLY OBT7F 3C 00 0878 433 MVI  LPIMAG+120,X°O! SET FLAG FOR 46 CHAR CHAIN 
OAAO FO 6F 70 366 HPL 6sHO SECONDARY HALT -— INVALID CPU CARD .  ©B&3 4D 02 08 OAcS 434 CLC =: 11.039 XRD D120 BRANCH IF NOT 120 POSITIGN PRINTER 
OQAA3 EO 87 2F 367 B NEXTK {9 ¥R2) GO READ NEXT CARD AFTER HALT RESET | € B88 F2 61 li 435 JE 1$120 
368 OB88 4D 02 08 CAC2 436 CLC =: 11039 XR1) 0048 HAS EITHER 120 GR 048 IN IT 
OAA6 09 CAA6 369 N9 oc XL1¢095 0890 F2 81 il 437 JE NOCHG OTHERWISE HALT 
OAAT 00 OAAT 370 DEV oc XLi°O? |G 0893 FO 38 6F 438 HPL HO,sHH BAD CHAIN CARD 
OAA8 70 E& 00 371 CKUDT CLI O€»xXRi?.CtUS BRANCH IF NOT UDT CARD 0696 FO 6F 07 439 HPL  H7eHO SECONDARY HALT —- CHAIN MUST BE 120 OR 048 
OAAB F2 01 AD 372 JNE CKOCPS : 0899 EO 87 2F 440 b NEXTR(»XR2) 
OAAE 7D 40 03 373 CLE 3¢exR21),C° * USE THIS CARD AS A CONTINUATION IF , & OB9C 3C 05 OAOE 441 1$120 MVI CHCTR»S5S CHANGE TC 5S CARD COUNTER . 
6 \ ; . 
DATE 29AUGTS O7NOV7S 19MARTO PROG ID rer-2. Goate 29AUGTS O7NOV75 . 19MART6 -PROG 10 FERS. 
EC NO. 627804 827805 827872 PAGE 4: EC NO- 827804 627805 827872 PAGE “A, 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM . | PART NO. 4248230. 1BM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. © 4748230 
PAGE 5 rc PAGE SA- 
FEF2 DIAGNOSTIC CONTROL PROGRAM ~ MODEL 12 ~ FEED DIAGNOSTIC CONTROL PROGRAM - MODEL 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT Co err LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
OBAO 3C FF 0878 . 442 MVI  - LPIMAG+120,X‘FF® SET FLAG FOR 120 CHAR CHAIN 0200 486 ORG xX*2008 
OBAS F2 87 46 443 NOCHG J ROCD ENTER LOOP TO LOAD CHAIN CARDS. ' é 487 ea naene ee cteeeegeeseAtEsehseeeaReERSSEeESSSESTRESSSOSES SLOSS SESS SIO SS 
444 438 * SECTION REFERENCE TABLE 
OBAT 7D C5 00 445 CKEND CLI Of eXR1LI,CTE® IF END CARD CONTINUE | 489 *  ceennaaeereeeeeaseerdeeesseHEtSSSSSSeeSSSGSESESSSSSSESSSS SESS SSS SS OCS 
OBAA CO 81 0868 446 BE ISENL 490 * * 
OBAE FO 38 6F 447 HPL HO.HH UNDEFINED CARD ENCOUNTERED IN OCP | 491 * THE DATA IN THIS TABLE PROVIDES THE DIAGNOSTIC SECTION/CONTROL * 
OBB1 FO 6F 03 448 HPL H1,HO SECONDARY HALT -- INVALID GR BLANK CARD: 492 * PROGRAM INTERFACE. IT IS LOADED BY THESE METHODS— + 
0BB4 CO 87 008B 449 b NEXTR TO GET NEXT RECORD | © 493 * i 7 
OBB8 450 ISEND €QU) * ea 494 * CONTROL PROGRAM EXECUT 
0BBS 3D AO 0232 451 HGO CLI UTAB,X*A0’ 1F THIS IS DEFINED AS DISK, HALT HO | 495 * CONTROL PROGRAM ASSEMBLY * 
OBBC F2 01 OA 452 JNE CORK | @ 496 * UDT CARDS * 
OBBF FO 38 6F 453 HPL HO,HH HO HALT FOR INVALID RECORD 497 * * 
O8C2 FO 6F 5D 454 HPL H5sHO SECONDARY HALT FOR UDT LOADER WRONG AT END CARD | 498 * cccaeaseeneaeeeceenteesseenasseeeseeeesessseeeeeessaes ees FOS ee ee sees 
OBC5 CO 87 0868 455 B HGO @ 499 
OBC9 456 LOROK EQU * 500 * 
457 501 *® SRT DATA 
OBC9 C2 01 0154 458 LA —- CKCOM, XR1 CONNECT REST OF LOADER ,& 502 * 
OBCD 34 01 0116 459 St CKCOM143 »XR1 ‘ 0200 00 0200 503 SMOD OC XLi*O? SYSTEM MODEL 
0601 CO 87 OESC 460 8 BEGIN GO BEGIN DCP i 2 0201 00 0201 504 pc XL1°O* USED FOR STORAGE BEYCND 64K 
461 | €: 0202 0000 0203 505 SIZE OC XL2°O® - CORE SIZE IN HEX 
OBDS CO 87 0226 462 OKCTR B PACK PACK THIS en od DATA CARD 0204 00 0204 506 CPU oc XL1*0° CPU OPTIONAL FEATURES 
OBD9 30 0809 463 oc IL1*48° INTO PROPER LOCATION | 0205 00 0205 507 DC xL1*0° 
OBDA O8AF OBDB 464 oc AL2U INPUT#47) ¢ 0206 0000 0207 508 PGCKa OC XL2*O° ADDRESS OF RELOCATED PROGRAM 
| 
OBDC 6800 OBDD 465 IMGADR OC XL2°800° 509 * CKECK ROUTINE. 
OBDE OF 00 OBDD OADE6 466 ALC IMGADR(1)..N24 ADJUST POINTER FOR NEXT CARD | 0208 510 LBASE EOQU * 
OBES OF 00 OADE 039F 467 SLC CHCTR(1),ONE DECREMENT CARD COUNTER | Ge 0208 00 0208 511 SBYTEO OC XL1°O° COMMON (OCP) SENSE SNITCHES 
OBEA EO 04 2F 468 BNH WNEXTR(,XR2) GO READ NEXT CARD IF IMAGE COMPLETE 0209 00 0209 512 SBYTEL OC XL1*O* 
OBED CO 87 0060 469 RDCD 6 CDREAD GO READ NEXT IMAGE CARD AND RETURN | 020A 00 O20A 513.SBYTE2 OC XL1°O*- SECTION SENSE SWITCHES 
OBF1 CO 87 OBDS “70 8 OKCTR a GO BACK ANO PROCESS THE CARD | ee) 0208 00 0208 514 SbYTE3 OC XL1°O* 
OBFS5 E2E2E6 OBF7 471 SSwO OC CL3*Ssw* 020C 00 020C 515 SBYTE® DC XL1*O* 
OBFB 0889 OBF9 472 INADR1 OC AL2CINPUT+9) aoe 020D 00 020D 516 SBYTES OC xL1*O° 
2 | €3 020€ 00000000 0211 517 RPFX OC XL4*0° CURRENT ROUTINE PREFIX 
73 518 
473 | 519 * 
473 i@ 520 #* ASSEMBLED TRANSFER TABLE 
474 S8EREEEESBEE | 521 * 
me 475 * EQUATES sneeneensaneaeeseeeeeeesteneseSseee eases een ese sees eee eee E SSS © 0212 35 10 0537 §22 TEST : L TRIsIAR LINKAGE TO READ CONSOLE sw ITCHES 
ee 416 €E8SSS SEES 0216 35 10 0789 523 LINK L TR2eTAR © LINKAGE TO CHAIN ROUTINE/ SECTION 
0880 477 INPUT EQU X*880" O21A 35 10 O2CC 524 PRINT L TR3,TAR LINKAGE TO PRINT MESSAGE 
: OOSF 478 STATUS EQU CDREAD-1 O2Z1E 35 10 0680 525 UNPACK L TR&SEAR LINKAGE TO UNPACK DATA 
av 005D 479 LDWORK EQU CDREAD-3 | €} 0222 35 10 0788 526 HALT L TR5Se TAR LINKAGE TO HALT ~ 
0249 480 UDT1 EQU X*249° LAST BYTE OF STH UOT ENTRY | 0226 35 10 0231 527 PACK L TROe TAR LINKAGE TO PACK DATA 
- 0261 481 UDT2 EQU X*261° LAST BYTE OF 16TH UDT ENTRY 022A 35 10 O55C $28 LOAD L TR72TAR LINKAGE TO LOAD A NEW SECTION 
ae 0040 482 1PL EQU  X*40* MECU CONTROL CODE — IPL MODE | @ = ozze 0585 022F 529 LMSG@ OC AL2{LMSG) i 
0000 «83 NORM EQU = X*0* MFCU CONTROL CODE — NORMAL NODE | 0230 O3BA 0231 530 1TR6 OC AL2(RPACK)” s 
- OOFL 484 READ EQU = XK*F1* MFECU READ Q CODE | ® . 531 * - 
% 532 #* UNIT DEFINITION TABLE. é 
533 * : 
ae 0232 534 UTAB EQU * : 
Kau | €® 0232 0000000000000000 0267 535 oc XL 54'00* 18 X 3 = 54 USABLE UDT ENTRIES i 
| 023A 0000000000000000 535 : 
- . 0242 0000000000000000 535 ‘ 
A. . : €: 024A 0000000000000000 535 L 
0252 0000000000000000 535 r 
/ 925A 0000000000000000 535 : 
| €} 0262 eoooc0000000 535 L 
| 0268 0010 0269 536 oc XL2*0010" SIGNALS LAST ENTRY (NOT USABLE ITSELF) i 
e | | 
& 
DATE 29auG75 OTNOV75 = 19HART6 . PROG 1D FFF-2! Goate 29AUG75 OTNOV75 19MART6 ; PROG ID FFF=2 . 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOw 4248230 
PAGE ‘ PAGE oA 
FFF2 DIAGNOSTIC CONTROL PROGRAM - MODEL 12 FFF2 DIAGNOSTIC CONTROL PROGRAM — MODEL 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | CeeRR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
538 8esee04 eeeeeeee . O2CF O5A7 0200 606 oc AL2(TMSG) 
§39 * LOAD ERREKEEAKERESEKEEEEESSEEERESEREREEESE ESE SESHEERERER EET ERELES LOAD *#. ts 0201 FFOO 0202 607 oc XL2*FEOO?® 
540 *eee0"44¢ HEKEEEEE 02D3 3C O7 7ECF 608 MVI ERSSW41,X*07!* SET UP TO ERASE ON CRT 
541 * * =,  02D7 B8 01 00 609 TBN SBYTEO(,XR2) eSSWO7 BYPASS HALT IF SSWOT? ON 
542 * SUBROUTINE TO LOAD PROGRAMS OR DATA RECORDS FROM THE LOADING « €3 020A F2 10 06 610 JT . RLOZ 
543 * DEVICE. ENTRY TO THIS SUBROUTINE IS MADE AS FOLLOWS-~ * 020D FO 38 7C 611 HLTF HPL HE,HH HALT TO INDICATE SECTION COMPLETED 
544 & * ... 02E0 EO 87 OA 612 8 TEST (»XR2) GO CHECK DATA SWITCHES 
545 * B LOAD WHERE LOAD IS EQUATED TO X*22A* * {2 0O2E3 B8 40 01 613 RLD2 TBN SBYTE1(,XR2)eSSWO9 IF SSWO9 IS ON» 
- 546 * *0C XLL*FLAGS? a * O2E6 F2 10 04 614 JT LEl THEN DON'T CLR SECT. SWITCHES 
Te fh PES Be 547 * *#DC XL2*OXXX* XXX — PROGRAM ID (OR DISK ADDR) *' .. O2E9 AF 03 05 05 615 SLC SBYTES(4yXR2) pSBYTES(,XR2) CLEAR SECTION SSW 
548 & « © O2EA 616 THREE EQU *-3 
549 * FLAG BIT ON * O2ED 78 80 00 617 LEl TBN O(eXR1),B1TO FLAG BIT O ON 
550 * NONE — NORMAL TERMINATION * .. O2FO F2 10 41 618 JT LE2 IF ON 
551 * 0 ~ HE HALT,LGAD XXX, HA HALT AND GIVE XXX *; €: 02F3 C2 02 0208 ~ 619 XREF1 LA LBASE» XR2 
552 * CONTROL *! O2F7 EO 87 OA 620 B TEST (»XR2) FOR -HD- HALT 
553 * 1 - ABNORMAL TERMINATION *| O2FA C2 01 O1FD 621 LX1l LA DTABLE-1 ¢XR1 INSTRUCTION MAY BE ALTERED 
554 * IF BIT 3 --- 2 — READ FIRST RECORD OF XXX INTO x*880* AND *; €> O2FD 622 PTR eQUu = #1 . 
555 ¢ IS ON WITH RETURN CONTROL se O2FE 78 01 00 623 TON  O€eXR1)-BITT FOR CARD SYS (5 LEZ ) cece 
556 * 294,0R 55 e© 2% - 3 - READ NEXT SEQUENTIAL RECORD INTO x*880" * _. 0301 624 LX2 EQU * ee THIL REFERS TC PREVIOUS INSTRUCTION 
557 * THEN PARM AND RETURN CONTROL *. €} 0301 F2 90 0D 625 JF CHKF4 . 
$58 * IS DISK --- % ~ LOAD Xxx AND GIVE XXX CONTROL. * 0304 6E 00 02 77 626 ALC 201 9XR1)eLONE( 2 XR2) ; 
559 * ADOR NOT --- 5 — LOAD XXX AND RETURN CONTROL *: 0308 78 OF 02 627 TBN =. 20 XR1LD 9 X*OF® | 
560 * PGM ID. 6 - SEEK TO VTOC AND RETURN CONTROL * €: 0308 F2 90 16 628 JF MOVID 
561 * *NOTE FLAG BYTE, NOT MORE THAN ONE BIT CAN BE SET ON *. 030E 7B OF 02 629 SBE 24 —XR1)eX*OF® 
562 © A CALL TO THE LOAD ROUTINE IN OCP * 0311 BD FL F5 630 CHKF4 CLI PTROUsXR2)2F4 . 
543 © **NOTE PROGRAM ID IS ONLY INCLUDED IF BIT Os2e4 OR 5 * €3 0314 F2 01 09 631 ' JME STEP . ‘ 
564 * - 1S ON * 0317 FO 3B 6C 632 HLTCL HPL HC eHH ; ‘ 
565 * * ., 031A EO 87 OA 633. B . -—« TEST(,XR2) co 
566 FEREESEEEEESESEERESEEEEEEESESESRESESEEERSSESERESES EE ESSE SSEEESS ES SE EEES ©: 0310 8C FD FS 634 MVI PTR(eXR2) FO ; 
0208 567 USING LBASE»XR2 0320 AF 00 F5 E2 635 STEP SLC PTR(1LeXR2), THREE(»XR2) 
QOFD 568 FO equ xX*FDS i 0324 Bs 01 FS 636 MOVID L PTR(,XRZ),XR1 
GOFA 569 Fl EQU = X"FAS > 0327 6D 01 02 CO 637 - CLC «=. 227] a XRLD gp PTZERD 23 ( 9 XR2) 
OOFL 570 F4 EQU = X"F LE 032B CO 81 0317 638 BE HLTC1 oe 
ae cea Uae 026A 34 02 02A4 571 RLOAD ST LODEM+7, XR2 SAVE XR2 _" O032F 1C 02 O1FF 02 639 MVC «=—- DTABLE€ 103) 220 XR1) Pere vee ase 
O26€ C2 02 0208 572 LA LBASE,XR2 € 0334 co 87 0000 640 LE2 B +—* : 
0272 8¢ 08 AO 573 ST RLDAt3(,XR2) 2ARR SET UP RETURN ADDRESS 0337 641 ENTRY2 EQU #-1 
0275 B& O01 98 574 ST LODEM+3(4XR2)_XR1 SAVE XxRl 0338 CO 87 029D 642 8 LODEM : 
0278 EO 87 OA 575 8 TEST (,XR2) €¢ ‘ 
0278 65 01 AO 576 L RLDA+3(4XR2) -XR1 POINT AT FLAGS 
O27E 8E 01 AO 039F S77 ALC RLDAt302_XR2),0NE ADJUST RETURN 3 ; 
O27F 578 LONE EQU *-4 @ 
0283 1C 02 O1FF 02 579 MVC ODTABLE#1 (32920 —XR1) MOVE FLAG AND OXXX PARAMETER t. 
0286 79 24 00 580 TBF Ol, XR1L),BIT24+B1T5 IF 2 OR 5 ONy THEN BUMP RTN ADR! : 
0288 F2 10 05 58) JT NOBMP ee TO MISS PARAMETERS i@ : 
O28E 8E 01 AO 0342 582 ALC = RLDA#3(2-XR2) THO ADJUST RETURN @ | 
0293 78 10 00 583 NOBMP TBN. 0(¢XR1),BIT3 TEST "READ ONE RECORD® BIT 
0296 F2 90 10 584 Se OLOL |®@ 
0299 CO 87 0000 585 8 ae GO TO LOADER TO READ A RECORD 
o29C 586 ENTRY] EQU #1 
0290 C2 01 0000 587 LODEM LA $—#_XR1 RESTORE REGISTERS (THIS CODE MUST | @ 
0241 C2 02 0000 588 LA *-*,XR2 FOLLOW BRANCH TO LOADER: ENTRY1) | 
02A5 CO 87 0000 589 RLOA 8B *-6 | 2 
0209 590 tD1 equ * . A @ : 
029 79 2E 00 : 591 TBF Of eXR1L) eBITZ+BITS+BITS*+BIT6 FLAG BIT 2e4s5~ OR 6 ON? ts 
O2AC F2 90 85 592 JF LE2 IF ANY ON, GO ENTER LOADER © e : 
593 : 
O2AF BA 80 C5 594 SBN = RLFLGS(-XR2),BITO SET ERROR BIT IF ABNORMAL Ete i 
0282 78 40 60 595 TON = Dy XRD BIT TERMINATION : 
0285 f2 10 11 596 JT PIMSG @ ; 
0288 BB 80 CS 597 SSF - RLFLGS (eXR2),B1T0 OTHERWISE, TURN IT OFF ; } 
0288 88 40 900 598 TPS = SBYTEO4 ¢ XR2} e SSWOL LOOP ON ROUTINE IF SSW 01 IS ON : 
O2BE CO 10 O53F $99 6t LNKLA '@ , 
02C2 B88 80 00 600 TBN  SBYTEO( sXR2) eSSWOO LOOP ON SECTION IF SSWOO SET 
02C5 CO 10 C000 | 601 PTZERD BT 0 
02C9 CO 87 0508 602 PTMSG 8 RPRINT PRINT SECTION TERMINATE MSG @ : 
O2CC 603. 1TR3 EQU #-1 7 
O2CD C7 O2CD 604 RLFLGS OC XLL®CTS : 4 
O2CE 12 02CE 605 co OLR E1G® © 4 
DATE 29AUGT5 C7NOV75 L19MARTO | PPOG 1D ere-2' Esoate 29AUGTS O7NOV75S LOMART6 _ PROG ID ire 
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4246230: IBM MAINTENANCE DIAGNOSTIC PROGRAM . PART NO. 4248279 
PAGE ae C PAGE 
{| &- ; 
FFF2 DIAGNOSTIC CONTROL PROGRAM - MODEL 12 EFF2 DIAGNOSTIC CONTROL PROGRAM - MODEL 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | € ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
0000 644 MZZ EqU 00 667 FebeSERESE Saeseseese 
0001 645 MZN EQU 01 ; i & 668 * UNPACK CEESRRAEEEERECHERSEEEES FEEERESRERESSERESEES SEE SSEE SSS UNPACK * 
C002 646 MNZ EQU 02 : 669 *#theESERE S*AVASEVSVE 
0003 647 MNN EQU 03 | 670 * * 
033C 00 033C 648 CTR pc XL1*O° € 671 * SUBROUTINE TO CONVERT PACKED HEXADECIMAL DATA TO PRINTABLE * 
033D FFFF 033E 649 NEG1 OC XL2*F FFF! i 672 *  EBCDIC. TWO PRINT CHARACTERS, O-F» RESULT FROM EACH SOURCE BYTE. * 
033F 00 033F 650 pC XL1*00° SPARE BYTE NOT USED,MUST BE 673 * LINKAGE TO THIS SUBROUTINE IS AS FOLLOWS-~ * 
0340 0002 «9341651 TWO OO 1L2°2° LOCATED HERE TO GENERATE & 674 * cca auahate 4s CANEU AO AUGIE® ts 
652 * THE CONSTANT FIVE 675 * ‘6 UNPACK UNPA 
0342 34 08 0368 653 CMPK ST CMPKX@s ARR | = 676 * DC XLI'LENGTH OF HEX FIELD IN BYTES® * 
0346 CO 87 03A6 654 B SAVREG SAVE REGISTERS 2 677 * DC AL2({FROM ADDRESS -RIGHTMOST BYTE-) & 
034A 35 02 0408 655 L ARRSAVs XR2Z PICK UP RETURN @ 678 * oC AL2(T0 ADDRESS -RIGHTMOST BYTE-) * 
034E C2 01 033C 656 LA CTReXR1 LOAD BASE @ 679 * ; * 
033C 657 USING CTRsXRI ‘ € ; 680 * CL RdeeKeaseROeehheOEESEEREERESEEESSSEREESCOSEESSR ETERS ER ESSE ESS OSS SSS ; 
0352 5E 01 CC BD 658 ALC  ARRSAV(2sXR1) eFIVE(,XR1) = AJUST RETURN 9 0369 34 98 0408 681 RUNPK ST ARRSAV, ARR 
0356 6C 00 00 00 659 MVC —- CTR£14XR1),001 2 XR2) MOVE LENGTH BYTE S 036D CO 87 0342 682 B CMPK 
035A 6C 01 4C 04 660 MVC - DEST1(29XR1) 940 5XR2) MOVE TO @ €» 0371 TC 03 39 683 UNPK1 MVI MVX1(,XR1)>MNN DO NUMERIC 
035E 6C O01 AS 04 661 MVC - DE ST2129XR1) 940 eXR2) MOVE TO @ 0374 68 00 4A 00 684 UNPK2 MVX  TEMP1(0,XR1)s00sXR2) 
0362 65 02 62 662 i 2 eXR2)gXR2 PICK UP FROM @ 0375 685 MVX1 EQU  *-3 
0365 CO 87 0000. 663 8 *-* | €* 0378 Ta FO 4A 686 SBN  - TEMP149XR1) X*FO! - $ET FOR 0-9 
0368 664 CMPKXa EQU *%1 0378 7D FA «A 687 CLI TEMP1(,XR1) 2X*FAS CHECK FOR A-F 
0368 665 TEMP EQU 1 / 0 O3TE F2 82 04 688 Jt UNPK3 
€2 0381 SF 00 4A 53 689 SLC - TEMPL(19XR1) »X39U,XR1L) SUBSTRACT X*39° IF A-F 
i 0385 3C 00 0000 690 UNPK3 MVI = 2,0 
| 7386 691 TEMP] EQU  *-3 
le 0388 692 DEST! EQU *-1 
| 0389 SE O01 4C 02 693 ALC DESTI(2eXR1) eNEGI1,XR1) DECREMENT TO ADDRESS 
038D YD 02 39 694 . CLI = MVX109XR1),MNZ CHECK FOR ZONE DONE 
- | o38F 695 x39 EQU #1 
0390 F2 83 06 696 JE UNPK4 
i 0393 7C 02 39 697 MVI—- MVX1(0 9 XR1)SMNZ 00 ZONE 
€3 0396 DO 87 38 698 8 UNPK2(¢XR1} 
0399 7% 02 02 699 UNPKS A NEG1(¢XR1) eXR2 DECREMENT FROM 2 4 
—_———— 039C SE 00 00 Ol 700 ALC CTR(L,Y¥R1) eNEGI-1 (5 XR1) DECREMENT LENGTH & CHECK FOR 0 
- G 039F 701 ONE €QU *-1 } 
03A0 DO 01 35 702 BNZ UNPK1(,XR1) ; NO 
sh 0343 DO 87 Cl 703. B LOREG(,XR1) YES 
Nee ¢} 704 * 
03A6 34 08 0389 705 SAVREG ST SR143 ARR SAVE RETURN 2 - ; 
a ; : O3AA 34 01 0400 706 ST LDREG+3, XR1 SAVE XR1 : 
Ne | E} o3AE 34 02 0404 707 ST $R2#3-XR2 XR2 * 
| 0382 CO 8T 0444 708 8 RTEST CHECK DATA SWITCHES : 
ae 0386 CO 87 0000 709 SR1 8 s-¢ : 
Nef! | e i 
* + : 
C | e 
C le : 
wet i 
z 1@ : 
. aa | . 
o. | $ 
X., '\@ “e 
DATE 29aUGT5 O7NOV7S LOMART PROG ID Fer-2' Goate 29AUG75 OTNOVTS 1LOMAR 76 “pROG 100 FFF<2 
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PART NO. 
PAGE 
DIAGNOSTIC CONTROL PROGRAM - MODEL 12 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
711 *eeeee0¢ e40eeees | 
T12 © PACK 4060008008008 8e8S HEE EEEEEEEEESERSESEESESERESESESEESES PACK | 
713 *eeeee00 #4000402 
714 2 * 
115 * SUBROUTINE TO CONVERT EBCDIC DIGITS o-F To PACKED HEXADECIMAL * 
716 * DATA. LINKAGE TO THIS SUBROUTINE Is As FOLLOWS—— * 
W717 * * 
718 * b PACK * 
719 ¢# oc XLL*LENGTH® : . * 
- 720 * oc AL2( FROM ADDRESS -RIGHTMOST BYTE—-) * 
T21 * oc AL2(TO ADDRESS -RIGHTMOST BYTE—) * 
122 CEEHEREEEEESESERSEESESSSEEESTERNSEEES SE EEESEESESESESEESESESESESSE SEE TS 
34 08 0408 723 RPACK ST ARRSAV, ARR 
co 87 0342 724 8 CMPK 2 : . 
78 01 00 725 TBN CTRCXR1L)X*01* CHECK FOR OOD LENGTH 
F2 90 05 7126 JF PKL OKAY IF EVEN LENGTH ; 
4F. 00 00 O39F — 727 sec CTR(,XR1) ONE SUBTRACT 1 IF ODD LENGTH 
7c 03 a3 728 PKi MVI MY¥X2(,XR1).MNN DO NUMERIC 
6C 00 2C 00 729 PK2 MVC TEMP( eXR1),OC1 eXR2) PACK. BYTE INTO HIGH HALF BYTE 
7D FO 2c 730 CLI TEMP (,¢XR1)-X*FO* CHECK FOR 0-9 
F2 02 04 731 JNL PK3 JUMP IF 0-9 
5E 00 2C E5 732 ALC TEMP(1,XR1L) NINE ,XR1? AJUST FOR A-F 
18 00 cooo 2C : 733 PK3 MVX #—-*(0), TEMP(, XR1) MOVE HALF BYTE TO a. 
O30F 734 MVX2 ~~ «EQU B—-4 
O3E1 735 DEST2 EQU B-2 | 
% O02 02 : 736 A NEG1(.XR1) -XR2 DECREMENT FROM @ 
7D O1 A3 737 cul MVX2(02XR1L)—eMZN CHECK FOR ZONE OONE 
F2 81 06 738 . SE PRS JUMP IF OGNE : 
7C 01 A3 739 MVI MVX2(0-XR1) eMZN 00 ZONE 
DO 87 94 740 b PK2( XR) 
SE O01 AS 02 T41 PKS ALC DEST2 (2 eXR1) »NEGL(,XR1) DECRGMENT TO @ 
SF 00 00 05 742 SLC CTR(1,XR1) ,TWO( XR) CHECK FOR END i 
03F9 743 FIVE EGU *-1 ; | 
oo 01 91 144 BNZ PK1(¢(,.XR1) IF NOT DO NEXT BYTE ; 
C2 01 0000 745 LOREG LA #—*,XKR1 RESTORE XRi 
c2 02 9000 T46 SR2 LA to#, XR2 : / j 
co 87 6600 T4T7 8. +-% RETURN TO SECTION : | 
: 04208 748 ARRSAV EQU 1 : ' 
| 
| 
| 
29AUGT75 © OTNOVTS ‘19MARTO PROG ID FFF-2 
627804 ; 827805  . 627872 °. PAGE 8 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248279 
| C PAGE BA 
| FFF2 DIAGNOSTIC CONTROL PROGRAM - MODEL 12 
} , 
| €2ERR LOC OBJECT CODE ADDR STMT SOURCE: STATEMENT 
750 **eeee244% SISCRERSSE 
751 * TEST SERESHEEEEEEESESESERESEE SESS SEESSS ESS ERERES SES SSS SEES SSE TEST & 
752 Seeesete SSSEEeSS 
| 753 * : *. 
| 354 * SUBROUTINE USED TO READ CONSOLE SWITCHES AND TEST FOR VALIDITY = * 
755 ¢ ‘POSITIONS. ONCE ONE OF THE FOLLOWING VALIOITY CONDITIONS IS * 
| 756 # ENCOUNTERED, ENTRIES ARE ACCEPTED UNTIL THE VALIDITY SWITCH IS) * 
| 757 * CHANGED. « 
| 758 * * 
759 * FOXX - TURN OFF SSW XX. .  # 
| 760 * FIXX — TURN ON SSW XX . * 
|. 761 * F2XX - GO TO ROUTINE XX. : * 
162 * EEXX - TERMINATE SECTION. * 
| © 763 * DXXO EXECUTE ALL PROGRAMS FOR DEVICE xx -DISK-- * 
| 164 * DXXX - EXECUTE SECTION Xxx. : 
6 x 
| © . Le EREERESEEESESESSERERSEEESEREREEEEEESSERERESSSEEESESSESESESST ESE SE SES EES 
| 0409 767 T8ASE EQU * : 
0409 80 0409 768 SETO OC  xL1*80¢ : 
|€. 040A 402010080402 040F 769 DC - XL6 "402010080402" . «ALL TOGETHER - ; 
| 0410 01 0410 770 pc 2Os«k. 01° : 
0411 0000 0412 771 DATSWS DC XL2*08 y READIN AREA FOR DATA SWITCHES 
|g 409 772 USING SETOsXR1 
0414 773 TONE EQU #41 ~~ 
j 0412 774 XREF5S, EQU DATSWS 
|B 0413 775 XREFS EQU 
| 0413 34 01 043F 776 SETSSW ST - VXR13,XR1 
4. 0417 C2 01 0409 777 . LA  — SETO»XR1 
| €& 0418 74 08 3A 778 ST SETSXa(eXR1) eARR 
O41E 58 73 1F 09 779 MNN  CHKSS143(,XR1) /DATSWS( »XR1) FORM CORRECT BIT PATTERN 
0421 780 NINE EQU *-1 
€ 0622 78 Fe 1F 781 SBF CHKSS243(¢XRL) eX*F8* TO SET A BIT ON IN 
0425 5C 00 2D 00 782 CHKSS] MVC CIKSS24101,XR1) »9— #0 gXRD) SBYTEO THRU SBYTES 
0429 SE 01 09 09 783 ALC  DATSWS(yXR1L), DATSWS ( 9XR1) —_————— 
€ 0420 58 02 2E 09 784 MNZ CHKSS242(,XRL) sDATSWS (oXR1) : te 
«431 C2 01 0208 785 LA —- SBYTE0. XR1 
0435 786 MODIFY EQU. * ~~ : 
€ 0435 7A 00 00 78? CHKSS2 SBN %-#(,XR1),#-* : 
0438 38 01 0435 788 SBE  MODIFY,X*O1* : 
043C C2 01 0000 789 VXRL LA *=%,XR1 - i 
€G 0440 co 87 0000 | 790 8 +s oe 
0443 791 SETSx@ EQU f1 : oo = 
: 0001 792 prop xXR1 oe a et . be 
@ 0411 793 USING DATSWS~1 eXR2 | pte, ES 
0444 34 02 046C 794 RYEST ST TEXET14#3eXR2__ SAVE INDEX REGS AND SET UP BASE ‘ 
0448 C2 02 0411 795 LA _- DATSWS—1XR2 Le F 
G osc 84 01 57 196 ST  —- TEX 1T 43 ¢ pXR2) eXR1 ; . 
044F 84 08 SF 197 ST TESTE43( eXR2) eARR LOAD RETURN BRANCH a 
0452 CO 87 7800 798 B TRYFDD SEE IF FDD LOADED a 
€} 0456 F2 87 OC 799 TSTOVL J TEXIT (SNS DATSWSUyXR2I00 D READ swiTcn : 
0459 BD ED 00 800 CLI DATSWS~1(¢XR2Z) oX*ED" 
 045C F2 846 13 801 JH TESTI 
€&  045F Bs 00 00 802 TBN DATSWS<-1(,XR22eX*DO® tt 
0462 F2 10 OD 803 Jt ~—sOTESSTL FOR CARD SYS ( JT 0? 
0464 80% TSTDSK EQU *-1 te 
€ 0465 c2 01 0000 805 TEXIT LA  *-*,XR1 RESTORE INDEX REGS AND EXIT ae 
0469 C2 02 0000 806 TEXIT] LA €—*_XR2 SUBROUT INE me tre 
046D CO 87 0000 _ g07 TESTE B *-* 
@ 0471 40 0471 808: DC = XL1*40" ABNORMAL TERMINATION | 
0472 809 TEST] EQU *. a eae tebe 
810 a 8 . 
@ 0472 8c 3c 78 O11 HLTA OMVI THLT#20xR2)sHF = HALT TO NOTE VALIO SW ENTRY 
0475 F2 87 OF 812 - § ° THLT 
813 
€ 0478 8D 3E 78 814 TEST2 CLI  THLT#2¢_.XR2) sHP FORCE ALTERNATING HALT CODES OF 
0478 F2 81 06 815  ° JE TEST3 | -HP- AND -HU- (HP FIRST) 
047E 8C 3E 78 816 HLTB MMVI  THLT 42 (oXR2 0 9 HP 
© 0481 F2 87 03 817 So THLT 
{ate | 29aUG7S = OTNOV75 —s- EOMARTO ‘PROG 10° FFF-2°— 
EC NOs 827804 827805. 827872- PAGE: . BA 
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PART NO. 42482 30 
PAGE 9 c , PAGE 9A 
FFF2 DIAGNOSTIC CONTROL PRGGRAM - MODEL 12 oS FFF2 DIAGNOSTIC CONTROL PROGRAM - MODEL 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT : € -ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
T *— 8B] teeeeeee SESCSSRSE 
0484 BC 6B 78 eer 819 rests avi THLT#2¢ 9XR2) HU & BB2 F LINK £8SHSEESREEERERSERESEREEEASSSERABRESAARERSSS SS SRSSSR SAA TRSSS LINK % 
0487 FO 3B 00 820 THLT HPL *-*, HH HALT -HP—- OR -HU- FOR SWITCH ENTRY i 883 *exSeuse een 
821 ‘ 884 * 
048A BO 00 O1 822 SNS DATSWS(,XR2) 2X" 08 READ DATA SWITCHES t & 885 * SUBROUTINE TO PROVIDE ROUTINE TO ROUTINE AND SECTION TO SECTION = 
048F 823 TSTCRD EQU *+2 886 * LINKAGE. THE CONTROL PROGRAM USES THE ROUTINE PREFIX AS AN * 
048D 88 DO 00 824 TBN DATSWS—1(,XR2)5X"DO*® FOR CARD SYS ( J TEST? ) 887 * INTERFACE BETWEEN DIAGNOSTIC SECTION AND CONTROL PROGRAM. * 
0490 89 20 00 825 TBF DATSHS—1(04XR2Z) »X*20* & 888 * * 
0493 F2 90 23 826 JE TEST? B89 PRESSE SMERAEERSRAEKASSERSETEAKSARSESKALSRSAKHEAL TAK AS IHHERKK GHKVREKH SS KSKKTR 
827 ye. 890 
828 * 0 FOUND IN LEFTMOST SWITCH SO ZERO TABLE i? 0530 34 01 0591 8691 RLINK ST LNK543_,XR1 SAVE XR1 
0496 C2 O1 O1FA 829 LA FLAG—3,XR1 POINT AT TABLE : 892 
049A 3C FD O2FD 830 MVI PTR»FO : 0534 CO 87 0444 893 LMKi 8 RTEST GO CHECK DATA SWITCHES 
O49E SF 0B O02 02 831 SLC 02412sXRi) e020 XRD) € , 0537 894 ITR} EQU *— 
O4A2 84 01 97 832 ST DADDR( ¢XR2) eXR1 0538 38 40 0208 895 TBN SBYTEOsSSWO1] PROVIDE LOOP ON ROUTINE IF SSWOl ON 
0445 C2 01 0000 833 TEST5& LA #-%,XR1 LOAD DISK LOAD TABLE POINTER - C53C F2 90 OB 896 JF LNK2 
O04A8 834 DADDR EQU *-j \ O53F 3D 01 OAO3 897 LNKIA CLI RNUR,XTOL* IF FERST RIN BEING RUN, °9 TO 
04A9 6C 02 02 O: 835 TESTG MYC 203,XR1),DATSWS(.XR2} MOVE DATA TO DISK LOAD TABLE 0543 CO 81 0000 298 BE 0 PPOGRAM RESTART 
O04AD 79 OF 02 836 THF 2¢,XR1},X*OFS CHECK FOR BDXXO € 0547 F2 87 44 83s J LRKS 
04B0 F2 10 03 837 JT TEST6A i a 900 
0483 78 G1 00 838 SBF Ol eXR1)—X*O1' TURN BITT OFF O54A 3D .FF 0210 901 LNK2 cil RPFX-1,X"FFS 1S THIS LAST ROUTINE 
0486 839 TEST6A EQU * C54E F2 01 OD 902 JNE LNK3 NO, GO ON TO CHECK FURTHER 
O4B6 EO 87 67 840 B TEST2¢0,XR2) SG ALLOW NEXT ENTRY a) 903 
C4B9 BD EE 00 841 TEST? CLI DATSWS-1(,XR2),X"EE! 055i 38 80 0208 904 TBN SBYTEO, SSWOO TEST FOR LOOP ON SECTION 
O4BC F2 01 08 842 JNE TEST7A 0555 CC 16 0000 905 BT 0 YES, GO RESTART PROGRAM 
O4BF 8C 01 5F O55C 843 MVC TESTE43 (22XR2Z23,1TRT = 0559 CC 87 O26A 906 B RLOAD NO, GG LOAD NEXT SECTION 
04C4& EO B87 67 844 B TEST2(, XR2) GO ALLOW NEXT ENTRY O055C 907 ITR7 EQuU s-} 
O4CT 845 TEST7TA EQU * : 0550 00 0550 908 . oc XL1708 
04C7 BD Fl 00 846 CLI DATSWS—1(eXR2) 9X FL® i @ 909 
O04CA F2 81 09 B47 JE TEST8 : O55E 35 21 O211 910 LNK3 L RPFXeXR1 SET UP TO GO TG NEXT ROUTINE 
04CB BD Fo 00 848 ctl DATSWS—1(5XR2),X*FO* 7 0562 CE 00 O0A03 039F 911 ALC RNUM(1),0NE INCREMENT ROUTINE NUMBER AND 
0400 F2 01 15 849 JNE TEST11 €: C568 10 GO OAG2 O00 912 — Cie RNUM(1).0(,XR1} CHECK AGAINST RTN PREFIX 
0403 BA 01 24 850 SBN MODIFY (.XR2)-X*O1* CHANGE TO SET SITS OFF 1 0560 F2 81 07 913 JE LYKS 
LAOS ie aD sl es 04D6 BD 30 01 851 TESTS CLI DATSWS(,XR2),X* 308 MAKE SURE SSW NUM IS 00-2F Adee 0570 FO 3B 57 914 HLTE HPL H3_HH *RTN NUM IN RTN PREFIX OUT OF ORDER 
0409 F2 B2 06 852 JL TESTS @ 0573 CO 87 0534 915 8 LMK1 GO CHECK FOR OATA SWITCH VEKIFICA- 
O40C FO 3B 76 853 HLTO HPL H2 » HH FERRGR-SSW # HIGHER THAN X-2F- | 916 * TION 
854 OR *INVALIO RTN SELECT OPTION ; 917 
O4DF EO 87 67 855 B TEST2(,XR2) GO ALLOW NEXT ENTRY ' CG o577 1C 03 O211 O03 918 LNK4 MVC RPFX(4),30,XR1) SET UP CURRENT ROUTINE PREFIX 
O4E2 856 TESTO EQU * O57C 38 20 0208 919 TBN SBYTE OG, SSWO02 CHECK FOR BYPASS MANUAL INTERV RTNS 
O&E2 EO 87 O02 857 8 SE TSSW{.XR2) Ae gn 0580 78 80 01 920 TEN 1(,XR1L},B1TO CHK RTN PREFIX MANUAL INTERV FLAG 
O4E5 €0 87 67 858 8 TEST2(.XR2) GO ALLOW NEXT ENTRY &> 0583 CO 10 054A 921 BT LNK2 SKIP ROUTINE IF BOTH CONDITIONS TRUE 
O04E8 BD F2 00 859 TESTI CLI DATSWS—10eXR202X*F2? \ 922 
O4EB EO 01 54 860 BNE TEXIT(, XR2) 0587 D2 01 04 923 LA &(4XR1) _ XR1 
O4EE 35 01 OAOT7 861 L FRITN?XR1 START CHECKING WITH FIRST ROUTINE 4 058A 34 01 0595 924 ST LNK643,XR1 LOAD ROUTINE STARTING ADDR 
O4F2 1C 00 OAO3S 00 862 MYC RNUM(1),0(2XR1) LOAD CURRENT RTN NUM WITH FIRST ONE | O58E C2 01 0000 925 LNKS LA *~—¥ »XRL RESTORE INDEX REGS 
O4F7 10 GO GAO3 00 863 TEST12 CLC RNUM(1) 500 eXRL) IS THIS RTN PREFIX CORRECT | 0592 CO 87 0000 926 LNK6 B e-*% EXIT SUBROUTINE 
O4FC F2 81 06 864 JE TEST14 YES — BRANCH @ 927 
O4FF FO 38 57 865 TEST13 HPL 3 sHH *RTN NUMBER OUT OF SEQUENCE | 
0502 £90 87 67 866 8 TEST2¢9XR2) GO ALLO:: ENTRY AGAIN | 
0505 9D 00 01 OO 867 TEST14 CLC DATSWS(1,XR2).0(,X21) BRANCH IF THIS IS SELECTED eS 
0509 F2 81 12 868 JE TEST16 ROUT INE 
O50C 7D FF 02 869 CLI 20 eXRL} X* FES CHECK FOR LAST ROUTINE INDICATION 
O50F CO 81 O40C 870 BE HLTD YES, BRANCH TO ERROR HALT |e 
0513 2€ 00 0a03 03 871 ALC RNUM(1).TGNE(,XR2) INCREMENT ROUTINE NUMBER 
0518 75 01 03 872 L 3 eXR1) eXR1 LOAD ADORESS OF NEXT RTN PREFIX | 
05168 EO 87 E6 873 B TEST1I2(0,XR2) GO CHECK THIS RTN NUM Se 
O51E 1C 03 0211 03 874 TEST16 MVC RPFX(4)_5309XR1) SAVE ROUTINE PREFIX | 
0523 D2 01 04 875 LA 40sXR1) XR) LOAD ADDRESS GF FIRST INSTRUCTION | 
0526 B& O1 SF *” 876 ST TE STE#3(9XR2) eXR1 «7. IN SUBROUTINE EXIT & 
0529 34 01 0595 877 ST LNK643,XR1 SET UP LINK EXIT IN CASE LOOPING | " 
OS2D EO 87 67 878 6 TEST2¢.XR2) GO ALLOW NEXT ENTRY 
0002 679 DROP XxR2 @ 
/@ 
: | 
| 
Nee | © 
DATE 29AUGT5 O7NOVTS 19MAR 76 PROG ID FFF-2 Gioate 29AUG75 OTNOVT75 1OMARTS PROG 10 FFF~2 
EC NO. 827804 8276805 827872 : PaGE 9 EC NO. 8278046 827805 627872 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOs 4248230 18M MAINTENANCE DIAGNOSTIC PROGRAM oe NO. esas 
PAGE 10 jn. 
FFF2 DIAGNOSTIC CONTROL PROGRAM - MODEL 12 ~ EeE2 DIAGNOSTIC CONTROL PROGRAM ~ MODEL 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | € ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
: j : 
929 *e44EKEE eHEKEESES) O60E 9C OO 1D 00 991 MVC NSPACE(1,XR2) 900 XR1) LOAD SPACE COUNTER 
930 * PRINT REREEEEEREEERERRERSEREEERESSESESEETES ERLE SER ES ELS ASSESS PRINT *| t 0612 BB FS 10 992 SBF NSPACE(,XR2),X'F8* LIMIT TD ay eOR CONSOLE 1/0 
93] #eeeene44 RRKEE EES | 0615 3C 60 O06C9 ss MVI PRT641596 SET UP 
1 _ *! 4 
a33 . EUSnGe TORN Pai ete oes *, &2 0619 78 10 00 995 TBN Of eXR1LI,BITS BRANCH IF THIS IS SPACE ONLY op 
«| 0 996 JT PRT7 
aa: : oc TL LTeLacss ie a eaten es cele i 50 re 997 TBN O(9XR1)eB1T2 SKIP SETUP IF DATA FIELO READY 
936 * 1*0C IL1*LENGTH -MAXIMUM OF 91-* * (> 0622 F2 10.49 : 998 JT PRT6A 
937 * 1*DC ALZ( ADDRESS OF LAST CHARACTER OF PRINT FIELD) *| 0625 CO 87 0717 Bp tle a seer DUMMY COMMAND TO MAKE SURE NO BUSY 
* * L2"MESSAGE IDENTIFICATION® + 0629 £000 062A 1000 OU 
939 * eae ara trues *| €. 0628 0C 83 O8FF 0900 1001 MVC — LPDATA41310132) sLPDATA+132 BLANK PRINT BUF 
940 * BIT 0 — DEFINES THIS AS AN ERROR PRINTOUT oe . 0631 78 40 00 1002 ue Ceteeh SKIP HDG PRINT IF NOT CALLED FOR 
- “HEADING PRINTED- 
oo 1 = Piast Lume GF MESSAGE “HEADING PRINTED =) (0635 07 30 fs Toe ta Bam a SET UP TO UNPACK MESSAGE 
943 * 3 — SPACE ONLY | 063A B& 01 8C 1005 st IDADOR ( 9 XR2) oXR1 TOENTIFIER 
944 * 4 — RESERVED *) 0630 CO 87 O2ZiE 1006 8 UNPACK UNPACK IT FOR PRINTING 
945 © 5 - BITS 5-7 MUST CONTAIN THE NUMBER OF *! &, 0641 02 0641 1007 oc IL 1628 
946 * 6 - SPACES DESIRED. FOR A PRINT, oer * 0642 pode ne ed IDADOR oe eee 
947 * 7 - MUST BE ENTERED TO PRINT AND SPACE 1G x] 0644 05 
948 * THE NEXT LINE. -O000- MAY BE ENTERED * C 0636 CO 87 O2Z1E 1010 8 UNP ACK PUT PROG IDENT IN PRINTOUT 
949 * TO PROVIDE FOR MULTIPLE GPERATIONS ON * 064A 02 064A 1011 A each 
950 * THE SAME LINE. * _ 0648 OA01 064C 1012 
951 * * Cc: 064D O5CA 064E 1013 Dc AL 2(HOGi+18) ‘i 
952 ® LENOTE - THESE PARAMETERS MUST BE ABSENT FOR SPACE * 064F CO 87 O2Z1E 1014 B uneats PUT ROUTINE MUM IN HEADING LINE 
953 * ONLY GPERATIONS~ * 0653 01 0653 1015 . oc TLLeLe? 
954% * *| &: 0654 OA03 0655 1016 DC AL2(RNUM) 
955 * 2eNOTE - THE MESSAGE IDENTIFICATION IS INCLUTED a C0656 O5CD ; 0657 1017 oc AL2(HOGi¢2i)} 
956 * ONLY FOR A FIRST LINE PRINTOUT. THE FOUR * . 0658 CO BT OT17 £018 - 8 PRIN SPACE BEFORE PRINTING HEAD ENG 
957 * DIGIT IDENTIFICATION REFERS TC A TABLE OF *| ay 0e5C E001 065D 1019 SPBFHG DC XL2*E001* 
958 * ERROR DESCRIPTIONS GR PRINTOUT DEFINITION. * O65E 2u 18 089B 1C 1020 HVC - PLINE+27(28)eHDG(sXR2) MOVE HEADER LINE TO PRINT FIELD 
je 959 * = 1021 
é 960 # OPTIONS-~ SSWO3 - BYPASS ERROR PRINT. & s] 1022 ** SST UP SENSE SWITCH PRINTOUT 
~ 961 * SSWO4 — BYPASS NON-ERROR PRINT. * 0663 C2 O01 O89C 1023 LA PLINE+285XR1 SET UP PRINT FIELD POINTER 
. 962 * SSWOS - USE ALTERNATE PRINTER *| 0667 BC 00 1F 1024 MVI SNUM(¢XR2) 50 SET SWITCH # TO 0 a ee 
o 963 * + €3 066A OE 05 020D 0200 1025 CHKSWS ALC SBYTES{6)+SBYTES ADD SENSE BYTES 
964 , cEseneReSHAEKEHEEEEEEESSERERSSSSEERS SET ERELER TERED TEESE ERASE SESE SES 0670 F2 20 16 1026 JNOL WNEXTSS TEST FOR NO OVERFLOXK 
0587 965 USING PR3eXR2 0673 3A 01 0200 1027 SBN SBYTES,X*OL* 
0596 E2C5C3E3C9D60540 OSAT 966 TMSG OC CLIB*SECTION TERMEINATED® | & ot = a a 028 Ls oe sa SET UP PRINT FIELD @ 
: 6TA ° ° . 
nee ree oe es | 067D CO 87 0369 1030 B RUNPK UNPACK SSH @ INTO PRINT FIELD 
0548 E2C5C3E3C9D60540 O5BS 967 LMSG OC CL1é*SECTION LGADED' | © : nee 103! ies ee ee 
0580 03D6C1C4C5C4 967 0681 O1 
0586 0880 0587 968 PR3 oC AL24PLINE) | 0682 0506 0683 1033 oc AL2(SNUM) 
0588 969 HDG) EQU * | & 0684 OOSA 0685 1034 SSDEST DC XL2*OO9A® | 
0588 40C9C440ETETETET O5D3 970 HDG pc CL28® ID XXXXe PROG UUXX-RR- SSWS* ‘ 0686 7C 68 Ol ex Veer uve Leet XONEL sei inne PRINT FIELD 
0S5SCO 4B40D709D6C 740E4 970 0689 AE 00 IF ’ ’ ° 
05C8B E4ETET60D9D94840 970 i € 0680 8D 30 1F 1037 CLI SNUM{,XR2),X"30° CHECK FOR LAST SSH 
O5D0 E2E2ZE6E2 970 0690 EO 82 B3 1038 BL CHKSWS (2 XR2) BRANCH IF LOW 
OSD2 971 SSW EQqU #-2 0693 7C 40 O01 1039 — MVI 1G eXRLD2C* * CLEAR THE LAST COMMA 
0504 00 0504 972 NSPACE OC XL1*O* SPACE COUNTER & 0696 3C 7F 06C9 1060 CRTICHG MVI PRT6+1—.X*7F° — PUT ACTUAL LENGTH OF LINE INTO 
05D5 0000 05D6 973 SNUM OC xL2¢0O° 069A 2€ 00 06C9 CE 1041 ALC PRTG+1(1)¢SSDEST(5XR2) — PRT6+1 FOR THE KEYBOARD PRINTER | 
0507 00 OSD? 974 PTAGS OC XLL*O® : 069F CO 87 0717 1042 B PRTN GO PRINT THIS HEADING 
05D8 34 02 0712 975 RPRINT ST PRTE2Z4+3,XR2 SAVE INDEX REGS AND SET UP BASE © c< Se 2 06A4 nee PRTHG me ab ere tN" i 
O5DC C2 02 0587 976 LA PR3_XRZ 06a5 CO 87 071 i 
O5EO 34 01 O70E 977 RPONE ST PRTE1L+3,_XR1 ee © 06A9 E001 O6AA pe pc xXL2*€001° 
5E4 34 0716 978 ST PRINTE4+3,ARR LOAD RETURN ADOR 46 . 
Beee = a aiie 979 L PRINTE+3-XR1 POINT AT PARAMETER LIST WITH XRI O6AB 1C 00 06C9 O1 1067 PRTS MVC PRTO+101)510,XR1? SET UP MOVE WHICH WILL LOAD THE 
O5EC 3C 40 0900 | 980 MVI LPDATS4+1320eC* ° SET BLANK CHAR INTO X900 ONCE e 0680 OF 38 eee 039F ae ore ee eseen errr _PRINTOUT POINTED oar IS ZERO 
a 981  €S 0686 F2 82 1 
O5F0 9C 00 20 00 982 MVC = PTAGS4 19 XR2) 90 XR? 0689 1C OL 06CD 03 1050 MVC —«- PRT64502)9 30 op MRE 
OSF4 BC 40 01 , 983 MVI  HOG1L(,%R2),C°% * PUT NON-ERR PRINT INDICATION IN HDNG:' .. O6BE 2C 01 06CB 00 1051 MYC —«- PRT 643.02 e PR3 Ce XRZD 
O5F7 78 80 00 984 TAN 0¢eXR1!,B1ITO BRANCH IF THIS IS NGN-ERRGOR PRINT €3 06C3 1i£ 00 06CB 01 es are pl pho te ai <= pohinn Lite 
OSFA F2 90 OA 985 JF PRT2 06C8 OC 00 0000 0000 1053 PRT6 v - 9 . 
OSFD BC 5C 02 986 avi HDG1(_XR2)5C**S PuT ERROR * IN PRINT LINE ; O6CE CO 87 0717 (1054 PRTIGA 8B PRIN PRINT THE LINE 
0600 39 10 0208 987.  —s*TBF_—s SBYTE0+SSWO3 'G ~~ oe02 £200 06D3 1055 pC  XL2*E200° 
0604 F2 87 04 988 J PRT2A i 1056 
0607 39 08 0208 989 PRT2 TBF SBYTEC, SSKO4 EXIT IF SENSE SW TO BYPASS THIS TYPE! 060% AF 00 1D 2A 1057 PRT7 SLC NSPACE( 19X82) »RPONE 41 (5 XR2) SPACE PRINTER DESIRED 
0608 F2 90 DT 990 PRT2A JF hEEXIT PRINTOUT IS ON @ 0608 F2 82 OA 1058 JL ss PREXIT NUMBER OF TIMES : 
“DATE 29AUG7S  OTNOVTS LOMARTC PROG ID err-2| @oate 29AUG7S _ OTNOV7S  19MART6 en ee PROG ID FFF-2> 
EC NO. 827804 827805 e27872 ‘PAGE 10 | EC NO. 827804 827805 827872 Pa Ons: . _ PAGE 108) 
we ae | | | | | . ;@ | 
. : ; \ 
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0608 
O6DF 
O6E1 


OSE5 


O6EB 
O6EF 
Ob6F2 
OGFS 
OSF8 
O6FB 
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0704 
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O7OF 
0713 


0717 
0718 


OTLIE 
O721 
0725 
O72A 
O72E 
0732 
0735 
0739 
O73C 
0740 


OT44 
O748 
0748 
O74F 
0753 


0756 


o75e 
O75A 
o75C 


O75E 
0761 
0764 
0767 
OT6A 
0760 
0770 
0773 
0776 
0779 


DATE 
Ec NO. 


OBJECT CODE 


CO 87 0717 
£001 
CO 87 0604 


oc 


c2 
B4 


65 
9c 
8E 
co 
38 
F2 
39 
F2 
39 
co 


39 
F2 
38 
co 
Fe 


84 


ol 
02 
40 
90 
02 
30 
90 
02 
02 
02 


01 
02 
87 


02 
68 


01 
02 
ol 
87 
80 
90 
10 
87 
08 
90 


04 
90 
04 
10 
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0800 
o87Cc 
7070 


Fo 
£0 
El 
Bl 
81 


‘BL 


88 
F3 
€1 


El | 
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O8FF 0900 


0716 
oo 
00 
03 
02 
00 
03 
03 
O1 
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0000 
0000 


O717 
70 


70 

5E O01 
T0 0341 
0212 
0507 
o7 

0208 
04 
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0208 
41 
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13 
471 
46 
42 
4* 
50 
oo 
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C: 
FFF2 

STMT SOURCE STATEMENT i € ERR LOC 
1059 é PRIN (OTT 
1060 SPAPRT DC —sXL2* E0018 ~€. 0780 
1061 8 PRIT 0784 
1062 
1063 PREXIT MVC LPDATA+131(133) sLPDATA+132 CLEAR PRINT BUF DOWN TO '€:  oves 
1064 * X*87B* FOR PTR SYSTEM TEST O78A 
1065 L PRINTE43,XR1 ADJUST EXIT ADDR TO MISS 
1066 LA «Ole XR1) 9 XR2 oe '& 
1067 TEN OU XR1) ,BITL PARAMETER LIST o78C 
1068 JF PRTB -.. 0790 
1069 LA 209 XR2P9XR2 ot 
1070 PRT8 TBE 04 eXR1),X"308 | 
1071 JF PRTO | 
1072 LA —-3L eo XRZV9XRZ /€ 
1073 PRT9 «LA —-1. 4 9 XR2) o XRZ 
1074 ST — PRINTE 43, XR2 jo 
1075 
1076 PRTEL LA  *-*,XxR1 RESTORE INDEX REGS AND EXIT | 
1077 PRTE2 LA *=*4xR2 0793 
1078 PRINTE 8 + —€ 0796 
1079 0799 
1080 ** . O79€ 
1081 ** STANDARD INPUT/OUTPUT SUBROUTINE USED BY THE PRINT ROUTINE} €> ota2 
1082 #* THIS SUBROUTINE SUPPORTS THE 5203/1403 PRINTER AND THE ALTERNATE O7A5 
1083 ** QUTPUT DEVICE UNDER CONTROL OF SENSE SWITCH 05 CODING FOR /  OTA8 
1084 ** ALTERNATE PRINTERS FOLLOWS THIS SUBROUTINE. THE LOADER SELECTS Cotas 
1085 ** THE PROPER SUBROUTINE. OTAE 
1086 ++ ' O7BL 
1087 & ~~ oms 
1088 USING PRTN,XR2 0788 
1089 PRTN LA — PRTN,XR2 SET UP COMMAND AND LOAD BASE OTB 
1090 ST = PRTNE*3(9XR2) pARR /E oreo 
1091 ZONE €£QU #4) o7c3 
1092 L PRTNE43 ( 9XR2) eXRL O7C7 
1093 MVC - PRS1042£2)XR2) 91 yXR1) & o7ca 
1094 ALC PRINE#3(2,XR2)eTWO ADJUST RETURN ADDRESS c7CcD 
1095 PRIN] 8 TEST CHECK DATA SWITCHES 0700 
1096 TBN PTAGS,BITO GO EXIT IF SSw TO BYPASS THIS TYPE €3 o7p3 
1097 JE ss PRINZ OF PRINTOUT 1S TURNED ON 0706 
1098 TBF SBYTEO,SSWO3 | nm.  OT09 
1099 J PT90 i €3  orpe 
1100 PRIN2 TBF SBYTEO,SSWO4 O7E1 
1101 PT90. BF sé PREXIT O7E4 
1102 i ®@ 
2103 TBF = SBYTEO, SSWO5 IF SSW 05 ON 
1104 JF ALTPRT PRINT ON ALTERNATE. 
1105 NOALT TBN SBYTEO,SSWOS - IF SSWOS IS ON, @ 
1106 BT = PRTEXT DON'T PRINT ON 1403. 
1107 3 PRIME 
1108 | @ 
1109 MSTAT DC xL2¢o08 FFE6 
1110 LPBUSY EQU x *E6S TIO O CODE - 22LC BUSY 
1111 LPNRDY EQU  xX*EOF TIO Q CODE - 22LC NOT ROY OR ERROR | @  os00 
1112 PRL = DCs AL 2 CLP MAG) 
1113 PR2 oc ALZ(LPDATA) 0800 
1114 PR& = DC-——=so>BkL2*7070" FORMS LENGTH = 112 SO EF WILL RUN = &3 gg 06 
1115 * IN SPACING UP TO READ PRINTOUT os0c 
1116 0812 
1117 LPERR2 HPL H6sHH *PRINTER NOT READY OR ERROR CC: o818 
1118 8 PRINL(,XR2) oBle 
1119 PRIME TIO LPERR2(,XR2),LPNRDY GO HALT IF NOT READY OR ERROR OB 24 
1120 LIQ PR&(yXR2)_X"zO8 LOAD FORMS LENGTH €: ow 2a 
1121 LIG = PR14eXR2),X*ES! LOAD PRINTER LSRS AND [RINT A 
1122 LIQ PR20yXR2)9X*E6* LINE 0830 
1123 SBF = PRSIO#1(,XR2)eX"06* SET UP TO PRINT ON LEFT. CARRIAGE C0838 
1124 PRSIO SIO *-#,e~« ; 0840 
1125 BSYLP TIO BSYLP(,xR2),LPBUSY WAIT FOR BUSY TO DROP “0848 
1126 TIO LPERRZ(sXR2)eLPNROY GO HALT IF ANY ERROR Cogs 
LOMART6 PROG ID FFF-2 @oate 
827872 PAGE li EC NOW 


OBJECT CODE 


C2 02 0587 
35 O1 O7i6 
CO 87 0000 


0530 
09390 


C2 01 0793 
F2 67 06 


FO 38 5F 
EO 87 13 
2E 00 O6C9 08 
3B 80 O6C9 
BC 81 B5 
8D EO 50 
F2 01 18 
BD 00 5E 
EO 81 65 
3D 02 0504 
F2 82 04 
3c 2 0504 
3c 00 O6C9 
BC «1 85 
C2 01 0880 
Ti 18 O11 
F3 18 OO 
BO 19 40 
BS 03 40 
FO 90 7C 
7 40 00 
O02 O1 O1 
2F OO 06C9 O08 
EO 02 80 
EO 87 65 


FLF 2F3F4F5F6 
F7FBFOFOTB7C 
GLEZEZESESES 
£ TE8E9506B6C 
110203040506 
07D80960545C 
C1C 2030 4C5C6 
C7C8C94E487D 


0000000000000000 
0000000000000000 
000000000vU000000 
0000000000000000 
0000000000000000 
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0823 
0829 
O82F 


0877 
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STMT SOURCE STATEMENT 

1127 PRIEXT LA = PR3, XR2 RESTORE xR2 

1128 L PRINTE43 XR RESTORE PARAMETER POINTER 

1129 PRINE B *—% EXIT SUBROUTINE 

1130 

1131 ITTR2 OC ALZCRLINK) 

1132 ITR5 OC AL2(RHALT) 

1133 

1134 ALTPRT EQU) . 

1135 LA  — ALTPRT#74XRI SET UP INDEX REG FOR ALT PRINTER 
1136 J #49 GET TO THE START OF THE ALT PRINTER 
1137 * ALTERNATE PRINTER DEVICE CODE BEGINS HERE 

1138 SEKLEESRAREKALERALASSEEKSKSESESELEEEOKEEESHSTERSOVASS Ssee 

1139 © 5471 AS PRIMARY ALTERNATE 

1140 *«**s* FRECKLE SAESRS SS O4ECESETEEEEAERESENEESESERAERTSSSESER 

1141 

1142 USING PRTN,XR2 

1143 PRINA EQU * 

1144 

1145 HPL HO eHH *KEYBOARD PRINTER ERROR 

1146 B PRINL(,XR2) 

1147 PTCIO ALC PRTE+1(1)>ZONEGeXR2) ADJUST LENGTH OF PRINT 

1148 SBF = PRT6414X*808 LIMIT NUMBER GF CHARACTERS TO 127 
1149 MVI- C1O2X#2(,XR2),X°81* SET UP TO DO PRINT 

1150 CLI = PRST041¢,XR21,X*EO* CHANGE TO CARRIAGE RETURN IF SPACE 
1151 JNE  CIOl ONLY 

1152 CLI = PRSTO#2(,XR23 +0 SKIP CARR RETURN IF SPACE 6 

1153 BE  PRTEXT(.XR2) 

1154 _ CLI NSPACEs2 LIMIT wum SPACES To 2 

1155 SL 847 

1156 MVI - NSPACEy2 

1157 MVI - PRT6#140 

1158 MVI = C1O2K4#20yXR2VeX*42* 

1159 CIOL tA X°880",xRI POINT XRL AT PRINT FIELD 

1160 C101B LIO 1€XR1).X"188 LOAC CHARACTER TO BE PRINTED 
1161 C102X SIO #-*,x"188 ISSUE COMMAND TO 5471 

1162 SNS CIOSTS (9 XR204X*198 HALT IF ERROR 

1163 TBF CIOSTS(,XR2) 2X°03* 

1164 BF = CIOHLT(..XR2) 

1165 MVI Ol eXR19-C* ° CLEAR GUT THIS CHARACTER 

1166 LA -145XR1)»XR1 INCREMENT PRINT FIELD POINTER 
1167 SLC - PRT6#101) » ZONE C oXR2) 

1168 BNL CIO1B(,XR2) CONTINUE UNTIL MHOLE LINE PRINTED 
1169 B PRTEXT( 9XR23 

1170 

1171 CIOSTS EQU = MSTAT 

1172 LAST EQU #-} MUST BE LAST STATEMENT GF OVERLAY 

1173 CIOLA EOQU ALTPRT+CIO1B—PRTNA 

117% CIOHLT EQU — PRTWA 

1275 C102 EQU = ALTPRT*+C102X—PRTNA 

1176 

Lid? ORG = X*FFFF¢-x*Bg0° +2 If FLAGGED, X*°806" SEING OVERLAYED 
1178 

1179 GRE = x*s0c8 

1180 LPIMAG EQU) of 

1181 CC —s-— XL6* FL F2F3F4FSF6° 

1182 oC XL6"F 7FBF9FOTBIC® 

1183 DC = XL6"61EZE3E4ESEG® 

1184 DC XL6"ETEBE9506B6C* 

1185 pc XL6"D1D203040506" 

1186 vc XL 6"D7D8D960¢85C* 

1187 DC =. XLO*C1C2C3C4ESCE* 

1188 pc XL6"C7C8C94E467D° 

1189 YO FILL GUT IMAGE IN CASE UCS IS MOUNTE 
1190 DC =—_—- XL72* 08 BUT IMAGE IS 48. (120-48=72) 
1190 

1190 

1190 

1190 

1OMART6 _ PROG ID FFF~2 
827872 
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PAGE 12 | PAGE 12a 
FFF2 OLAGNOSTIC CONTROL PROGRAM — MODEL 12 | GEEZ DIAGNOSTIC CONTROL PROGRAM - MODEL 12 
ERR LOC OBJECT CODE ADOR SWHY SOURCE STATEMENT : € ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
0858 0000000000000000 1190 | FFFF ues? one Aiea at IF FLAGGED, CODE 1S OVERLAYING ITSELF 
0860 0000000000000000 1399 0980 125 
0868 0000000000000000 LE9O 1251 * eee480488%¢ HALT MUST START AT x*980° SSRRSSSSSSSSSES * 
0870 0000000000000000 E190 | eG as pCa “eceiaee 
; ates e* | 1254 * HALT * cheeeeeeeeeeheeeEeeeseeeeSeeeEeeSeeSERES ES SESESSSOSSSSO® HALT * 
L193 *# THE FOLLOWING INSTRUCTIONS COMPLETE THE SECTION LOADER BY | eS : 1255 s#eeeee4 wate e 
*¢ - it N AREA THA REA TO BY 1256 * 
ties a HWE DISK EpAbeac wear PAAUNAY SORE re | 1257 ® SUBROUTINE USED TO PROVIDE A COMMON HALT FUNCTION. ENTRY TO THIS * 
0A03 £196 ORG xX*a03* | G 1258 * ROUTINE 1S ACCOMPLISHED BY BRANCHING-— : 
OAO3. 1297 RNUM EQU * 1259 * 
osTF T198 ORG X‘87F* | 1260 * B HALT WHERE HALT IS EQUATED TO 1312 * 
O87E Li99 X87F EQU * | © 1261 * DC XL2"*UUXX! HEX ERROR. IDENTIFIER : 
O8TF E200 USING X87F XR 1262 * 
0900 §201 ORG X*900' | 1263 * NORMALLY, ONLY A HALT WITH CODE *XX' WILL OCCUR. 8UT WHEN THE & 
0900 40 09060 1202 oc 230 C«LL* * | 1264 * SYSTEM TEST IS RUNNING, HALT ‘UU* WILL PRECEDE HALT °XX* TO * 
| 0901 £203 ENDRTN EQU * | € 1265 * IDENTIFY THE DEVICE IN ERROR. * 
0901 OC 16 0016 097A £204 MVC 2223) sRESTRT#2 PROGRAM RESTART | 1266 * * 
0907 38 80 0a02 B205 _ -TBN SPFLGS»BITO BRANCH IF NO UDT ENTRIES 1267 * UU - UNIT IDENTIFICATION * 
0908 F2 10 3€ 1206 JT LOEND | 2 1268 * XX - INDEX NUMBER : 
090E C2 02 OAOA 1207 LA SPUDT, XR2 POINT XR2 AT SECTION PREFACE UDT 1269 * 
0912 C2 01 0232 B2OB UFIND1 LA  —_— UT AB, XR1 POINT XR1 AT OCP UNIT TABLE | 1270 ® IF THE INDEX NUMBER IS 01-9F, THE HALT WILL OCCUR UNLESS SENSE * 
0916 6D GO 00 00 E209 UFEND2 CLC O(1LeXR1)2002XR2) BRANCH IF NOT PROPER UDT | © 1271 * SHE eS ee nUTS ARE INDICES OTE ae eT ee ALTS. : 
O91A F2 01 18 2230 JNE  -UFIND4 | 72 * WH - - “. 
091D 9C 00 02 G2 3221 MVC 9-219 XRZ)920eXR1) LOAD SECTION PREFACE OPTION | 1273 *  DO-FF ARE ALWAYS PERFORMED. =. 
0921 98 03 01 O11 3212 MNN LC eXRZ2) 910 2XR1L) . \ © 1274 * oe aces chetahaethteeheEseSeSEEEESEEEESESTEESESSSESES SOS SS LSSSOLSS IS 
0925 BA 20 O1 1213 SBN 19 XR2)-81T2 SET ASSIGNED FLAG 0980 1275 USING HLTTABeXR2 
0928 88 10 Ol 2224 UFIND3 TON  14¢XR2),B1T3 xe, 0980 1276 HLTTAB EQU)  * 
0928 E2 02 03 3215 LA —- Ue XRZ)PXRZ INCREMENT SPUT POINTER i © 0980 6F0376571B85D 0985 1277 Dc XL6"6F037657185D' | TABLE OF HALTS O-F 
092E CO 90 0912 1216 BF UFIND1 If NOT LAST ENTRY, GO LOAD NEXT 0986 70077 F5F3F79 0988 1278 oc XL6" 7D077F 5F3F 79° 
0932 F2 87 17 1217 J LDEND OTHERWISE - GO START SECTION | 098C 6C737C3C 098F 1279 pc XL4*6CT37C3C * 
0935 78 10 01 3218 UFINDS TBN = 1(,XR1)-BIT3 CHECK FOR LAST DCP ENTRY | ¢ 1280 
0938 D2 01 03 1219 LA 3 ,XR1) yXR1 INCREMENT TO NEXT ENTRY 0990 34 08 0408 1281 RHALT ST ARPSAVsARR SAVE RETURN ADDRESS | 3 
Se 0938 CO 90 0916 1220 BF UF IND 2 CONTINUE IF NOT LAST ENTRY 0994 CO 87 03A6 1282 B SAVREG GO SAVE REGISTERS —_— 
093F 89 40 01 2221 TBF 10eXR2)-81T1 SKIP ERROR HALT IF REQUIRED FLAG ' G 0998 C2 02 0980 1283 LA HUTT ABs XR2 coat pe on tee ehalnes ak 
0942 F2 10 03 4222 JT 46 NOT ON 0°9C 35 01 0408 1284 L ARRSAVsXR1 a 
0945 FO 38 03 1223 HPL |=s- 1, HH *UDT CANNOT BE SATISFIED | / J Q9A0 OE 01 0408 0341 1285 ALC ARRSAV(2),.TWO ADJUST RETURN ADDRESS 3 
0948 CO 87 0928 1224 8 UFIND3 BYPASS ERROR IF HALT RESET | G ogo 70 AO 01 1286 CLI 14sXR1)-eX*A0* BRANCH IF THIS IS ERRGR HALT PAIR - 
094C CO 87 O21A 1225 LDEND 8 PRINT PRINT DCP HEADING AND SKIP UP 0949 F2 82 10 1287 JL HALT2 5d ee ee : 
0950 47 0958 1226 oC XL1°47* O9AC 7D CF O1 1288 CLI 1 fe XR1DSX*CF* >D0'~*F 
0951 OE O9SE 1227 oc IL1¢14* | €& ooaF F2 84 12 1289 JH HALT3 : 
0952 0585 = 4228 LMa oc AL2(LMSG) 0982 38 08 0208 1290 TBN sevrecassion EXIT IF NOT BYPASSING MON-ERR PRINT © 
0954 FFOO 1229 oc XL2*FFOO® i 2. 0986 F2 90 3F 1291 . JF HEX . ore ee 
1230 0989 F2 87 07 1292 J HALT3 ; : : 
0956 39 01 0208 4231 Taf SBYTEO,SSWO7 BYPASS HALT AFTER LOADING SECTION | 09BC 38 02 0208 1293 HALT2 TBN SBYTEOsSSWOS EXIT IF BYPASS ERROR HALT SET : 
095A 39 08 O1FD 2232 TBE = FLAG BITS e 09CO F2 10 35 1294 JT HEXIT 
095E F2 90 03 1233 JF #406 | 1295 : 
0961 FO 38 3F 1234 HPL  HAeHH HALT TO ALLOW DATA SWITCH ENTRY 09C3 98 02 65 00 1296 HALTS MNZ  LHLT143¢,XR2)20(,XR1) SET UP TO LOAD CODES FOR IST HALT; 
o 1235 + 09C7 98 03 69 00 1297 MNN  LHLTIAt30yXR2) 900 oXRLD - 
Ms 1236 ## THE FOLLOWING FIVE INSTRUCTIONS ARE STORED AT LOCATION ZERO | G o9cs 98 02 70 01 1298 MNZ  LHLT2+3(.XR2Pe1(,>XR1) SET UP FOR SECOND HALT 
1237 ## (0000) AFTER LOADING OF EACH SECTION IS COMPLETED 10 PROVIDE O9CF 98 03 74 O1 1299 MNN = LHLT2A43 (0 eXR2) 910 XR1) 
oe 2238 ** A PROGRAM RESTART (SYSTEM RESET/START)~ 0903 3C 07 TECF 1300 MVI  ERSSW+1,X*O7° SET UP TO ERASE ON CRT 
5. 1239 | € 0907 3D FF 0A00 1301 CLI X*a00",X*FFE PERFORM FIRST HALT ONLY IF SYSTEM TEST. 
0aG3 1240 USING RNUM,XR2 0908 39 CO OAO1 1302 TBF = X*AOL* »X*CO® (ACTUALLY PGMS FFOs19203 ? : 
0964 C2 02 0A03 1241 LA RNUMs XR2 SAVE FIRST ROUTINE PREFIX AND | O9DF F2 96 08 1303 JC LHLT2.x*96° JUMP FALSE OR HIGH OR LO 
0968 85 01 04 1242 Ls Ue XRZ),XR1 | €3 09€2 AC 00 68 00 1304 LHLTL MVC  HALTA#1(01,XR2)94-#0xR2) LOAD FIRST HALT 
0968 9C CO 00 00 £243 MVC «—- RNUM(19XR2) e0(eXR1? LOAD CURRENT ROUTINE NUMBER O9E6 AC 00 6C 00 1305 LHLTIA MVC HALTA#2(19XR2) 94-40 9XR2) 
O96F 1C 03 0211 03 1244 MVC RPFX(4)530eXR1) ; nes O9EA FO 00 00 1306 HALTA HPL *4%-*,#-* HALT TO INDICATE DEVICE 
0974 CO 87 0212 1245 8 TEST CHECK DATA SWITCHES | €}  09€D ac 00 76 00 [307 LHLT2 MVC  HALTB+L(1,XR2).%—-#0 9 XR2) LOAD SECOND HALT 
0978 DO 87 04 2246 RESTRT B 4(eXR1) START FIRST ROUTINE O9F1 AC OO 77 OC 7308 LHLTZA MVC HALTB42(15XR2)9#-*( oXR2Z) Bila ih 
0978 0000000000 O9TF 1247. oc XL5"0° . FILLER 09F5 FO 00 00 1309 HALTB HPL %-*,»*-* HALT TO DISPLAY INDEX NUMBER 
e | €3 09F8 CO 87 0444 1310 HEXIT 8 RTEST GO CHECK FOR SWITCH ENTRY 
| O9FC CO 87 O3FD 1311 8 LOREG «GB RESTORE REGS & EXIT SUBROUTINE 
+ 1312 EEEEKEREESESERSESSELESEESESESE SP 
fe |\@ 1313 ® - TRANSFER TABLE CONSTANTS EhGhtSSSREEEESESESSSSERESESSSSSSRSSTESSS ES; 
| 1314 EEEEEEREEKERSESERELESSSESESESS SEES : 
on 0537 1315 TRI equ. ITR1 
ce \@ 0789 1316 TR2  EQU ITR2 . 
DATE  29AUG7TS  OTNOVTS = 19MARTE ! PROG ID Frr-2| ESoate 29AUG7S = OTNOV7S5 =: LOMARTE et saath a PROG 1D OF FF=2 
EC NO. 827804 - 827805 . 827872 
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FFF2 DIAGNOSTIC CONTROL PROGRAM - MODEL 12 FFF2 DIAGNOSTIC CONTROL PROGRAM - MODEL 12 


| 
| 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | € ERR LOC OBJECT CODE © ADDR STMT SOURCE STATEMENT 
02CC 1317 TR3 EQU = «ITR3 | Q FFFF a - poehone X*FEFFP—X* A00t +e IF FLAGGED, X*A00* BEINGS OVERLAYED 
R4 TR4 © * eeee 
po ae —. fea tas | 13225 * XREF BETEESEAEKEERERSEREREESERSSESRSERUTRERETESSEESSSRSEKSHS ESSE OS SSRS 
Reco raey cae eau ia 1 €3 Fee 1337 ar ange X°LFEE* 
055C 1321 TR7 EQU  ITRT 1 & 
1FEE 0000 1FEF 1328 oc XL2*0000* USED TO PASS DISK ADDR OF *FCO* TO °143° 
= 1329 # FOR THE CE TO CHANGE UDT AND CPU 
| 1330 
1FFO CO 87 OESC 1331 b BEGIN IN CORE AT IPL TIME, AND THEN START 
1332 ¢ AT THIS ADDRESS TO GET A NEW PRINT 
i @ 1333 © OUT OF THE SYSTEM DATA. THIS ADDRESS 
1334 * SHOULD NOT BE CHANGED, SINCE CTHER RELEASE 
os 1335 * DOCUMENTATION TELL THE CE TO USE THIS 
(© 1336 * ADDRESS. 
1FF4 0000 1FF5 1337 oC XL2*0000°* ADDRESS TO LINK FROM OCP CALLED PROGRAMS 
‘FFG 0412 1FF7 1338 oC AL2(XREFS) LOCATION FOR SSW VALUE 
/€: 1 FFB 0413 1FF9 1339 oC AL2(XREF4) SUBRTN TO SET SSW 
1FFA OEB8C 1FFB 1340 DC AL2(XREF3) LOADER BRANCH @ WHEN DCP IS LOADED 
1FFC 13C0 1FFD 1341 oc AL2(XREF2) LOADER BRANCH @ WHEN LOADING OCP 
| €2 FFE o2F3 1FFF 1342 oC AL2(XREFL) LOADER RETURN IF NOT IN VTOC 
1343 
| © OESC 1344 ORG ALTPRT+X*700° THIS ORG TIED TO ORG AT END OF ROUTINE 
; 1345 : 
| 1346 #654e40006846 
i 1347 # EQUATES EESERKECKESEKKESEEENES SERSSTSERESRESSHSSSSSSASESSSSEATSESS SVE SELSSS 
4 @ 1348 4409294084 
| 0010 1349 IAR EQu = x* 108 INSTRUCTION AODRESS REGISTER 
0008 1350 ARR EQU x*0B" ADDRESS RECALL REGISTER 
'@® 0004 1351 PSR EQU. ss X#04! PROGRAM STATUS REGISTER 
| 0081 1352 PTIAR EQU xX*e1* " PROGRAM CHECK REGISTER 
0001 1353 XRi EQU INDEX REGISTER 1 
1@ 0002 1354 XR2. EQUUS s2 INDEX REGISTER 2 
| O87C 1355 LPDATA EQU = xXx*97C* 22LC PRINT DATA AREA 
0880 1356 PLINE EQU X*880° START OF DCP PRINT LINE. 
. '@ 0a00 1357 SPT EQU X*A00° SECTION PREFACE TABLE 
| OAC] 1358 PROGID EQU  xX*A01" SPT — 2ND BYTE OF PGM IDENTIFICATION 
a | OAO2 1359 SPFLGS EQU  x*A02* SPT — FLAGS 
= @ OA07 1360 FRIN EQU xX*AOT® © SPT — ADDR OF 1ST RIN Preria 
OAOA 1361 SPUDT EQU  xX*AOA® SPT — UNIT DEFN TABLE 
p 0018 1362 SIOI EQU  xXx*1l~8° S10 IMMEOIATE TO CRT 
‘ \@ 0879 1363 CRTFLG EQU  x*0879° FLAG SAYS 32XX MICRO LOADED OK 
1364 
a f 1365 ** COMMON SENSE SWITCHES 
cf. | @ 1366 
. 0080 1367 SSWOO EQU xXx*80" © LOOP ON SECTION 
/ 0040 1368 SSWOl EQU Xx*40* LOOP ON ROUTINE 
cS '@ 0020 1369 SSwO2 EQU xX*20° BYPASS MANUAL INTERV RTNS 
0010 1370 SSWwO3 EQU  xX*10° BYPASS ERROR PRINT 
0008 1371 SSWOS EQU xX*08* BYPASS NON-ERROR PRINT 
Cc :@ 0004 1372 SSWOS EQU X*04* USE MFCU AS PRINT DEVICE 
0002 1373 SSWO6 EQU X*02* HALT ON ERROR 
s ; 0001 1374 SSWO7 EQU  xXx*01" LICKETY SPLIT 
qd 1 @ 0080 1375 SSwo8 EQU %*80° USE 5203 RIGHT CARRIAGE 
0040 1376 SSWO9 EQU X*408 INHIBIT SECT. SSW CLEARING 
” 0020 1377 SSWOA EQU x*20° 
Be & 0010 1378 SSWOB EQU x*10° 
0008 1379 SSWOC EQU x*o8* 
bs 0004 1380 SSWOD EQU xX" 04? 
ne : i@ 0002 1381 SSWOE EQU = X*02* 
; “~ 9001 1382 SSWOF EQU x*o1* 
ae 0001 1383 SSW2F EQU x*o1t 
oe ® 1384 
0080 1385 BITO EQu x*so* 
0040 1386 BIT1 EQU X*40* 
@ 0020 1387 BIT2 EQU  x*20° 


0010 1388 BIT3. EQU  x*10* 
0008 1389 BITS EQU xX*08* 
S 0004 1390 BITS EQU xX*06* 
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1 > 
FFF2 DIAGNOSTIC CONTROL PROGRAM - MODEL 12 - "eeED2 DIAGNOSTIC CONTROL PROGRAM - MODEL 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT € ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
0002 1391 B1T6 EQU xX*O02* 1418 ** THE FOLLOWING INSTRUCTIONS ARE PERFORMED AFTER INITIAL DCP 
0001 1392 BIT? EQU xX*OR* | & 1419 ** LOADING ONLY. THEY ARE OVERLAID BY THE PROGRAM SECTIONS. 
1393 : OE8C 1420 XREF3 EQU * 
O06F 1394 HO EQU  xX'6F* TABLE OF HALT CODES - O-F & H es OES8C 1421 BEGIN EQU * 
0003 1395 Hl EGU X*03" i € osc oc 10 0010 1163 1422 MVC 16(17),GOLOAD+16 STORE A PROGRAM RESTART AT 0000 
0076 1396 H2 EQU xX*T76* . 0£92 CO 87 13C0 1423 B FIXMOB 
0057 1397 H3 EQU  X'ST7* G OE96 1424 BEGINA EQU) * 
001B 1398 H4 equ X*1Be .| & 1425 
005D 1399 HS EQU x*5D° HALT DISPLAY CODE -5- 1426 AbeEKRERREREEKERESESEEAEAEERTORETEDS ESR ESRERTEEESEOEESS SS EESESS SESS SESS 
007D 1400 H6 EoU X70 . 1427 # 
0007 1401 HT equ xX*O7 | & 1428 * PRINT cPu AND uDT INFORMATION 
OO7TF 1402 H8 EQU  xX*TF® 1429 * 
005F 1403 H9 EQU XSF 1430 * 
O0O3F 1404 HA —EQU] xX" 3F® | © : 1431 REREREERERAEEERERESEAEESERESREEEERAEEERESESEEESERESESEES EES SESS SEES ESOS 
0079 1405 HB equ xXx*"798 1432 
006C 1406 HC cou x*6C* | 0E96 CO 87 021A 1433 B PRINT SPACE PRINTER 
0073 1407 HD equ) = _X*73° € ~—oE9A 11 OE9A 1434 DC XLL‘LL® 
O0O7C 1408 HE equ. x*T7C* O£9B OC 00 1221 0200 1435 MVC  LINE21-16(1) »SMOD PUT MODEL ID IN PRINTOUT 
003C 1409 HF EQU = x*3C* ~.  OEAL 3C 00 033C 1436 MVI  -CTR»X#0* 
0038 1410 HH equ xX*3B° | €*  g€as 3D FF 0202 1437 TRY64 CLI  SIZE<2,X*FFE 
0068 1411 HL EQU Xx*68* HALT DISPLAY CODE —L- | OEAQ F2 01 O07 1438 JNE NOT64 
O0se 1412 HU EQU  X*6BS HALT DISPLAY CODE -U- C OEAC 3C 10 033C 1439 MVE CTR»1é 
3€ 1413 HP EQU = -X*®3E* HALT DISPLAY CODE -P- OEBO F2 87 06 1440 J DOSZ 
nae a sigue. eeih aeaaEDE | OEB3 08 02 033C 0202 1441 NOT64 MNZ CTR,SIZE-1 PUT CORE SIZE IN PRINTOUT 
1442 
O1FE 1416 DTABLE EQU X*1FE®* | €=  o&B9 04 20 1230 1205 1443 DOSZ ZAZ  LINE1-1(3),DFOUR-1(1) 
| OEBF 06 11 1230 1206 1444 FINDSZ AZ LINE 1-103) -OFOUR(2) 
_ OECS OF 00 G33C 039F 1445 | SLC CTR{I1),ONE 
| €3  o&cB co 01 OEBF 1446 BNZ FINDSZ . 
| 1447 * SET UP CPU OPTIONS IF ANY. 
ECF OC OF 1255 1256 1448 MVC. LINELA(16},LINELA#1 CLEAR OPTIONS IN LINE FOR LFFO ENTRY 
€ } O€05 OC 00 135A 0204 1449 MVC OPBUF(L)»CPU PUT CPU OPTIONS IN WORK AREA 
OEDB 3C 87 OFOA 1450 MVI - PNP+ 1 X*BTS ASSUME ND OPTIONS, THUS NO OPT PRINT 
caper ae _ OEDF C2 02 1246 1451 LA LINELA-155XR2 POINT AT PRINT LINE WHERE OPTS GO ———$—$$ 
| €3  o€€3 C2 01 1351 1452 LA OPTTAB,XR1 POINT AT OPT NUMBERS. 
| OEE7 OF 00 135A 135A 1453 OPLOOP ALC OPBUF(1),OPBUF SHIFT LEFT 1 
ee ; OEED CO 20 OEFC 1454 BNOL NOTOP JUMP IF NO OPTION BIT. 
‘ €2 —scEF1 «9C 00 00 00 1455 MVC OC 1g XRZ2P VOC SXRLI MOVE OPT NUMBER INTO; LINE 
OEFS E2 02 02 1456 LA 2 ¢XR2) 9 KR2 BUMP TO NEXT LINE POSITION 
ee OEF8 3C 07 OFOA 1457 -MVI  POP41,X*07® CAUSE NO-OP JUMP FOR PRINTING 
: e : OEFC 1458 NOTOP EQU #* 
OEFC D2 0101 ~—C«;w 1459 LA 1¢¢XR1) gXR1 BUMP TO NEXT OPTION NUMBER IN TAB 
¢ OEFF 7D D8 00 1460 CLE  00.XR1)2C#Q!" IF IT 18 A *Q® » QUIT. 
ks € or02 F2 81 04 1461 JE POP 
: OFOS CO 87 OEET 1462 8 op.ooe. > DO ALL 8 
fc OFO9 F2 00 OB 1463 POP Jc NOPOP, #—-* JUMP TO REGULAR ONLY OR FALL TO OPT 
.: € so 0c:«CO 87 021A 1464 B PRINT PRINT CPU LINE WITH OPTIONS 
OF10 02 OF 10 1465 oc XL1*02° 
r OF11 38 OF11 1466 DC 1L1°59* 
we. @ i or:12:-:1255 OF13 1467 DC -—-_ AL2({LINELAD 
OF14 F2 87 08 1468 J WASPOP 
ys OF17 1469 NOPOP EQU * 
< €  oF17 Co 87 021A 1470 B PRINT PRINT CPU LINE WITH OUT OPTIONS 
OF1B 01 OF 1B 1471 DC XL1°O1° 
OFIC 17 OFIC 1472 DC IL1*°23¢ 
i G oF 1231 OFLE 1473 DC = AL2¢LINEL) 
1474 
- | OF1F 1475 WASPOP EQU 
G ~— ofir co 87 021A 1476 8 PRINT 
| OF 23 01 OF 23 1477 oc XL1°O1* . 
r OF24 33 OF 24 1478 pc. +=—«1L2°51° PRINT ——-*S. 
“oF | €or 25 12F7 OF26 1479 DC = AL2 (DASH) ; - 
OF27 CO 87 021A 1480 B PRINT PRINT UNIT DEFINITION TABLE HEADING - 
| . O0F28 O1 OF 2B 1481 DC XL1°01° ; 
; OF2C 33 OF2C 1482 - OC IL1°51° 
OF2D 1289 OF2E 1483 DC AL2(LINE2? 
e | OF2F CO 87 O21A 1484 B PRINT 
te @ or33 01 0F33 1485 pc 20s XL1°02° 
oe 2 
DATE 29AUG7TS OTNOVTS 19HART6 PROG ID FrF-2| foarte 29AUG75 OTINOV7S | 19MART6E PROG. ID - FEF=2 . 
EC NO. 827804 827805. 827872 : ; _ PAGE 14 EC NO. 827804 827805 827872 PAGE 
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OF 4D 
OF4E 
OFSO 
OF 52 
OF56 
OF59 
OF SF 
OF63 
OF69 
OF 6F 
OFT2 
OFT75 
OF 78& 
OF7D 
oFSsO 
OF 83 
OF86 
OF8E 
OF SE 
OF 94 
OF9A 
OF9SE 


OFA2 
OF A6 
OFAS 
OFAE 
OF 62 


oFf8S 
OFB9 
OFBC 
OFCI 


OFCS 
OoFCcB 
OFCF 
OFDO 
OFDI 


OFD3 
OFD6 
OFDS 


OoFDD 
OFEL 
OFE2 
OFE6 
OFET 
OFES 
OFEA . 


DATE 
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OBJECT CODE ADDR STMT SOURCE SYATEMENT € cere LOC 
33 OF 34 1486 oc 1L1¢S1° PRINT -——-'"S soOF EE 
12F7 OF36 1487 oc AL2(0aSH) €5 OF EF 
1488 
C2 01 0232 1489 ta UTAB,»XR1 LOAD UDT POINTER OFF2 
3C 01 1207 1490 MVI  FLAGSel INDICATE SETUP FOR FIRST ENTRY €.  oFre 
7D 00 00 1491 UDTLP CLI Of eXR19,x*0° SKIP ENTRY IF NO DEVICE CODE OFF7 
F2 81 8E 1492 JE NOUNIT 
34 O1 OF4F 1493 ST UADDR » XR1 €: ~~ ofea 
CO 87 O21E 1494 b UNPACK UNPACK DEVICE IDENTIFICATION OFFE 
01 OF4D 1495 OC I1L2*1* 1901 
0006 OF4F 1496 UADDR 0C AL2(#-©) ea 
0883 OF51 1497 oc AL2(UPLINE*3) 1004 
C2 02 0884 1498 LA PLINE+4 »XR2 PCINT XR2 AT PRINT LINE 1008 
BC 60 00 1499 MVI OL XRZI4C*-* PUT DASH AFTER DEVICE ID °C;  100¢ 
OC 01 1203 039F 1500 MVC = MASK(2),ONE INITIALIZE DATA FIELDS 1000 
3C 00 1204 1501 MVI  OPNUM,O 100€ 
OC 00 OF70 1202 2502 UDTLP] MVC) « CHR142(1) »MASK-1 SET UP MASKS TO CHECK OPTION SIT <e. 1010 
OC 00 OF73 1203 1503 MVC - CHK241010 »MASK 1014 
79 00 01 1504 CHKL TBF 1(,XR1),%-* CHECK THIS BIT 1018 
79 00 02 1505 CHK2 TSF 2 eXR1LI,*-* | & 
F2 10 16 1506 JT NEXTOP BRANCH IF OFF i 
8C 00 01 1204 1507 MVC = - 12. (1 » XR2) -OPNUM PUT PRINTABLE OPTION NUMBER INTO 
BA FO 01 1508 SBN = -L 9 XRZ0 9 X* FO* PRINT LINE S$ 
8D FA O1 1509 CLE «1 Ue XRZDOXFAE 
F2 82 05 1510 Jt #48 
BE CO 01 11FB 1511 ALC =- BC 1p XRZD-OXCT i\@ 
E2 Oz O1 1512 LA 1(—XR2ZP2XRZ POINT AT NEXT PRINT SLOT | 
CE 01 1203 1203 1513 WEXTOP ALC MASK(2),MASK SET UP TO CHECK NEXT OPTION BIT 
OE G0 1204 039F 1514 ALC GPNUNE1) ¢ONE l@ 
3D OC 1204 1515 CLI OPNUM,X*OC* | 
CO 82 OF63 1516 Bt UDTLPL CONTINUE UNTIL ALL OPTIONS CHECKED | e 
1517 
1517 | 
3D 01 1207 1518 CLI FLAGSe1 GSRANCH IF NOT FIRST UDT ENTRY 
F2 01 OC 1519 SNE CKPTR le 
8C 05 O09 1213 1520 MVC =: 916, XRZP LOR INDICATE THAT THIS IS LOADING DEVICE| 
3C 02 1207 1521 MVE «FLAGS 2 INDICATE SECOND UDT ENTRY 
£2 87 10 1522 J PRUDT GO PRINT THIS ENTRY | @ 
1523 
30 02 1207 1524 CKPTR CLI FLAGS»2 BRANCH IF NOT SECOND UDT ENTRY | 
F2 01 09 1525 INE — PRUDT le 
8C C6 OA 122A 1526 MVC «—«-: 1007» XR2) s PRNTR INDICATE THAT THIS IS PRINTER | 
3C 00 1207 1527 MVI «FLAGS,» 0 FIRST 2 ENTRIES HAVE BEEN HANDLED = | e 
1528 
OC 19 1243 089A 1529 PRUDT MVC  LINE3(26),PLINE#26 SET UP AND PRINT LINE | 
CO 87 O21A 1530 8 PRINT | 
01 OFCF 1531 oc 8=— xt. "01° i@ 
iA OFDO 1532 oc 1L1°26* | 
1243 OFD2 1533 oc AL2(LINE3) 
1534 @ 
78 10 O1 1535 NOUNIT TEN  15XR19.X*10° CHECK FOR LAST ENTRY 
02 01 03 1536 LA 34 oXR1) yXRI | 
CO 90 OF3F 3537 8F UDTLP é 
1538 
1539 SegeenesesesseseseeseeterseseessseseSEssSessesssessssSSesessessesseese : 
1540 * 
1541 © oo MISCELLANEOUS OCP PRINTOUTS | ad 
1542 © | 
1543 ¢ @ 
1544 800 400080F88SSTTSTTEEEEEESEEES TESS S SEESESESSESESSSESOESSTESESS SESSSSSS | 
1545 
CO 87 021A 1546 B PRINT SPACE PRINTER | © 
il OFE1 1547 oC XL Lae | 
CO 87 O2°A 1548 8 PRINT | 
05 OFEG 1549 oc =: KL #05" '@ 
21 OFE? 1550 DC 1L1°33° "DCP 1S LOADED* 
12C4 OFEO 1551 oc AL2(LINES) 
Co 87 1380 1552 8 CHKIO TEST FOR TAPE ON SYSTEM e@ 
29AUGTS O7NOVTS LORART6 PROG 10 FeF-2° @oate 
827806 827805. 827872 ee PAGE 15 | EC NO~ 
| @ 
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F2 


co 
Ao 
F2 


c2 
70 
F2 


co 
co 
01 
3c 


01 
87 
01 
61 
Ao 
o1 


87 
87 


1332 


co 
co 
14 


87 
87 


27 
1380 
1F 
0232 
oo 
15 


1367 
O22A 


1367 
O21A 
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ADDR STMT SOURCE STATEMENT 


OFEE 


OFF6 


100C 
1000 
1LOOF 


1018 


1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
i571 


x 


" 1OMARTS 
827872 


BC 
JNE 


B 
oc 
JNE 


LA 
Cul 
JNE 


8 
8 
BC 
oc 
oc 
8 
B 
oc 


XL1*70* 
TSTO7 


CHKID 
XLL*AO* 
TSTOT » 


UTABsXR1 
O(sXR1L9 eX* ACS 
TSTC7 


PTX 
PRINT 
XL1*O1L* 
111*60* 
AL2(XK1} 
PTX 
PRINT 
XL1°14¢ 






PART NO. 
PAGE 


4248234 
15A 


JuMP IF IT IS NOT 

TEST FOR 5444 ON SYSTEM 
Jump IF IT IS NOT 
POINT AT X*232° 

IF 5444, PRINT TAPE MESSAGE 


PRINT LINE OF f-* 
PRINT MESSAGE TO DUMP TAPE ERROR ST. 


PRINT LINE OF *%-* 
SPACE 4 


: Fer-2" 


SA, 


PROG 10 
PAGE | 
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PAGE 16 € ' PAGE L6A 
FFF2 DIAGNOSTIC CONTROL PROGRAM - MODEL 12 FFF2 DIAGNOSTIC CONTROL PROGRAM — MODEL 12 
{ 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT € ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1573 ERRREESAEERSEREEEEEE ES EHESEESRESE SEES EEEEEEEERER ESS EEEES EERE SEER ERE RES | e 1626 EEREEEESAERERESEREEERESERERESERRE EES SEEESERESSOESSSSE 
1574 *# 1627 ® 
1575 * CHECK FOR MODEL G 1628 * RUN 14 3 ( MICRO CODE LOADER } 
1576 * 1629 * 
1577 EREERERKEEEEEERERERE* EERE SS ERERREEEERCERERESES SESS LEERER SESS EST TERE ESE €& 1630 EAREAEREEEEARERERAEEESRERERKESRER ESS SBEEERSESBESSHSS GE 
1578 | 1631 , 
1019 1579 TSTO7T EQU * | ie 1O7F 38 CO 113C 1632 TBN SRFLAG,BITO*BITL IF 143 OR FCO NOT FOUND DON'T RUN 143 
1019 30 C7 0200 1580 CLI SMOD,C*G* TEST FOR RUNNING ON MODEL °G°* { €3 1083 CO 90 11C9 1633 BF DOHA IF NOT, DON'T RUN 
101D CO O1 11C9 1531 BNE DOHA BRANCH IF NOT | 1087 OC 01 1FF5 1099 1634 MVC XX" LFF5S*C2),RTN143 SET UP FOR 143 TO COME BACK 
1021 3D 40 0232 1582 CLI UTAB,X*40° TEST FOR LOADING FROM 3741 - 108D 3A 01 0200 1635 SBN SBYTE5»SSW2F SET ON SSW 2F TO SHOW 143 TO LINK BACK 
1025 F2 81 3A 1583 JE FD6D IF TRUE GO SET UP FOR LOADING €:: 1636 
1028 38 80 0233 1584 TBN UTAB4+1,X* 80* TEST FOR LOADING FROM DISK 1091 CO 87 O22A 1637 8B LOAD LOAD 143 AND EXECUTE 
102c CO 90 11C9 1585 BF DOHA IF NOT, HALT HA | 1095 18 1095 1638 oc XL1°18* LOAD PGM AT SPECIFIED ADDR AND GIVE CONTROL 
1586 | € 1096 0000 . 1097 1639 ADR143 OC AL2(*-#) DISK ADDR OF 143 FILLED IN ABOVE 
1587 RECESS EKA EREREEEEREHEEEREREEREEEE SESE SE KEKE ERBESAS ESS ESE SCEE SET SEBS ATL E 1098 109A 1099 1640 RTN143 OC AL2(MICRTN) 
1588 * | 109A 1641 MICRIN EQU * RETURN HERE FROM 143 ; 
1589 * t0ad AND EXECUTE ANY PROGRAMS WHICH MUST BE © 109A OC 10 0010 11E3 1642 MVC 16(17},GOLOAD+416 STORE A PROGRAM RESTART AT 0000 
1590 * 10A0 CO 87 118B 1643 8 BLKCRT TO BLANK CRT 
a 1591 * RUN AT ocP LOAD TIME 1644 
oo 1592 * € 1645 EREREEKHERESEASSERARERESLEKEHSSES SEVREKGSSESSSSSSS 
1593 # FD6 — RUNS ON ALL MODEL G SYSTEMS 1646 * 
1594 * 1647 * SEARCH SEARCH VTOCS FOR FD6,143—9FCO AND INSERT 
1595 €#&HSSRESERRSSERESERSERERERSESRES EES SRESEAEELESERETEEST ES SELESESE SESS E SE € 1648 * DESK ADDRESSES IN *B LOAD* 
1596 | 1649 ERREKREKALSEKESKAKESIASSSKSKSSEAESSERRSSHSERKESSSSS 
1030 C2 01 0232 : 1597 ISAO LA X*0232*,XR1 SET-UP XR1 ADDRESS FOR UTAB TABLE *GC# 1650 
1034 7D Ad 00 1598 cLI O(,XR1),X*A0t SEE IF DISK IS A 5444 “GC * e 1650 
1037 F2 O01 04 1599 JNE ISAl JUMP IF NOT A 5444 DISK *GC* 10A4 34 O08 1108 1651 SEARCH ST SRX4+3,ARR 
103A 3C AO 1138 1600 MVI DKFLAG »X* AO* IDENTIFY IT A 5444 DISK *6C*!) 10A8 3C 18 1070 1652 | MMVI FLG1.X*18* SET BRANCH TO LOAD FLAG BITS 
1601 ’ €  10aC 3C 00 1FEE 1653 MVI -X*1FEE'ZO SET TO ZERO AS FLAG 
103E CO 87 10A4 1602 ISAl 8. SEARCH GO GET DISK ADDR OF PROGRAKS *GC*, 1080 3C OO 113C 1654 MVI SRFELAG, 0 SET FLAG TO ZERO (SUPPORT INSTR aT *1FFO*3 
1603 | 10B4 CO 87 022A 1655 8 LOAD SEEK TO VTOC AND CHECK FOR PROGRAM 143 
1042 38 20 113C 1604 TBN SRFLAG-BIT2 SEE IF FD6 FOUND ON DISK | €3 16B8 02 1088 1656 : oc XL1*O2° 
1046 F2 90 2c 1605 JF FDE6RIN IF NOT, DON'T RUN j 10B9 C2 Gl 0880 1657 LA X*880*, XR1 LOAD XR AS POINTER TO vTOC RECORD 
aera Bek 1606 €E484E46EEEEEEEEEETEESSEESEESEES ESE EESRESELE ERE SES SEESERSTERE SE SEES | 1658 ence eetmenemermanee 
Roe 1607 * TEST UDT TABLE FOR DISK FILE 3340 OR DISK FILE 5444 | & 10B9 CO 87 O22A 1659 READRC B LOAD , TG READ NEXT RECORD INTO K*880* 
1608 KREERERESESESEERERELESSEESEEEKEEEREEEEESERESESSERESERSERELKS SHERBET LEETAE | 10C1 10 10C1 1660 oC xL1°10° 
1049 3b AO 1138 1609 cLt DKFLAG,X*A0* SEE IF DISK IS A 5444 10C2 70 FF OO 1661 Cul OC,XRLIX*FF* TEST FOR END OF ¥TOC 
104D F2 81 12 1610 JE F065 JUMP IF IS | : | © 10C5 CO 81 1167 1662 BE NE2 ; Jume IF VES 3 
1050 OC OL 1097 L1F2 1611 MVC ADR 143(2) ,CCHHOAa MOVE IN ADDRESS OF 3340 CCHHR (143) | 10C9 70 00 00 1663 cLi O(-¢XR13,0 TEST FOR END OF VTOC . 
1056 OC O1 LFEF LIF4 1612 vc X*LFEFP'(2),CCHH1Aa MOVE IN ADDRESS OF 3340 CCHHR (FCO) \ 10CC CO 81 1167 1664 BE NE2 JUMP IF YES ; 
105C OC 01 1072 LIF6 1613 vc fD6A(2},CCHH2a MOVE IN ADDRESS OF 3340 CCHHR (FD6) €: 10D0 4D 02 O02 1363 1665 cic 2(34XR1L),ACTKON TEST FOR AN ACTIVE VTOC ENTRY : : 
1062 1614 FD6D EQU ® } 1005 CO O1 1167 . 1666 BRE NE2 JUMP IF NOT ®ACT* : 
1615 ERESEKERESEREGESLAKETERSERKESESEEEERES ES FERREKECESSLERE KEKE ESLER SESE ! 1667 : a : 
1062 OC C1 1LFFS 1074 1616 mvc X*1LFF5*(2),FO6ADR SET UP FOR FD6 TO COME BACK | @ 10D9 3D C1 0232 1668 cul UTAB,X*CL* CHANGE DISPLACEMENT OF ID IN VTOC 
1068 3A 01 020D 1617 S@N SBYTE5S»,SSW2F SET ON SSW 2F TO SHOW FO6 TO LINK BACY. | 10DD F2 81 04 1669 JE ISWIN ic ENTRY FF THIS IS 5444. 2 
106C CO 87 022A 1618 8 LOAD LOAD AND RUN LSR TESTS 10EO 3C O07 10E8 1670 MVE MVCIO0+4, 105444 IF 3340, LEAVE DISPLACEMENT AS IS: 
1070 08 1070 1619 FLGL oc xXL_1°08° } Se 10E4 1671 ISWIN EQU * : 
1071 OFD6 1072 1620 FD6a oC XL2*DFD6*t DISK ADDRESS FILLED IN BY *SEARCH® RTN | 10E4 1C 02 LIEL 06 1672 MVCID MVC VTID(3) .103340( -XR2D MOVE IO IRTO TEMP AREA : 
1073 1075 1074 1621 FD6ADR DC AL2(FD6RTN) 1673 f e 
1075 1622 FD6RTN EQU x RETURN HERE FROM FD6 é 10E9 OD O02 L1El 1366 1674 TRYFD6 CLC VTID(3}).FO6KON Loox FOR ID OF. FO6 *GCOP . 
1075 OC 10 0010 LILE3 1623 MVC 16(17) -GOLOAD416 STORE A PROGRAM RESTART AT 0060 1OEF F2 01 OE 1675 JNE TRYOUT ; : 
i 1078 3C 10 O1FD 1624 TSTFD6 MVI X*1FD*®,X*10° RESET FLAG BIT FOR LOAD RIN nt 10F2 1C O01 1072 O04 1676 MVC £060(2) eVTADC »XRED MOVE IN DISK ADOR OF FD6 (5444) 5 
hie ; i & 10F7 1C 04 LIFO OE 1677 MVC CCHH2(5),VT33t-XR1) MOVE IN CCHHR ADOR FROM ¥TOC (3340) i 
10FC 3A 20 113C 1678 SBN SRFLAG, BIT2 INDICATE FD6 FOUND i 
& : 1100 1679 TRYOUT EQU * t 
ei e 1100 38 20 113C 1680 TBN SRFLAG,BIT2 SEE IF FOUND YET : 
1104 CO 90 10BD 1681 BF READRC : GO LOAD 143 ETC 
fs. os 1108 CO 87 0000 1682 SRX B et RETURN TO CALLER SECTION : 
‘on ) 110C OD O02 11E1 1350 1683 TRY143 CLC VTID(3) »MICLDR ID OF MICROCODE LOADER (143) *sGCOP : 
' 1112 F2 01 OE 1684 JNE TRYFCO READ AGAIN IF JD NOT FOUND ‘ 
en. gms 1115 1C 01 1097 04 1685 MVC ADR143(2),VEFADEsKR1} MOVE IN OISK ADDR FROM VTOC (5444) 
* { €& 111A 1C 04 LIE6 OE - 1686 MVC CCHHO(5)2VT330,XR2) MOVE IN CCHHR ADOR FROM WTOC (3340) 
i LLIF 3A 80 113C 1687 SBN SRFLAG,e BITO : INDICATE 143 FOUND ; 
a ! 1688 : “7 
Sir . i G 1123 OD 02 11£1 1360 1689 TRYFCO CLC VTID(3),MICDAT ID OF MICROCODE DATA (FCO) *GCOP . 
, , : ; 1129 CO O01 1lOED 1690 BNE TRYFD6 READ AGAIN IF ID NOT FOUND : 
or : : i 112D 1C 01 IFEF 04 1691 ~ MVC X* LFEFS (2) eVTADESXRL) MOVE IN DISK ADDR FROM VTOC (5444) 
- | & 1132 1C 04 11E8 OE 1692 MVC CCHH1(5)9\'T33€eXR19 MOVE IN CCHHR ADDR FROM VTOC (33403 ‘ 
DATE 29AUG75 OTNOV75 = 19MART6 ts 4 PROG ID Fee-2° Goate 29AUGT5 O7NOV7TS LOMART6 , : PROG 10, FFF@2: 
EC NO. 827804 827805 . 827872 a ' : PAGE 16. EC NOw 827804 827805 8273872 ; PAGE 16A | 
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ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT C ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1137 3A 40 113C 1693 SBN SRFLAG,BITL INDICATE FCO FOUND . 11€9 38 01 0208 1757 DOHA TON SBYTEO,SSWO7 
0007 1694 1D5444 EQU 7 DISPLACEMENT OF ID IN 5444 vTOC | (3 11CD F2 10 03 1758 JT GOLGAD 
“006 1695 103340 EQU 6 DISPLACEMENT OF ID IN 3340 VTGC 1759 
0004 1696 VTAD EQU 4 LOCATION IN VTOC OF 5444 ADDRESS | 1760 CERERERERESERECRERESSEEEEEAD SENSE SESSESESSSESES SER SERESE SSE ESSE ESSENSE SS 
OOOE 1697 VT33 EQU 14 LOCATION IN VTOC OF 3340 ADDRESS CCHHR e& 1761 * H H AAAAAAAAAAA 
1138 FF 1138 1698 OKFLAG DC XLI‘FF* *6C+| 1762 * H H A A 
113C 00 113C 1699 SRFLAG DC xL1*00" = 8I1T 0 - 143 ! 1763 * H H A A 
1700 * _ BIT 1 = FCO ¢€ 1764 * HHHHHHHHHH AAAAAAAAAAA 
1701 * BIT 2 ~ FD6 ; oe 2 : a : : 
1702 | 
113D 1703 VTEND €EQU * ENTER HERE ON LAST VTOC AND NOT ALL PGMS FOUND | 1767 * H H A A 
1230 38 80 113¢ 1704 TBN SRFLAG,BITO DID 143 GET IN 2? | ates SEARREESESESSESESSESE AEE EEERES ES EAE SESS SESERTERESE BESS SETOS SSS ISSE ASSES 
1141 F2 10 OE 1705 JT NE1 . : 
1144 OC 02 133D 1350 1706 MvCc IDLOST(3),MICLOR MOVE 143° INTO MESSAGE | & 1100 FO 3B 3F : tee eae ‘ tae a OCP LOADING COMPLETE 
114A CO 87 O21A 1707 B PRINT 1103 1771 A 
114E 02 114E 1708 BC xt1'o2¢* es hes 11D3 CO 87 0212 1772 B TEST ; CHECK DATA SWITCHES 
114F 1E 1146F 1709 oc IL1*30°* PROGRAM XXX NOT FOUND ON OISK | qs 1107 CO 87 O2F3 1773 8 XREFL 60 LOAD SECTION 
5 52 1710 oc AL2(NOTFND) 0002 1774 DROP XR2 
Rae es =" 1711 | 1775 SERREKEREREERESEEERESEERSESER ESSERE SE ERECRSESLESVHSSE RSS AGRE SSS ASSO IRGTSSSS 
1152 38 40 113C 1712 NEL TBN  SRFLAG,BITI DID FCO GET IN ? e@ 1776 * 
1156 F2 10 OE 1713 JST NE2 1777 * STORAGE oc*s FOR oce 
1159 OC 02 133D 1360 L714 MVC IDLOST (3) ,MICOAT MOVE ‘*FCO* INTO MESSAGE 1778 * 
LISF CO 87 O21A 1715 8 PRINT F @ L779 @#ERERLESSESRESREERAE SESE RESSER ESE SERKERECESESFERELELES SSS GSELESLSS ELS TES 
1163 02 1163 1716 oc XL1*02' 1780 
1164 1E 1164 1717 oc IL1*30° PROGRAM XXX NOT FOUND ON DISK 11DB 00 1108 1781 TEMPA OC XLi*oo* 
1165 1350 1166 1718 oc ALZ (NOTEND) & 110C 08 110C 1782 X08 oc xL1'08° 
i7is | 11D0D 0800 L1LDE 1783 TWOK OC XL2'0800" 
1167 38 20 123C 1720 NE2 TSN SRFLAG, BIT2 DID FD6 GET IN | 110F 000000 L1E1 1784 VTID oc XL3*000000* TEMP STORAGE FOR 10 FROM VTOC 
1168 F2 10 OE 1721 JT DOHO : | © 11£2 0000000000 11E6 1785 CCRHO OC xL5*0000000000' _ CYL HED REC FOR 143 (3340) 
116E OC 02 133D 1366 i722 MVC IDLOST(3) » FO6KON MOVE ‘*FD6" INTO MESSAGE 11€7 O00r000000 LLEB 1786 CCHH1 OC XL5*000C000000* CYt HED REC FOR FCO 
1174 CO 87 O21A 1723 B PRINT | 11€C 0000000000 11FO 1787 CCHH2 OC xL5*0000000000° CYL HED REC FOR FD6 
1178 62 1178 2724 oc XL1*02° C3 LiFl L1ES 11F2 1788 CCHHOa OC AL2(CCHHO) 
1179 1E 1179 1725 oc IL1*30° PROGRAM XXX NOT FOUND ON DISK | 11F3 11€8 11F4 1789 CCHHla@ ar Me ceuy 
= 117A 1350 LL7B 1726 oc AL2UNOTEND) F 1FO LIF6 1790 CCHH23a i 
117C 1727 OOHO equ) * | & iar? oi 11F8 1791 X100 oc XL2*100° 
117C CO 87 O21A 1728 | 8 PRINT 11F9 0008 11FA 1792 PRIV OC xL2'0008° PRIVILEGE MODE ONLY 
1180 17 1180 1729 oc XL1°17* SPACE 7 TIMES | 11FB C7 L1FB 1793 XC7 oC XL2°*C7* 
1181 FO 38 6F 1730 HPL 8 H0,HH HO HALT TO SHOW PGM*S MISSING | G RLFC F2 87 29 1794 J J TEST?7~TSTCRO-1 
1184 FO 6F 18 1731 HPL H4,HO SECONDARY HALT SAYS PGM*S MISSING | LIFF F2 87 33 1795 J1 J LE2—LX2 
1732 1202 0000 1203 1796 MASK DC XxL2*O8 
1187 CO 87 1108 1733 b SRX RETURN TO CALLER | @& 1204 00 1204 1797 OPNUM DC = XL1*0! 
1734 8665455494865 0EEE4SEESSSEEREESE SEES EESRESESESSESESTRSSEEED 1205 FOF4 1206 1798 OFOUR OC 012°4! 
se 1735 * 1207 00 1207 1799 FLAGS OC XL1°0" 
i 1736 * WRITE ON CRT ( TO GET RID OF ATTRIBUTE CHARACTERS ?) ¢& 1208 0000 1209 1800 x0000 OC xL2*0000° 
1737 * ; 120A 1488 120B 1801 FRST@ OC AL2CFRST) 
2 LV3G8 $HSFESSESSRESECEEERES FEKESESELEESKSELSESSESEKCASTLEROHR SSE SSS 120C O1E0 1200 1802 DO480 DC IL2*480? 
1188 1739 BLKCRT EQU) @ 
1188 3D FF 0879 1740 CLI = CRTFLG.X*FF® IS CRT MICRO LOADED 
116 CO O01 11C9 1741 BNE DOHA 1F NOT, DON'T BLANK 
1742 @ 
1193 3C O7 TECF 1743 MVI ERSSW4+1,X*O7* SET UP TO ERASE ON CRT 
1197 F3 18 80 1744 SIG = X*80*,SIOI DISABLE MICRO PROCESSOR 
119A F3 18 £0 1745 SIO =. X*EO*, SIO! ENABLE/START MICRO PROCESSOR @ 
119D OD FF 119D 119D 1746 CLC ==#(256)"* WAIT FOR MICRO PROCESSOR 
11A3 Ci 128 11C9 1747 TIG OOCHA,X*18° READY ? 
11A7 31 10 1209 1748 LIQ  X0000,X'10" LOAD CRT BUFF ADDR © 
11A8 31 18 1208 1749 L10 FRST@eX'1B* LOAD MAIN STORAGE BUFFER ADR 
ent! LIAF 31 12 120D 1750 LIG =00480,X'12* LOAD LENGTH GF WRITE TO 480 
- 1183 OC C7 15CA 15CB 1751 ex, | MVC LB (0200) L841 PROPOGATE BLANK THRU 5 CRT LINES @ 
1189 F3 16 91 1752 $10 X*91°%,X'10° WRITE BEGINNING MSG ; 
116C Ci 1F 118C 1753 TIG = #,X*1F* : HANG ON BUSY. ; 
11€0 OD 31 A1CO 11C0 1754 ctc) =—s_- #50 » * DELAY FOR INTERRUPT @ 
11C6 F3 186 02 4755 SIO = -X*02*,SIO0I RESET PENDING INTERRUPT 
fw: 
€ ® 
DATE 29AUGTS OT7NOV?S $$ 19MAR76 PROG ID FFF-2 oare 29AUG75 OTNOVTS LOMART6 — ; PROG 1D FEF-2 
EC NOw 827804 827805 827672 ____ PAGE 7 EC NOw 827804 827805 827872. : PAGE ATTA, 
r ; . . : : oH : : . A ee 
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j t". ; ; 
FFF2 DIAGNOSTIC CONTROL PROGRAM — MODEL 12 FFF2 DIAGNOSTIC CONTROL PROGRAM - MODEL 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT € “ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1804 Se€SeSSSSRSEKE ; as 1379 CO 87 O21A 1839 8 PRINT 
1805 * PRINTOUTS SERKCHEEAEKREEKKO RK AKKKSS SKECKEARESERESEEKKSESKLESRATHKEKKESLAKAE . 137D 22 137D 1840 ct XLL*21? 
1806 eeeeeSeeeKeee 137E OF CO 138C 039F 1841 suc CNT+ONE 
1807 . 7 1384 CO 01 136F 1842 BN 
120E D3D6C1C4C509 1213 1808 LOR DC  CLO6*LOADER! € 1388 CO 87 0000 1843 PTIXa 8B 4-4 
1214 D7D9C9DSE3SC5D9 «= EZRA 1809 PRNTR OC  CLT*PRINTER* 138C 00 138¢ 1844 CNT oc IL1°0° | 
. e e 
re ekaee ahenee icy fore Tete eee is ene ree Senate oe : G 1846 REREEKEAEREREERESEEREEARERRSRERERERER SRE SER AREEERARERHE ES LES ESLESSS OSES 
122B C54040ETETETD2 1810 1847 * CHECK IF PASSED 1D IS IN UDT ( SUBROUTINE De earee, 
1232 404040C3D7E440D6 3255 1811 LINELA OC CL36" CPU OPTIONS ARE X * | TOGETHER e 1848 EXHGARSHREREHEAESEES SERS AEHEARERELE SS ASHARESETESE SSSR ELESOES 
123A DTE3C9D605E240C1 1811 1849 
1242 D9C54040E7404060 1811 ; 138D 1850 CHKID EQU * 
124A 4060604040404040 1811 _..  438D 34 08 138F 1851 ST  CHKXS+3,ARR 
1252 40404049 1811 ~€ 1391 34 01 1388) 1852 ST  CHKSR1+3,XR1 
1256 40 1256 1812 a © \ we 1395 35 O01 13BF 1853 L CHKXa+3,XR1 
1257 E4DSC9EZ4OC4C5C6 E2GC 1813 DC CL22*UNIT DEFINITION TABLE * _. 1399 OE 01 138F 039F 1854 ALC  CHKX943(2),0NE 
125F C9DSC9E3C 9060540 1813 €°—-139F 1 00 13A9 00 1855 MVC SIDE 1B) OF pXR1P - 
1267 €3C 1C2D3C540 1813 13A4 £2 01 0232 1856 LA  _—- UTABy XR1 SUBROUTINE TO CHECK IF A PAZSED 
1260 4B4B4B4B840046ESE2 £289 1814 LINE2 DC CL29% sees MUST BE CORRECT ~VERIFY-* C 13A8 7D 00 CO 1857 ia a ateentyRe ID IS IN THE UDT TARLE. ON EX! 
1275 £340C2C540C3D609 1814 S, 13A9 1858 S uo oe 
7D D9C5C3E 34060E 1814 - “"-43AB F2 B81 OA 1859 JE CHKSR1 THE CONDITION CODE WILt BE SET 
tues Be receenae arg 1814 _ «1 3AE 78 10 01 1860 TBN 1 eXR1)9X€108 TO EQUAL IF ID 1S PRESENT, NOT EQUAL 
1284 4040406040404040 E2A3 1815 LINES OC CL26* * * €> 1381 02 01 03 1861 LA . 30 9XR1)»XR1 IF ID 1S NOT PRESENT 
1292 4040404040404060 1815 13B4 CO 90 13A8 1862 BF XTCHKL 
1298 4040404040404040 1815 : : 1388 C2 01 0000 1863 CHKSR1 LA = #%,XR1 
12A2 4040 1815 , €} —138€ Co 87 0000 1664 CHKX@ 8 a-¢ 
12A4 4040404040404060 1204 1816 LINE OC CL33* DCP IS LOADED® 
12AC 40640464040406040 1816 | 
1284 40404040C4C3D740 1816 , @ . 
128C C9E240D3D6C1C4CS 1816 ; 
12C4 C4 1816 
12C5 40404040404040468 B2ZDA 1817 pc = «CL 22" * © . : 
12CD 40404604040404040 1817 : : : 
1205 404040404040 1817 | ———— 
12DB 6060606060606060 L2F7 1818 DASH OC 29CL1°-* | © : 
12E3 6060606060606060 1818 | : 
12EB 6060606060606060 1818 | : 
12F3 6060606060 1818 1@ 
12FB C&ESDSD740E3C1LDT 1325 1819 oc CL46"DUMP TAPE ERROR STATISTICS BEFORE RUNNING DISK! | 
1300 C540C50909D6D946 1819 A 
1308 E2E3CLESC9EZE SC 1819 & : 
1310 C3E240C2C5C60609 1819 : 
1318 C540D9E4D5D5C905 1819 
1320 C740C4C9E202 1819 | @ 
1326 40C4C9CICTN506E2 2332 1820 xMi OC CL13" DIAGNOSTICS-* 
132E €3C9C3E260 1820 | ‘ 
1333 D7D9D6C7D9C 10440 2330 1821 IDLOST DC CL1L*PROGRAN XXX? —-- | MUST BE TOGETHER); @ : 
1338 ETETE? 1821 : 
133€ SO0DSD6E340CED6E% 2350 1822 NOTFND DC  CL19* NOT FOUND ON DISK *¢ —— | 
1346 05C440D60540C4C9 1822 | . e 
134E £20240 1822 
1351 1623 OPTTAS EQU * TABLE FOR CPU OPTIONS 
1351 FLEZF3F4ESFGFIFS 1359 1824 DC CL9"123456780° Q SIGNALS END | & 
1359 08 1824 | 
1354 00 235A 1825 OPBUF DC  xXxL1*O0" 
1358 FLFSF3 135D 1826 MICLDR DC CLO3*143° i\@ 
135€ C6C3FO . 1360 1827 MICDAT OC CLO3*FCOt | 
1361 CiC3E3 1363 1826 ACTKON DC CLO3*ACT®. 
1364 C6CSF6 1366 1829 FD6KON DC CLO3"FDE* | @ 
1830 i 
1831 SHEKESESRERERERERRETETEERSSECEESERERSESSERELKEREKESSERTESRRSERERSLESLRESKE | : 
1832 © SUBROUTINE TO PRINT 9 —---=- -~------ |@ : 
: 1833 SRLELESKSSERESTEERKESEKESEREKESEE ASKER SERS VERAAERLSSSLERESLEL SLES SSRELE | is 
:: 1834 < . : : 
1367 36 08 1338 1835 PTX ST PTXat3,ARR \@ : 
1368 3C 02 138C 1836 MVI CNT, 2 | 
136F 3C 60 O8BC 1637 xz1 aI X*880°460,C*-* 
1373 OC 3A 0888 O88C 1838 MVC X* 880'459(59) 2X? 680" 460 |@ : 
DATE 29auG7TS OTNQVTS LOMARTE PROG ID FFF-2| Geoate 29AUGTS OTNOVTS LOMART6 Cathe bo ese yea : 
EC NO. 827804 827805 827872 PAGE 18 | "EC NO. 827804 827805 827872, | | | PASE fe Soe 
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FFE2 DIAGNOSTIC CONTROL PROGRAM ~ MODEL 12 | FFF2 DIAGNOSTIC CONTROL PROGRAM ~ MODEL 12 





ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT { ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1866 RbEREREKEEEERESEREREEEESS ED EEEEEEREESEESESESESSEESS SESEEETESESESESES TERE an 146C 51 146C 1934 oc XL1°51* 1442 DEVICE CODE 
1867 * C. 146D F2 01 09 1935 JNE  HHHALT GO HALT IF 6O ALT. FOUND 
1868 * —- OVERLAYS 1470 OC 48 O7DE 1803 1936 MVC —« PRTNA475176) pPHALT+75 OVERLAY ALT. CODE WITH 1442 COoE 
1869 * , 2 1476 F2 87 03 1937 J SAVE1 EXIT THIS ROUTINE 
1870 * PERFORM VARIOUS 3VERLAYS AND SET UP VARIOUS fs 1479 FO 3B 3B 1938 HHHALT HPL HH»HH HALT TO INDICATE NO ALT. FOUND 
1871 * 147C C2 01 0000 1939 SAVEL LA *-%eXR1 RESTORE XR1 
1le72 * LINKAGES NECESSARY BASED ON MODEL AND PRINTERS ee 1480 1940 LVMOS EQU # 
1873 * Ce 1480 CO 87 0212 1941 8 TEST 
1874 * ATTACHED FOR PROPER FUNCITONING OF OCP 1484 CO 87 0000 1942 LEXIT 8 %-¢ 
1875 * ' 1943 
1876 * THIS SUBROUTINE IS EXECUTED ONLY ONCE-—- WHEN THE €& 1943 
1877 * FIRST COMMENT (*) CARD IS ENCOUNTERED OR WHEN 0411 1944 USING DATSWS—1,»XR2 
1878 * DCP*S END (£) CARD IS READ. © 1488 BO 00 01 1945 TSTINS SNS  DATSWS(,XR2950 
1879 * Z 
1880 SRAREERESEESTEEESEEEEEERER EE EESEEESSERESESSEELESESLESES SS SFELEBES SESS ESS 
1881 | 
13C0 1882 XREF2 EQU * | S 
13CO 34 08 1487 1883 FIXMOB ST LEXIT+3,ARR 
1884 
13C4 3D SC 0880 1885 CLI x*880",Ces? 
13C8 F2 81 08 1886 JE TRYCPU 
13C8 30 C5 0880 1887 CLI X*880*,C*E* 
13CF CO 02 1480 1888 BNE LVMOB 
1303 3D 00 0200 1889 TRYCPU CLI X*200*,X*00! IF A CPU CARD PROCESSED, THEN 00 FIXMOB 
1307 CO 02 13E5 1890 BNE TSTUDT —HO- HALT * CARD FOUND BEFORE CPU/UDT CARDS 
1308 FO 38 6F 1891 HOH HPL HOsHH ; 
13DE FO 6F 76 1892 HPL H2,sHO SECONDARY HALT. * COMMENT OR END FOUND BUT NO CPU; 
13€1 CO 87 1480 1893 B LvMOoB 
13E5 1894 TSTUDT EQU) * | ® 
13E5 3D 00 0232 1895 CLI UTAB,0 IF NO UOT CARD THEN HALT 
13€9 CO Sl 1308 1896 BE HOH 
13ED CO 07 1480 1897 ONCEXX BC LVMOB, X*07! DO THIS ROUTINE ONLY ONCE ® 
13F1 3C 87 13EE 1898 MVI ONCEXX41,X'87° 
— 1899 
1365 OC 01 029€ O1FD 1900 MVC ENTRY102)9X* LFD® \@ 
13FB8 OC O01 0337 O1FF 1901 MVC soCENTRY2(2)eX*1FF*® MOVE ENTRIES POINTS 2 INTO LOAD RIN | 
1401 OC 02 0458 148A 1902 MVC =—- FSTOVL4203) , TSTINS+42 
1407 38 80 0233 1903 TBN UTAB41,X*80° 1S THIS A DISK SYSTEM © 
1408 F2 10 19 1904 Jt OSKSYS 
140E OC 02 0300 1201 1905 MVC =: LX 2-103) pJ142 | 
14614 3C 00 0466 1906 MVI - TSTDSKy0 @ Se 
1418 OC 02 O48F LIFE 1907 MVC) = TSTCRO(32,54+2 | 
141€ OF 03: O1FF OI1FF 1908 SLC OTABLE+1(4),DOTABLE+] CLEAR CARD LOADER FLAGS. 
1424 F2 87 06 1909 J NOTD NO DTABLE CLEAR ON CARO SYS | & 
1427 1910 DSKSYS EQU) * 
1427 OF 05 O1FF O1FF 1911 SLC OTABLE+1(6) eDTABLE+1 CLEAR DTABLE FOR DISK SYS 
142D 3D C5 6200 21912 NOTD CLI  SMOD,C*E* TEST FOR MODEL €E eS 
1431 F2 01 03 1913 JNE CKCIO JUMP IF NOT ' 
a 1914 © 
i 1915 * ore MOVE OF CRT OVERLAY WAS HERE @ 
1434 F2 87 49 1916 LVMOB 
1437 1917 CKCIO or * ' 
1437 36 01 147F 1918 st SAVE 143¢XRL SAVE XR1 | & 
143B CO 87 1380 1919 8 CHKIO : 
143F 10 143F 1920 oc XL1°10° ALT. PRINT RTN. WITH 5471 MODULE \ 
1440 F2 01 03 2921 JNE TR5424 JUMP IF NOT 5471 & 
1443 F2 87 36 1922 J SAVE 1 IF S471, THEN NO MORE CHECKING | 
1446 CO 87 138D 1923 TR5424 6 CHKIO CHECK FOR A 5424 ATTACHED i 
ms 1444 FO - 144A 1924 pC 30 sxXLRfFOF $424 DEVICE CODE 1@ 
1448 F2 0% 09 1925 JNE TR3T41 GO TO CHECK NEXT DEVICE | = 
144E OC 38 O7CE 16C3 1926 MVC =—- PRTNA4#59(60) ¢MHLT2459 GVERLAY ALT. CODE WITH 5424 CODE : 
1454 F2 87 25 1927 J SAVEl EXIT THIS ROUTINE t @ 
1457 CO 87 1380 1928 TR3741 6B CHKID CHECK FOR A 3741 ATTACHED 
1458 40 1458 1929 oc XL1°40° 3741 DEVICE CODE 
145C F2 01 09 1930 JNE TR1442 GO CHECK NEXT DEVICE | e 
145F OC 42 0705 LICA 4931 MVC PRTNA4¢66(67) pOHALT¢66 OVERLAY ALT. CODE WITH 3741 CODE \ 
1465 F2 87 14 1932 J SAVE1 EXIT THIS ROUTINE { 
1468 CO 87 138D 1933 TR1442 B CHKID CHECK FOR A 1442 ATTACHED @ 
: \ 
DATE 29AUGTS OTNOVTS ROMARTS PROG ID FFF-2: Eoate 29AUG7T5 OTNOVTS 1OMART6 PROG 10 FFF-2 
EC NOQ- 827804 827805 827872 Ect io wats 5 cath _ .. . PAGE 19 EC NO. 827804 827805 827872 PAGE 
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FFFZ 


ERR LOC OBJECT CODE 


1488 
1493 
1498 
1443 
14AB 
1483 
1488 
1403 
14CB 
1403 
1406 
14E3 
14EB 
1453 
14FB 
1503 
1528 
1553 
1578 
15A3 
15C8 
1503 
1508 
15€3 
15EB 
15F3 
15FB 
1603 
160B 
1613 
1616 
1623 
1628 
1633 
1638 
1643 
1648 
1653 
1658 
1663 


40404040606060450 
6060606060606060 
6060606060606060 
6060606060606060 
6060604040404040 
404040404F 404040 
4004400 340074040 
404003400640C 140 
C440C€5 4004404040 
404.04F4040404040 
4040404060606060 
6060606060606060 
6060606060606060 
6060606060666060 
6060604040404040 


404040404046F 3F 2 
FTFO40D4C9C 30906 
60C€30D6C4(5400306 
C10 4C5C 440404040 
4040404046404049 
4040404040404040 
4040404040404040 
4£040404040404040 
4040404040404040 
404040404046 4040 
40404040E4E2C540 
C3D605E 206D3C540 
E2E6CIESC3CECSE2] 
40E 3D640E2C503C5 
C3E 3404040404040 
40404040C4C5E2C9 
09C5C4400709D6C7 
DIC 1044340404040 
4040404040404040 
£040404040404040 


DATE 
EC NO. 


29AUGT5 


827804 ' 827805 


ADOR 


1488 
1462 


140A 


i502 


152A 
1552 
157A 
15A2 
15CA 
15F2 


161A 


1642 


166A 
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STMT SOURCE STATEMENT 


1947 FRST 
1948 
1948 
1948 
1948 
1948 
19489 
1949 
1949 
1949 
1949 
1950 
1950 
1950 
1950 
1950 
i951 
1952 
1953 
1954 
1955 
1956 
1956 
1956 
1956 
1956 
1957 
1957 
1957 
1957 
1957 
1958 
1958 
1958 
1958 
1958 
1959 
1959 
1959 


LB 


- 1959 


OTNOVTS 


1959 


ISKRART6 


827872 


EQU 
oc 


oc 


oc 


oc 


oc 


+ 
Ct40* 


CL40* 


Ct40* 


CL40 
CL40 
CL40 
CL40 
CL40 
CL40* 


ct4or 


CL4aor 


CL4or 
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PAGE 20 | C 
|“ Eee2 DIAGNOSTIC CONTROL PROGRAM - MODEL 12 
€ ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
| 1961 
---------------- -—----— ‘ 1 & 1962 * 5424 ALTERNATE CODE * 
| 1963 EKEKEKREEESLKSERKEKSKEEKESSERSASKECKLE 
| FFE2 1964 ORG X"FFFFI-x'1688¢ +8 
€ 1688 1965 ORG x*1688° 
0717 1966 USING PRTNsXR2 
i DCP LOADED i t . 1688 1967 USING MHLT2,XR1 
€ : 1688 FO 36 SF 1968 MHLT2 HPL H9eHH 
| 168B EO 87 13 1969 B PRTNI ()XR2) 
_- 168E BD EO 5D 1970 AL5424 CLI PRSIO+14,XR2) eX" EO! 
| C1691 £0 81 65 1971 BE  - PRTEXT(,XR2) 
seiek eee Rie areas ' 1694 BO F3 40 1972 SNS - MSTAT(, XR2) eX E3* 
1697 B8 10 3F 1973 TEN - MSTAT-1(pXR2) 9X" 1G" 
| €2 169A F2 10 09 1974 JT DOIT 
| 169D 01 F8 00 1975 TIO  MHLT2¢,XR1) »X" FB" 
.. 1640 F2 FB 00 1976 SIO K#G*y XtFBE 
1&2 16a3 02 FL 18 1977 BSYLPO TIO  BSYLPO(,XR1},X*F1® 
16A6 D1 F& 00 1978 DOIT TIG MHLT2¢—eXR1L)X*FBE 
.  16A9 BL F4 42 1979 LIO PRI 9 XR2) 9X" FS! 
€> 16ac F3 FC AG 1980 SIO X*aG*,X*FCS 
| 16AF BO F3 40 1981 BSYLPL SNS  MSTAT(,XR2) ,X°F3* 
3270 MICRO-CODE LOADED ’ . 1682 B8 40 3F 1982 TBN - MSTAT=10¢XR2) 5X*408 
| €3 1685 DO 10 27 1983 BT —«- BSYLP1(,XR1) 
| 1688 01 F8 00 1984 TIO  MHLT2(,XR1)-X*FB° 
. 1688 OC 83 OBFF 0900 1985 MVC —_—- LPDATA#131(132) »LPDATA4132 
| €2  16C1 £0 87 65 1986 PRIEXT(, XR2) 
* 1987 
1988 * 3741 ALTERNATE CODE * 
J 1989 HERSEEESEKEESEESESSSESECSESEESROEKESLESS 
| FF36 1990 ORG X*FFFF*-X*1788' +8 
1788 1991 ORG xXx*1788° 
USE CONSOLE SWITCHES TO SELECT ‘ @ 0717 1992 USING PRIN, XR2 
1788 1993 USING DHALT»XR1 
. 1788 FO 3B SF 1994 DHALT HPL  H9-eHH 
178B EO 87 13 1995 B PRINL(XR2) 
178E 71 41 3E 1996 LIG FUNCSH(,XR1)»X*41° 
DESIRED PROGRAK. . 1791 8D EO 5D 1997 RITREC CLI PRSITO+1¢,XR2),X*EO* 
€3 1794 €0 81 65 1998 BE = PRTEXT(, XR2) 
1797 70 43 40 1999 XERSNS SNS XPRLINGsXR1D,X*43° 
. 179A 78 04 3F 2000 TBN  XFERLIN-1(¢XRL) »X* 06" 
-€ = 1790 00 90 00 2001 BF  DHALT{,XR1) 
17A0 78 O01 3F 2002 TBN XERLIN-1(,XR1)eX*01° 
1743 ‘DO 90 OF 2003 BE  —- XERSNS(»XR2} 
17A6 F3 43 08 2004 $10 X*08*,X#43° 
1749 31 44 0758 2005 LIO  PR2eX* 448 
| ex: NTAD 72 42 42 2006: LIO RECLEN( »XR2) X* 42° 
€ 1780 £3 42 00 2007 SIO -X*00*,xX*42° 
| 17B3 Dl 42 26 2008 ISBIZ TIO ISBIZ¢eXR12eX*42* 
| ex ‘TBE BO 42 40 2009 SNS MSTAT( oXR2) 9X*42* 
E} 1789 89 OA 3F 2010 TBE MSTAT—109XR2) gX*0A® 
| 17BC DO 90 00 2011 BF  - DHALT (»XR1? 
| em LIBE F3 43 08 2012 SIO -X*08*,X#43° 
1 €} 1702 £0 87 65 2013 B PRTEXT(¢XR2) 
| 17C5 4000 17C6 2014 FUNCSH DC ~—-XL2*4000° 
17C7 0000 17C8 2015 XFRLIN DC xt2°00* 
; © 1709 oo7F 17CA 2016 RECLEN DC = XL2*007F* 
2017 
2018 * 1442 ALTERNATE CODE * 
& 2019 EE SKEKKESSEEKSERESESESRESESESESESKESECKSERE 
FF42 2020 ORG X*FEFF*-x*1888¢¢" 
| 1888 2021 ORG x*1888° 
{ @ O717 2022 USING PRTN,XR2 
| 1888 2023 USING PHALT, XR1 
io 1888 FO 3B 5F 2024 PHALT HPL H9eHH 
Cs 1886 €0 87 13 2025 B PRINI(»XR2} 
188E 8D EO 5D 2026 PUNS2 CLE PRSIO+1(,XR2) eX®EO* 
| 1892 EO 81 65 2027 BE  —- PRTEXT(,YR2) 
G s1sc4 B81 54 44 2028 LID = PR2( 9 XR21 9 X*548 
PROG ID FFe2| E30aTteE = 29AUG7TS  OTNOV7S 19MARTE 
ieee eee PAGE 20! EC NO. 827804 827805. 827872 
| | 
| 
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IF FLAGGED, OVER LAY PROBLEM 


*MFCU NOT READY OR ERROR 


4248230 
20& 


KEERREAEEBAKETERKERESSERESERER EERE TES SEKESKELEREKSSVECESEAS SKESSESHLSEKLE SSS 


GO EXIT IF THIS WAS SPACE OPERATION 


READ MFCU STATUS 


IF NO CARD IN SEC WAET STATION, 


ISSUE FEED COMMAND. 
TEST FOR MFCU NOT READY 


GIVE WITH THE FEED COMMAND 


TEST UNTIL NOT BUSY 
GO HALT IF MFCU NOT READY 


LOAD MFCU PRINY ADDRESS REGISTER 


PRINT ON MFCU CARD 
WAIT FOR BUSY TO DROP 
FEST FOR BUSY 


GO HALT IF ANY ERRORS 
BLANK PRINT BUFFER 
RESTORE XR2 AND RETURN 


“IF FLAGGED, OVER LAY PROBLEM 


*3741 NOT READY OR ERROR 


RETURN TO TRY AGAIN 

LOAD FUNCTION REG 

IS THIS A SPACE OPERATION 
RETURN IF IT IS 

SENSE THE TRANSFER LINES 


TEST FOR 3741 ON-LINE BIT ON 
GO HALT IF 3741 NOT ON-LENE 


TEST FOR WRITE BIT ON 
LOOP IF WRITE BIY NOT ON 
NORMAL RESPONSE TO 3741 


LOAD DATA ADDRESS REGISTER 
LOAD LENGTH COUNT REGISTER 


WRITE A RECORD 
WAIT TILL NOT BUSY 
GET THE STATUS BYTES 


** SHEERS SERESECESES SSS ETESSSESS RELEASE LARS SLERTSSSESESSE SESE SES ES SEE 


TEST FOR PARITY ERROR OR OVERFLOW 


IF ERROR, HALT AND TRY AGAIN 
NORMAL RESPONSE TO THE 3741 


RETURN TO RETURN ROUTINE 
FUNCTION REGISTER DATA 
TRANSFER LINES DATA AREA 


LENGTH OF RECORD TO BE WRITTEN 


IF FLAGGEDe GVER LAY PROBLER 


#1442 NOT READY OR ERROR 


TRY IT AGAIN 


SKEKEEEEEESSESESEREELESEKREEEAKSESERLSESTESSAESS LEASES KERTSESE eeneeserseseees | 


EXIT IF THIS WAS A SPACE OPERATION 


LOAD PUNCH DATA ADDRESS REGISTER . 


PROG 10 
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PAGE 210 ow PAGE 2ia 
we 
EFF2 DIAGNOSTIC CONTROL PROGRAM - MODEL 12 FFF2 DIAGNOSTIC CONTROL PROGRAM - MODEL 12 
ERR LOC GBJECT CODE ADDR STMT SOURCE STATEMENT COERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1897 71 50 4A 2029 LIO  PUNNUM(»XR1)9X*°50° LOAD PUNCH COUNT REGISTER (128-N) Pa 2090 C#RREREEEERESEREAERESS SSE SORES AED OSSES 
189A D1 50 00 2030 PUNERR TIO PHALT(,XR1)2X"50° TEST FOR NOT READY OR ERROR > 2091 
189D F3 54 00 2031 sid X*00',X*54* PUNCH ONLY 2092 SRCARERREEREEREERESERE SERRE EEERRE FEHASERS 
18A0 DL 52 18 2032 BIZZEE TIO BIZZEECyXR1)»X*52° WAIT FOR BUSY TO OROP 70466 2093 DGDUMP EQU * 
18A3 BO 53 40 2033 SNS - ASTAT( 9 XRZ) 9 X* 53° GET STATUS BYTES €- 7046 CO 87 O21A 2094 8 PRINT SPACE 
18A6 B9 36 40 2034 TRF  MSTATU,XR2),X*36! CHECK FOR ANY ERRORS 704A 11 7D4A 2095 pc XLL*ii* 
1889 B9 OF 40 2035 TBE MSTAT(,XR2Z)—X*OF* MORE ERRORS? 3 7048 CO 87 O21A 2096 B PRINT CLEAR BUF 
18A4C DO 20 12 2036 BF PUNERR(,XR1) REPUNCH THE CARD {  7D4F 81 ID4F 2097 oc XL1SB81i" 
1BAF 70 FF 4B 2037 CLI FLGTWO(»XR1) ,X*FF® CHECK IF 2ND CARD FLAG IS SET 7056 28 7050 2098 pc IL1*40¢ CLEAR BUF 
1882 F2 81 16 2038 JE PUNDUN IF SET, THEN GO EXIT THIS RIN IOS1 7E25 7052 2099 oc AL2(DPNG) 
1285 3C 40 O8CB 2039 MMVI - LPDATA+79,X*40° MOVE IN FIRST BLANK ay 7053 OC 73 O8F4 TE9E 2100 MVC = - X §08 70 41204116) eDPMGL MOVE HEADINGS FOR OUHP 
1889 OC IF O8tA O8TB 2040 MVC LPDATA+78(32) sLPDATA+79 «= BLANK OUT REST OF INPUT AREA 7059 CO 87 O21A 2101 B PRINT 
18BF OC 2E O8AA O8FA 2041 MVC LPDATA¢46(47),LPDATA4126 MOVE IN THE REST OF THE DATA — 705D Al 7D5D 2102 DC XLi® AL! OWN AREA 
18C35 7C FF 48 2042 MVI  -FLGTWO(.XR1)5X*°FF* SET THE 2ND CARD FLAG /€:  7D5E 3C OF TDAG 2103 MVI - SRC e XP OF# BEGIN DUMPING AT 0000 
18C8 00 87 12 2043 B PUNERR(,XR1) GO PUNCH THE SECOND DATA CARD 7062 3C 00 7D0A5 2104 MVi —- SRC-14X* CO? 
18CB 7C 00 48 204% PUNDUN MVE  FLGTWOisXR1)2X!0° RESET 2ND CARD FLAG | 2, 1066 36 00 TOFS 2105 SNS  OWNGLDeX?00' MAKE OLD = PRESENT (SENSE SWITCHES) 
18CE £0 87 65 2045 B PRTEXT(eXR2) RETURN TO RETURN ROUTINE © 2106 
18D1 0030 1802 2046 PUNNUM DC XL2*0030' PUNCH COUNT FOR 1442 2106 
18D3 00 18D3 2047 FLGTWO OC XL1*0* FLAG FOR 2ND CARD PUNCHED Cc 7D6A 2107 DPLP E£QU) *# TOP OF DUMP LOOP 
2048 | €° 706A 30 00 TOF6 2106 SNS  OWNSHeX*OO" GET SWITCHES 
2048 7D6E OD O1 7DF6 TOFS 2109 CLC OWNSWE2}.OWNGLD IF NO CHG TO SS» GO ON 
2049 eCHESESEHAEHAEDEAESRERESEEEEAEROR AEDS OREREERE SES EE RES EAE EEE EEEER ERSTE ES e T1074 F2 8i 10 2110 JE CONTU ; 
2050 * «| & 2111 ° 
2051 * BEGINNING OF DCP RESERVED STORAGE. X*7800'<X*7FFF* (2K) | 2112 * MUST BE NEW VAL IN SW, SO INSERT IT 
2052 * 8s 7TD77 CC O1 TDAG TDF6 2113 NEWO MVC  SRC(2?.O0WNS# 
2053 * «| €: 7D7D 3C OF TOA6 2114 - MVE SRCoX*OF® START AT 256 BYTE BOUNTARY 
2054 Se RERERKHEERESERERGEAEREAERSEREA SEES CERES ETRE SHOALS TEESE SE SHS FLEES SE EES 7081 OC O1 TOFS 7DF6 2115 MVC. GRNOLD(2),0WNSH PUT NEW IN OLD 
7800 2055 ORG xX*7800° 3116 * BEFORE PRINT SEE IF WE'VE CHANGED TO NEXT X"400' BYTES 
7800 CO 87 0456 2056 TRYFDD 8 TSTOVL ; THIS INST GVERLAYED LY FOO © 7087 2117 CONTU EQU) #* 
2057 7087 OF CD 7OFB 70F2 2118 ALC  HDCTR(1},OWN16 SUMP CTR 
2057 Z 7D8D F2 20 10 2119 JNOL NODPMG CAUSES HEADING ABOUT EVERY 16 LINES : 
2057 2120.—«; | 
2057 7090 CO 87 O21A 2121 @ PRINT SPACE 
eS 2057 7094 11 7094 2122 pc XLL®LLS 
A 2057 €3 7095 0c 73 O8F4 TEDE 2123 MVC =. X68 7C #4 1200116) ,DPMG1 MOVE HEADINGS FOR DUMP 
2058 KKRREREEESEEREEAESEEREESRESEEDES ERS ORECESEES ESE SERED SEES SFOS 7O09B CO 87 02 1A 212% 8 PRINT > 
2059 * 7D9F Al WOOF 2125 oC XLI1‘AL* OWN AREA 
2060 * SPACE 1403 34 TIMES RATHER THAN 6 OR 7 @ 2126 
2061 * 7DAO 2127 NODPHMG EQU * 
2062 ERRCERERHERERERDREASSESEEREDEEEEEEEERERESSEE EERE SEREEEESSE EES OSES ES EEE 2128 * 
EE0S gue ORG X*FFFEt'-X*7D00'+* 1f FLAGGED, OVER LAY PROBLEM = 2129 * “4 gi h oes : 
64 ORG x*7000! 5130 * SEY UP DUMP PRINT LINE (3 UNPACKS AND THE ADDRESS} ; ; 
7D00 2065 SPC34 £dUuU) * TOAO CO 87 O21E 2131 8 UNP ACK i 
ype 28 23 oe Z06e TEN = SBYTE1,X*04° SSWOD a THESE INSTRUCTIONS € = 70a4 10 7DAS 2132 oC Iti*16* : 
, 67 JF GWN *@ FOR DUMP ONLY Tas 0000 7DA6 2133 SRC oc AL2(S-) r 
ie 8 - a709 2066 SBF SBYTE1,X*04! GET SSwOD OFF NOW *# r YDAT O8A6 TOAB 2134 oC ALZ(LPDATA+£46432) 
2069 6 DODUMP +t eS DAS OC O12 TOBB 7DA6 2135 HVC = SRELA 29s SRE 
Nog. 3 
WOOF 2070 GHN equ * *% 7DaF OE 01 7DBK TOF2 2136 ALC SRC1L(2)eOWN16 
TDOF 38 01 0209 207) JBN SBYTE1L,X*O1° 1F SSW OF ON, AND SP 6 OR MORE 00 34 7085 CO 87 O21E 2137 8 UNPACK 
1013 38 06 O5D4 2072 TBN NSPACE,X*06* € 7089 10 7089 2138 pc sELA"26° 
2073 JF DOREG 7DBA 0000 7D8B8 2139 SRCi OC AL2(¥—#} 
TD1LA 3C OD 0504 2074 MVI WSPACE,13 12 X% 3 = 36 ; 7DBC OBCE TOBD 2140 OC AL2 (LPDATA444643228432) 
TDLE OF 00 0504 7DFO 2075 DOREG1 SLC NSPACE(1),0WN2 SPACE 36 LOOP ©) 7DBE O€ 01 7000 7068 2141 MVC SRO2ZEZ} yg SRE 
oe ce oe a0ie By eet 7004 O£ 01 70D0 70F2 2142 ALC  SRC2(2),OWN16 
é 7DCA CO 87 O21E 2143 B UNPACK 
Z0ce coos ue 7020 a oc XL2"E003" SPACE 3 €> 10CE 10 IDCE 2144 oc IL1*16* 
B OGREG! S 7DCF 0000 7DDO 2145 SRXC2 OC AL2(*-#) 
7032 OF 00 0504 70FO 2080 DOREG SLC NSPACE(1L)»OWNE SPACE LOOP LIKE OCP _ TDD1 08F6 7OD2 2146 DC AL2 (LPOAT A44464324943248432) 
es cS pe aos ee a oy enexty ee €; 7003 CO 87 O22. 2147 8 UNPACK PACK THE SOURCE ADDRESS 
N TDOT 02 7DO7 2148 DC IL1'2? : Fe ‘ 2° Si = 
7040 £001 7041 2083 Dc XL2*EOO1* 1 IDD8 TDA6 7009 2149 DC AL2¢(SRC) a 
7042 CO BT 7032 2084 8 DOREG €: 70D 0884 70DB 2150 DC AL2(LPDATA+S*4} 
2085 TODC 3C FO 0884 2151 MVE = LPDATA+4#4,C*0° ELIMINATE THE F FROM ADDRESS 
2085 , TDEO CO 87 OZIA 2152 B PRINT —-~ PRINT THE LINE OF DUMP —- 
Saat RAeree etree Geen te re ts ee oe G TODE4 A2 JDE4 2153 oc XLItA2* OWN AREA 
7DE5 OE O1 TDA6 TDF4 2154 ALC SRC(2),0WNS8 
- 2088 * DUMP STORAGE ROUTINE IDEB CO 87 TD6A 2155 B pPLe CONTINUE OUMP 
ws 2089 * & 2156 
oe eoauers OTNOV7S 1OMART6 PROG ID Fre-2) @2oarTe 29AUGT5 —- OTNOVT5 LOHART6 | PROG 1D EFF<2. 
: 627805 B272872 PAGE 21 EC NO. 827804 827805 827872 . ’ PAGE 210 
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PART NOw 4248230 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248230 
PAGE 22 PAGE 22a 
FFF2 DIAGNOSTIC CONTROL PROGRAM - MODEL 12 = FFF2 DIAGNOSTIC CONTROL PROGRAM - MODEL 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT - £>ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | 
pore oa se doe 2157 OWN] oc XL2*0001° 2171 CERRESRAERENSEREEEEAEEOSERRERERESSEERSRECRESERSESESERESEESS 
7DF2 2158 OWN1L6 DC XL2*0010° = 2172 * 3270 1/0 OVERLAY BEGINS HERE 
7TDF3 0030 7024 2159 OWN4S DC XL2*0030° : 2173 EEREREEREREKEEEEREERESEERSERESERTERS ESEETLSRSES SESS SSS SE EES 
IDF5 0000 IDF6 2160 GWNSW DC XL2*0000! 2174 
7DF7 6000 IDES 2161 GWNOLD DC  § xXL2*0000" | & 2174 
7DF9 00 7DF9 2162 OLOSRC OC XtL1*00" i O717 2175 USING PRTN»XR2 
oes Be IDFA 2163 OLDTP pC XL1 00? © 2176 
0 IOFB 2164 HOCTR pt ¥Li*o0" ©) JESF 2177 BGN327 EQU * 
7DEC 0090 7DFD 2165 ; DC xXL2*0000* EXTRA = 3 7E9F FO 38 7F 2178 ERR327 HPL H8-HH ERROR HALT FOR 3270 
IDEE C3CBCIDSCTC540E2 7E25 2166 DPNG OC CL40*CHANGE SWITCH 1 AND 2 FOR NEW DUMP ADDR ° 7EA2 EO 87 13 2179 8 PRINL{»XR2) SHOULD GO CHECK SSW ETC 
TEG6 E6C9E3C3C840F140 2166 C: TEAS 2180 SECORY EQU) * ROUTINE IS ALWAYS ENTERED HERE 
es ClosceadEssocete 2166 7EAS 34 08 7F59° 2181 ST RTN32743,ARR SET UP LINK BACK 
E16 0940D5C5E640C4E4S 2166 pe. TEAS F318 80 | 2182 SIO —-K*BO%,X*18° DISABLE 
TELE D40740C 1C4C 40940 2166 {:  7EAC F3 18 EO 2183 SIO X*EOt,X*18° ENABLE, TO CLEAR ERRORS AND INTERRUPTS 
S. Boar eparaconoee TES4 hee OC CL47° ADDR 00 02 04 06 08 OA OC OF : TEAF BD EO 5D 2184 CLI PRSIO#1(,XRZ}2X*EO" TEST FOR SPACE ONLY 
Z i! 7EB2 CO 81 7°56 2185 BE RIN327 EXIT IF IT 1S 
TE36 F24040F0F44040F0 2167 {5  TEB6 30 FF 0879 2186 CLI CRTFLG,X*FF® CHECK IF MICRO LOADED 
TEZE FO4040FOFB4040FC 2167 7EBA 3C FF 0879 2187 MVI CRTFLGeX* FF EVEN IF NGT, TELL CE ONLY OalE 
TE46 C14040F0C34040F0 2167 _ ‘TEBE CO O1 7E9F 2188 BNE  ERR327 E8 HALT MEANS ERROR OR NO MICRO 
TE4E €5404040404040 2167 €2 76C2 CL 18 TEOF 2189 TIO ERR327,x*18° TEST 3270 FOR ATTACHMENT READY 
re sO oe ote oe ee 7E78 2168 pc CL36° 00 02 0&4 06 O08 OA OC OF * 7EC6 31 18 0587 2190 LIG PR3sMSDATA LOAD MAIN STORAGE DATA ADDRESS (880) 
_ a 2191 *. CURSOR IS LOADED BY ERASE. 
ae Or pcre acces te -€  7eCA 31 10 7F5F 2192 LIO LIODC,BUFADR LOAD CRT BUFFER REG. 
7E7S FOC54040 acs TECE F2 07 15 2193 ERSSWH JC NOERS » X*07° ALTERED JUMP TO ERASE OR NOT. 
geu6 ih ee : TEDL 3C 87 TECF 2194 MVIL -ERSSW+l)X*87° CON'T ERASE NEXT TIME THROUGH 
aed db each aa bbe TEQE ise DPMGi DC CL38° 00 02 04 0&8 O08 OA OC OEF ~€% 7605 OF O1 TE5SE 7F5F 2195 SLC LIODC(2),L100C SET UP TO PRINT ON LINE 1 
7EDB 31 10 TF5F 2196 LIQ LIGOC,BUFADR LOAD CRT SUFFER REG. 
TE89 FOF 44040F0F 64040 2169 7EDF F3 10 CO 2197 SIG X*CO",X*10* ERASE & UNLOCK CRT 
oe Oe eorecer a : 7EE2 Cl LF TEE2 2198 BSY32X TIO BSY32XyX*1F® DELAY WHILE BUSY 
7EE6 2199 NOERS EQU # 
=.  TEE6 31 12 TF61 2200 LIO DC128,LNGREG LOAD LEN REG FOR 128 CHAR WRITE 
€3 TEEA F3 10 92 2201 . SIO x*92%,X*10° WRITE LINE 
7EED Cl 1F TEED 2202 BSY327 TIQ BSY327»X*1F* WAIT FOR BUSY TO DROP : 
ee oe Pte TEFL BO 16 40 2203 SNS  MSTAT(»XR2) oX*16° SENSE STATUS FOR ERROR ele te Se ee ea 
= €3  7&F4 Ba 08 40 2204 TBN MSTAT(,XR2).X*08* ANY ERROR® BIT ON? : 
TEF7 CO 10 TE9F 2205 BT ERR327 HALT IF SO 
“ 2206 
=  € s-7eFe OF 01 TF5F TFSD 2207 ALC LIODCE2¥.N40 BUMP TO NEXT CRT LINE 
: 7F01 3C 40 0900 2208 MVI &N4129,C*® ° 
Le os 7F05 OD 57 O8FF 0900 2209 CLC LN#128(88)eLNC129 © SEE IF CHAR 41-128=BLANK - 
fw |€) 7F0B8 F2 81 24 2210 JE NIC : 
2211 . . 
on 7FOE O£ 01 TFS5F 7F5D 2212 ALC tIODC(2),N40 BUMP TO NEXT CRT LINE : 
we ‘ | €2 7F14 OD 2F O8FF 6900 2213 CLC -LN+128(48) -LN+129 81-128=BLANK? i. 
; | 7F1lA F2 81 15 2214 JE NIC. ‘ 
c: - 7F1D OF O1 7F5F 7TF5D 2215 ALC LIODC{25.N40 BUMP TO NEXT CRT LINE : 
- | €3 723 0D 07 O8FF 0900 2216 CLO _-LN+128(6) LNt129 121-128=BLANK? : 
7F29 F2 81 06 2217 JE NIC % 
f. 7E2C OE O1 7F5F 7F5D 2218 ALC LIODC{2).NSO- BUMP TO NEXT CRT LINE : 
| @ 7632 2219 NIC E€QuU. * : 
7F32 OD O1 7F5F 7F58 2220 CLC LIODC(23,L IND t. 
o va 7F38 F2 04 OE 2221 JNH  FLYON i 
ae! | 3 -7#36 3c 07 TECF 2222 MVE ERSSW#12X* 07° SET UP TO ERASE NEXT TIME.” : 
7F3F 38 04 0208 2223 TBN SBYTEO,SSWO5S HALT ONLY IF SSH O05 1S ON i 
on 7F43 F2 90 03 2224 JF FLYON : 
on | @ ~so7F4e FO 38 71 2225 HPL  X°71¢ HH H - LITTLE ZERO HALT 
7F49 2226 FLYON EQU * 
ras le 7F49 38 04 0208 2227 TBN SBYTEO,SSWOS CLEAR BUFFER ONLY IF SSWOS IS ON 
A | €3  7F4D F2 90 06 2228 JE RTN327 . 
| 7F50 06 84 O8FF 0900 2229 MVC X* BEF 4(133),X29P0"... BLANK BFR BEFORE LEAVING (00 X87B) © 
¢ | 7F56 CO 87 0000 2230 RTN32T7 B *—* RETURN j ae Sa. BP 
Hh | 2231 | | | 
2232 EERESEEEEEEEESEEEEESSEECEESESSSESSSHSS SEES SES : 7 
gi 2233 * * 
ne \@ 2234 #1 Ete tee 40 * <--- CRT SCREEN. 
Lae 2235 * 41 eae eee 80 * POSSIBLE & LINES 
- 2236 * 81 ares 120 * OF 1 OCP PRINT 
& '@ 2237 # 121 . . 128 * LINE eo 
DATE 29AUG75 OTNOVTS LOMAR 76 PROG ID FFF-2' €3Date 29AUGTS OTNOV7S LOMART6 PROG 1D FFF-2. 
EC NO. 827804 827805 827872 | Gent etetl ie ahs z eee _PAGE _ 22 | " €C NO. 827804 827805 827872. PAGE 224. 
es > ! & ; . ai sae 
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FFF2 


ERR LOC OBJECT CODE 


TF5A 0140 
7FS5SC 0028 
TFS5E 0000 
TF6G 0089 
TF62 0050 


DATE 29AUGT5 
EC NO. 827804 


ADOR 


7F58 
TF50 
TFESF 
TF61 
TF 63 


0018 
O87F 
0012 
0010 
0015 


TF63 


O7NOVTS 
827805 


DIAGNOSTIC CONTROL PROGRAM —- MODEL 12 


PART NO. 
PAGE 
STMT SOURCE STATEMENT 
2238 * * 
2239 * * 
2240 SRSEKEKKEEES $ESECESKEESESESSESERECSEAHKKSESESESLE 
2241 LIND oc 1L2*320°* 
2242 N40 OC  IL2*408 
2243 LIODC OC xXL290000* USED FOR CRT LICS 
2244 DC128 OC IL2°1288 USED FOR CRT LIOS 
2245 NBG OC 112*80! TO BUMP 2 LINES 
2246 
2247 MSDATA EQU X*1B4 EQUATES FOR CRT LIO*S 
2248 LN EQU = X*87Ft 
2249 LNGREG EQU X*12¢ 
2250 BUFADR EQU = x*10° 
2251 CURSOR EQU Xx*158 
2252 
2253 END327 EQU = #1 - 
LOMARTE PROG ID 
‘827872 ae shies eee PAGE 
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FFF2 


€. ERR ioc OBJECT CODE 


FF63 


0604 
06046 CO 87 7000 


FFF-2| @oate 
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PART NO. 4246230 
PAGE 23a 
DIAGNOSTIC CONTROL PROGRAM - MODEL 12 
ADDR STMT SOURCE STATEMENT 

2255 ORG X*FFEFF'~x'8000'+* IF THIS ORG FLAGGED YOU'RE OVER 

2256 * CORE BOUNDARY. ; | 

2257 . 

2257 

2257 

2257 | 

2258 ORG PRTT ORG AT END SO IF NOT ENOUGH CORE, LINKAGE NOT DONE 

2259 B SPC 34 INTERCEPT SPACE COMMANDS AND TRY TO SPC 34 

2260 

226] SEKKRVHRSESKSASERE AKASH KECLASRETKSSHSRSSLSKSSKSVSE SHES SESCLHARKLTVSESS SES SAKSVS 

2262 * THE FOLLOWING 10 *TREP* CARDS WERE INSERTED TO PROVIDE 

2263 * A MEANS OF CHANGING UDT,CPU AND CHAIN IMAGE WHEN 

2264 * OPERATING GN A 3741. 

2265 SREEEBHESELEKES EER ES EETEEEEESEENSEEEEDESETESESEREESEEES EEEEESEEESEOESE 

2266 TREP 

2267 TREP 

2268 TREP 

2269 TREP 

2270 TREP 

2271 TREP 

2272 TREP 

2273 TREP 

2274 TREP 

2275 TREP 

2276 © TREP Daa: 

2277 SE ERECSESSSESESESEESESSSESENSEONERESSESSETSEOSESSSOSESSESETHOETESSTSSSS 

2278 SSESSSSSessssse 

2279 TREP 

2280 TREP 

2281. TREP 

2282 TREP 

2283 TREP 

2284 TRE? 

2285 TREP 

2286 TREP 

2287 TREP 

2288 TREP. 

2289 TREP 

2290 TREP 

2291 TREP | 

2292 TREP 

2293 TREP a ere _ 

229% TREP 

2295 TREP 

2296 * 

OE8C 2297 END 6EGIN 
wake 7 
O7NOV7S  19MART6 PROG ID FFF-2 
827805 627872 PAGE 
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PART NOs 4248230. I8M MAINTENANCE DEAGNOSTIC PROGRAM PART NO. 4249230 
PAGE 24 | CO . PAGE 24A 
FFE2 DIAGNOSTIC CONTROL PROGRAM — MODEL 12  " BFF2 DIAGNOSTIC CONTROL PROGRAM - MODEL 12 
CROSS-REFERENCE | | 4 CROSS-REFERENCE 
SYMBOL T LEN VALUE OEFN REFERENCES | SYMBOL T LEN VALUE DEFN - REFERENCES 
ACTKON A 003 1363 1828 1665. | ~ C101 A 004 O7C3 1159 1152 
ADR143 A 002 1097 1639 1611% 1685* . —  CiGIA «=A O01 O7CO 1173 
AINPUT A OO1 0067 0107 0110 €.c101B A 003 O7C7 1160 1168 1173 
AJDEST A 003 012C 0232 0229 . ee . C102. A 001 O7C3 1175 
ALTPRT A OOL O78C 1134 1104 1135 1173 1175 1344 | €102K A 003 OTCA 1161 1149% 1158® 1175 
ALS4&24 A 003 168E 1970 | C-CKBLK A 003 013F 0239 0243 
ARR C 001 0008 2350 0108 0280 0294% 0573 0653 0681 0705 0723 0778 0797 0978 1090 i ” CKCHN A OOL OB6F 0428 0423 
1281 1651 1835 1851 1883 2181 | - CKCIG A 0OL 1437 1917 1913 
ARRSAV A 001 0408 0748 0655 0658 0681* 0723* 1281* 1284 1285* . ' €-cxcom A 003 0154 0252 . 0458 
BEGIN A OOL OEBC 1421 0460. 1331 2297 CKCOMA A 003 OAOF 0319 0220 
BEGINA A O00l O£96 1424 . _CKCOML A 004 0113 0220 0459%. 
BGN327 A 001 7E9F 2177 ' ~€ cxeey & 003 0A30 0334. 0320 
BITO. C001 0080 1385 0282 0594 0597 0617 0920 0984 1096 1205 1632 1687 1704 CKDCPS A 005 0858 0422 0372 
BITL C001 0040 1386 0595 1002 1067 1221 1632 1693 1712 _.CKEND A 003 OBAT 0445 0430 
pIT2 C€ 001 0020 1387 0282 0297 0580 0591 0997 1213 1604 1678 1680 1720 € CKPTR A 004 OFB5 1524 1519 
B1T3. COOL O010 1388 0385 0583 0995 1214 1218 CKREP A 004 010C 0218 0127 0152 
BIT4 C001 v0C8 1389 0282 0591 1232 ; | .. CKUDT A 003 OAAB 0372 0335 
BITS C O01 0004 1390 0276 0282 0580 0591 ; : €°CLRCOR A 004 0108 0203 0216 
B1T6 C€ 001 0002 1391 0591 ; |" EMLOOP A 004 OOBE 0139 0144 
BIT? COOL O0OL 1392 6623 aa? ;  CMPK A 004 0342 0653 0682 OT24 ; 
BIZZEE A 003 1840 2032 2032 | €-CMPKX@ A 001 0368 0664 0653* e 
BLKCRT A OOL 1185 1739 1643 © | CNT A 001 138C 1844 — 1836* 1841* “ 
BOOT] A 004 0000 0022 0021 0031 | ..CONTU: A 001 7DB7 2117 2110 ea : 
BOOT1A A 003 0000 0026 0026 ; cpu A 001 0204 0506  0348% 0355%'1449 : 
BODTIE A 003 0017 0030 0023 0027 | “EpuLp A 005 0A69 0350 0354 Lana, Seo. Geese pees eae . 
BOOT1L A 002 OO1E 0033 0024 | . CPUOP A 004 OA65 0349 0359 _ ve ; 
BOOT2 A 004 0200 0054 0028 0052 0053 0054 ; ' CCRTCHG A 004 0696 1040 . 
BOOTZA A 003 020D 0058 0056 0066 CRIFLG © Ol 0879 1363 . 1740 2186 2187% ; : 
BOOT2B A 003 0216 0061 0061 4 | CTR A 001 033C 0648 0656 0657 0659% O700% 0725 O0727# O742% 1436% 1439% 14418 14458 SO 
BOOTZ2E A 003 020A 0057 0058 0062 | : €2curSOR C 001 0015 2251 ; 
BOOTZ1 A 003 0205 OO71 0065 . . i DADDR A 001 0448 0834 0832*  -. 
= 22 A 001 «0239 «00T2 ©—0065# . : / DASH A OOL 12F7 1818 1479 1487 : ae emcee ana aaeS 
BO0T23 A 002 0238 0073 0059 . ES0aTSWS A 002 0412 O771 0268 07746 0779 0783 0783 0784 0793 0795 0800 0802 0822% 0324 : 
BSYLP A 003 O776 1125 1125 0825 0835 0841 0846 0848 0851 0859 0867 194% 1945¢ 
BSYLPO A 003 16A3 1977 1977 | 0C128 A 002 761 2244 2200 : oy ta i 
BSYLPL A 003 16AF 1981 2983 / €3peco =A «004 «OFS «0300 =: 0290 r% ds | : 
BSY32X A 004 7EEZ 2198 2198 | DECL A OOL OFS 0301 02920 ——i«~:S Sat, : 
BSY327 A 004 TEED 2202 2202. | DEST & 002 013A 0237 0227 0230 02384 RS 7 oe Ae 
BT2 A 003 0204 0055 OO72 | E:DeST1 A 001 0388 0692  0660% 0693 nee Se Pr Seas oe fee 
BUFAOR C 001 0010 2250 2192% 21964 : "DEST2. A OOL O3E1 0735 0661 0741* a fy ee . = 
BUSY A 003 0074 O112 0112 | gm, DEV A 001 OAAT 0370 0382 0390 0394 é ; 
CCHHO A005 11E6 1785  1686% 1788 Esprour A 002 1206 1798 1443 1444 . ts 
CCHHO@ A 002 11f2 1788 1611 DHALT A 003 1788 1994 1931 1993 .2001 2011 erie > ed : i 
CCHHL A 005 11EB 1786 1692* 1789 | .DKFLAG A 001 12138 1698 1600% 2609 ; a 
CCHHia A 002 11F& 1789 1612. : | €icopump A 001 7046 2093 2069 a 
CCHH2 A OOS L1FO 1787 1677# 1790 a DOHA A004 2IC9 1757 1581 1585 1633 1741 1747 - 
CCHH28 A 002 11F6 1790 1613 | pono A OOL 117C 1727 1721 . ; 
CDERRO A 003 OA9D 0365 | Espo 4 003 16a6 1978 1974 | 
CDEXIT A 00% O07D 0115 01064 | POLIO A 003 O06E 0210 O117 
CDREAD A 004 0060 0105 0104 0105 0123 0136 0281 0304 0469 0478 0479 | OOREG A 006 7032 2080 2073 2084 
CHAIN A 005 OA0B 0315 0429 | EF00REGL A 006 WIE 2075 2079 
CHCTR A OOL OACE 0317 0632% 0441% 0467# DOSZ A 006 OEB9 1443 1440 
CHKEND A 003 O19A O274 0261 | pPLe A 001 7D6A 2107 2155 
CHKF4 A 003 0311 0630 0625 ae” | CoppmG A 040 TE25 2166 2099 
CHKID A 001 1380 1850 1552. 1556 1919 1923 1928 1933 i <"DPMGL A 038 VESE 2169 2100 2123 
CHKSRI A 004 1388 1863 1852* 1859 | pSKSYS A 001 1427: 1910 1904 a 
CHKSSW A 005-0169 0260 0253 . . DAD tose - | CODTABLE C001 OLFE 1416 0286 0294 0579* 0621 0639* 1908 1908* 1911 1911* L 
CHKSSO A 004 0178 0264 0272 | DUMCOM A 002 062A 1000 Seve Saas , ee ee oe er 
CHKSS1 A 00% 0425 O782  O779% 07814. . (0048 A 003 OAO2 0312 0436 ve : Oana? 
CHKSS2 A 003 0435 0787 0782% 0784* | €3p0480 A 002 1200 1802 1750 ee 
CHKSWS A 006 066A 1025 1038 : | 0120 A 403 0A05 0313 0434 i 
CHKXS A 004 13BC 1664 1851* 1853. 1854* _ENDCLR A 001 0132 0212 0209 f 
CHK1 A 003 OF6F 1504 1502 its | €2EnDRTIN'A 001 0901 1203 os 
CHK2 A 003 OF72 1505 1503® . : END327 A 001 7°63 2253 = oo 
CIGHLT A 001 0793 1174 © 1164. : nig :  ENTRYL A 0OL O29L 0586 1900% —; oo 
CLOSTS A 002. 0757 LTR 1162% 1163 oe | GeEnTRY2 A 001 0337 0641 1901¢ . . : 
DATE 29AUGT5 —  OTNOVTS =»: LOMART6 PROG ID FFF-2. €}50aTeE 29AUG75 OTNOV7S ~ —«- LOMART6 Sa PROG ID FFF=2° 
EC NO. 6827804 827805 . 827872 : a _ ... PAGE 24 EC NO. 827804 827805 827872 é: ; PAGE gy 7 BRM, 
at hep od : '@ 


< . _—. ie 
<u : . : <a $e | 


”. 





Neat nt, Eee Cee haat eee eer eens Ok es ae 
| 





IBM MAINTENANCE DIAGNOSTIC PROGRAM |  Y , PART NO- 4248230 IBM MAINTENANCE DIAGNOSTIC PROGRAM oa | pace Baa 
| - 2 PAGE 25s Roe ik eae | - | | AGE | 
“FFF2 DIAGNOSTIC CONTROL PROGRAM — MODEL 12° ~ FFF2 DIAGNOSTIC CONTROL PROGRAM - MODEL 12 
CROSS-REFERENCE '@ | | CROSS-REFERENCE 
SYMBOL T LEN VALUE DEFN REFERENCES es LEN VALUE OEFN | REFERENCES © 
ERR A003 0081 0116 oO109 ~~. C 001 0007 1401. 0439 
ERR327 A 003 V7E9SF 2178 2188 2189 2205 3 wee : eat Sore pee cc ide A09e ane 
ERSSW A 003 7ECE 2193 0608 1300* 1743* 21948 22228 ( 
FO6@ A 002 1072 1620 1613¢ 16764 | | | tate c 001 0010 1349 oszze 0523* 0524% 0525 0526* 0527* 05288 
FD6ADR A 002 1074 1621 1616 oe | 
FO6D A001 1062 1614 1583 1619 | | {IDLOST A O11 1330 1821 1706% 1714" 17228 
FD6KON A 003 1366 1829 13674 1722 | | | | 103340 ¢ 001 0006 1695 eve 
FO6RTN A 001 1075 1622 1605 1621 ; 4 | 
-FINDSZ A 006 OEBF 1444 1446 | Coimcape a 002 0800 0465 0431* O4668 
FIVE A 001 O3F9 0743 0658 : : e NADR1 A 
FIXMOb A 004 13CO 1883 0327 1423 . INPUT C€ 001 0880 0477 0106 .0135 0178 0218 -0226 0345 0360 0464. 0472 
FLAG C€ 001 O1FD 1415 0276 0282 0297 0829 1232 : € IPL € 001 0040 0482 0025 0060 
FLAGS A001 1207 1799 490% 1518 1521# 1524 527% ' "SAO «A 006 «1030-1597 
FLGTWO A 001 1803 2047 2037 2042# 20448 |. ISAL A 006 103E 1602 1599 
FLG. & 001 1070 1619 16528 : i €:1SB8Z2 A 003 1783 2008 2008 
FLYON A001 T7F49 2226 2222 2224, fcene : ont anes Bara neck 
FRST A001 1488 1947 1801 
FRST@ A002 1208 1801 1749 4 i. _ ee | C3 ‘ISssw 4 003 0178 0263 0426 
FRIN C€ 001 OAOT? 1360 O86. : St 
FUNCSH A 002 17C6 2016 1996 : | c; 18120 A004 OB9C 0441 0435 
el ¢.col..Gork cases. ne eae Pines. Aceae Stew ene. ale 
F4 C 001 OOF1 0570 0630 —lits : » I1TR3 A OOl O2CC 0603 1317 Lo 
GCLOAD A 001 1103 1771 2422 1623 1642 1758 | P1TRS A 001 0680 1031, 1318 zi : ; 
GWN A 001 TDOF 2070 2067 R A 002 8 Fo: oe = sia Seeaee oseee 
HA C00! 003F 1406 14236 -1770 | .1TR6 A 002 0231 0530 1320. HPs, 8 ah OO oe 
HALT A 004 0222 0526 | | | l€ P1TRT A001 O55C 0907 0863 1321 . ei fee: ee i. 
HALTA A 003 O9EA 1306 13068 1305¢ 3 a +3 7 A 203 LiFC 1796 1907 | Ox “a a ids ah ; 
HALTB A003 O9F5 1309 307% 13086 in os : m5 os A 003 F 179 9 a a i. : oS oA 
HALT2 & 004 O9BC 1293 1287 a? | : lo? ern A006 0006 0145 0137 01468 0148 | f Ses : 
HALT3 A 004 O09C3 1296 12289 1292 i Last A001 O7E6 1172 see eaee 
= he C 001 0079 1405 3 { A040 15CA 1955 1 Sie . 
HC C 001 O006c 1406 0632 | Crease 4 O01 0208 0510 0567 0572 0619, = | 
HD: C 001 0073 1407 6295 |; LOEND A 004 O94€ 1225 1206 1217 | oa: ag PRE tees 
HDCTR A001 TOFB 2166 21180" | g,tDPT2 4 004 01AB 0280 0296 0305 . 
HDG A028 0503 0970 2020 | JLOR- A006 1213 1808 1520 
HDG1 A 001 0568 0969 983% 0986* 1009 1013 1017. | ‘DREG A 008 03D o745 9703 0706* 1311 
HE C 001 OO7C 1408 0611 oe | LOROK A 001 oBC9 6 2 i | 
HEXIT A 006 O9F8 1310 12291 1296 CGtovvt 005 OAFS 0396 0391 : sige OA aaa) ASR AOE, pest 
HE C 001 003¢ 1409 6811 | j : LOWORK A004 005D 0479 0132¢ 0133 0287 0288 =” SAE PAGERS | aaa 
HGO A 004 OBB 0451 ©0455 | . e 4 .LDX  & 004 O1A7 0278 0298 ; : 3 
HH C001 0038 1410 0030 0057 0116 0295 0325 0365 0387 0438 0447 0453 0611 0632 SLOX@ A001 O1AA 0279 o2808 
©8620 0853 0865 0914 1117 1165 1223 1234 1730 1770 1891 1938 LD1 A001 0249 0590 0586 
2938 1968 1994 2024. 2178 2225. er LENGTH A 003 00868 0138 0149 
HHHALT A 003 1479 1938 1935 2 Mi ® 2 i Geexit a 004 14686 1942 18838 
HL C001 0068 1411 . ' - wee Be ig 3 LEL A003 O2ED 0617 0614 . 
HLTA A 003 0472 0811 | oft gd a re, : : LEZ A 00% 0334 0640 0592 0618 1795 
HLTB =A 003 O47E 0816 os = : ae : | | ©emti a 004 o9€2 1304 1296 
HLTC] A 003 0317 0632 0638 ea cay oR ; | LHLTLA A 006 0966 1305 — 12078 
HLTD &003 O4DC 0853 azo i j gr tHLT2 & 006 O9ED 1307 1298 1303 ; 
HTE & 003 0570 0914 | Gcwt2a a 006 09F2 1308 12998 
HLTF &003 0200 0611 | | LINER “A023 1231 1810 14350 14438 14440 1673 
HLTG 003 1100 1770 as oe Ss . - | ge LINELA A036 1255 1811 1468. 16488 1451 1467 
HLTHD A 004 0108 0294  o289 be | Feb sD @tne2 a 029 1289 1814 1483 | a 
HLTTAB A001 0980 1276 2275 1283 = . ee a ‘ | “LINES A026 1243 1815 1529 1533 
HP C001 003E 1413 0814 0816 ie Se eS : 7 | gL INES 4033 1206 1816) 0 ssAs tye ee: 
HU C 001 0068 1412 9819 -~ A ee ae ee _ .c: GPLINK.. A006 0216 0523, °° ° | a oe de Fs | 
- HO COOL OD6F 1394 0325 0326 0365 0366 0387 0388 0438 0639 0647 0448 0453 0454 LIND A 002 7F55 2242 2220° = wee Tae. 
1730 1731 1891 1892 | 3 we . nt 100€ A002 7F5F 2243 2192 2195 21958 2196 22078 22128 221s 2216¢ 2220 . 
HOH =A 003's«:1308 «1691 = 8898 | Oe un & : Er A002 0953 1228 | 
Hl € 001 0003 1395 O448 1223 _ ‘ es : : MSG A 018 0585 0967 0529 1228 
#2 C 001 0976 1396 853 1892 : a : | UMSG@ A 002 022F 0529 : 
H3 C COL 0057 1397 0388 0865 0914 1 }3| ' €3iN C001 O87F 2248 ° — 2208%-2209 2209. 2213 2213 2216 2216 | 
Ha C001 0018 1398 43731 ; - 4 _* LNGREG C 001: COlz 2249 22008 
HS C 001 O05D 1399 ©0030. 0057 0116 0326 0s5< te Ue A004 0534 0893. 915 — 
6 c 


i gn UNKL 
001 0070 14600 O366 1117 | a | JLNKLA A 00% 053F 0897 0599. 


DATE = 290UG75.«COINGVTS—-BOMARTE a PROG ID eFr-2 ate 20auc7s —- O7NOV7S ~——«L9RARTO re ae 7 PROG 1D FFF-2" 
EC NO. 827806 627805 827872 ee ee _4 _ . (PAGE a3: 5 REMOn A 02THOS” — B2TB0S*s  S2T8TS ee a Be i ee ae 
Ce st i ate ote Sm. is a. | ee 7 ee ae eee a es 


a eee 


oe a ee ae ee ee 


peeo 





| 
| 
| 


IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOW ayaa, IBM MAINTENANCE DIAGNOSTIC PROGRAM . ete NO ae 
PAGE 26 : . 


FFF2 DIAGNOSTIC CONTROL PROGRAM — MODEL 12 |“ REF2 DIAGNOSTIC CONTROL PROGRAM ~ MODEL 12 


i 
| | @ cE 
CROSS-REFERENCE | | _ CROSS-REFEREN 
| 
| 


SYMBOL T LEN VALUE OEFN REFERENCES ee T LEN VALUE DEFN REFERENCES 





LNK2 A004 054A 0901 0896 0921 | | Nao 002 7F5D 2242 2207 2212 2215 2218 

LNK3 A 004 O55E 0910 0302 ' Ci ; tae er occ hs eee 

LNKS A&A 005 O577 0918 0913 oe : . 

LNKS A 004 O58E 0925 0891% 0899 . | OK A 004 O1E6 0297 0291 0293 

LNK6 A 004 0592 0926 O877# 0924¢ . | | - OKCTR A 00% OBD5 0462 0476 

LOAD A 004 O22A 0528 1618 2537 1655 1659 ea | © OLDSRE A 001 70F9 2162 — 

LODEM A 004 0290 0587  O571% O574% 0642 | OLDTP a ool ER 2163 ee 

Cane ; bos Boos oiee pee 0134 € ONE A 001 039F O70L 0467 0577 0727 O91 1048 1445 1500 1514 1841 1854 

Epausy C 001 OOF6 1110 1125 : — ONEA A 002 OAOD 0316 0411 0412 

LPDATA C 001 O87C 1355  O9B0® 2001 1001# 1063 1063# 1113 1985 1985* 2039* 2040 2040% 2041 | .OPBUF A 0OL 135A 1825 1449%.1653 1453% 

2041% 271334 2140 2146 2150 2151% eet ab : an eee eas TaaS 

LPERR2 A 003 O75E 1117 1119 21226 

LPIMAG A 001 0800 1180 0433% 0442¢ 1112 fee ; ae ee or are 1507 1514 1515 

Cerone O08 Bore oi8s espana \ OWNOLD A 002 7DFB8 2161 2105* 2109 2215¢ — 

LVMOB A O0L 1480 1940 1886 1893 1897 1916 | cons A 002 T0F6 2160 2108 2109 2113 2215 

Lx1 A 004 O2FA 0621 s 

LXx2 A 001 0301 0624 1795 1905* OWNL 6 a 002 1oF2 2158 2118 2136 2142 

MASC & 004 OATE 0355 6349% 0352 0353 0353 : ‘5 . 

MASK A 002 1203 1796 O451* 0414 0414% 0416 0417 1500# 1502 1503 1513 1513 | C-pack A 004 0226 0527 3224 0234 0265 0343 0379 0462 

MHLT2 A 003 1688 1968 1926 1967 1975 1978 1984 Pap A ool 0000 0006 

MICDAT A 003 1360 1827 1689 1714 a 

MICLDR A 003 135D 1826 1683 1706 | C-PHALT A 003 1888 2024 1936 2023 ‘2030 

HICRTN A O0l OSA 1641 1840 | PK1 A 003 0300 0728 0726 0744 

MNN C002 0003 0647 0683 0728 _PK2 A 004 0300 0729 0740 

MNZ © 001 ©0002 0646 069% 0697 Corks A 005 030E 0733 oval 

A & Tease Gs50* 

Ove. A ons core Gist siese pisse 0157 | PLINE C 001 0880 1356 0968 21020* 1023 1497 1498 1529 

MOVIO A 003 0324 0636 0628 | 7 POP A 003 GFOS 1463 1450* 1457* 1461 

MSDATA € 001 0018 2247 22909 PREXIT A 006 O06E5 1063 0990 1058 2101 2076 2082 . 

ae MSTAT A GO2 O757 1109 TITEL 1972* 1973 1981* 1982 2009% 2010 20334 2034 2035 2203% 2204 erie a G03 o766 1119 1107 ja30 1228 1433 1464 1670 1476 1680 1486 1530 1546 1568 —_—_—_——_—_—— 

MYVCIO A OOS 10E€4 1672 167G¢ 

MVX1 A 001 0375 0685  0683% 0694 0697* 1565 1570 1707 1715 1723 1728 1839 209% 2096 2102 2122 2124 

MY X2 & 0OL O30F O734 OT28e 0737 0739% 

MzN. € 001 0001 0645 0737 0739 Goninte A 00% o713 Lo7e O97T8* 0979 1065 1074¢ 1128 

MzZ «C001 + CO00 0644 

NEGL & 0CO2 033E 06469 @693 0699 0700 0736 O741 ae - - | a a 007 121A soe 526 | | 

NEWD 4006 DTT is oe | | PRSIO A 003 0773 1124 1093 1123* 1150 1152. 197¢ 1997 2026 218@ = ***~ 

“EXT A 003 O12F 0233 6245 _PRTEXT A 004 O77C 1127 1106 1153 1169 1971 1966 1998 2013 2027 2045 

NEXTOP A 006 OF8E 1513 1506 . .  PRTEL A 004 O70B 1076 0977¢ ; : 

NEXTR A 004 0088 0123 0069 O177 0210 0217 0240 0255 0258 0273 0275 0329 0332 0364 PRIEZ & 004 O10F L077 0975¢ ; 
. 036% 0389 0402 0440 0449 0468 RTHG A 

NEXTSS A 004 0689 1036 1026 ji ePRIN & 004 O717 1089 0999 018 1042 1044 1054 1059 1088 1089 1142 1966 1992 2022 

NEL A 004 1152 1712 1705 . 

NE2 A 004 1167 1720 1662 1664 1666 1713 | 3 PRTNA a 001 0793 1143 1173 117% ALS 1926* 1931¢ 1936* 

N A 7F32 2219 2216 & 2217 3 

ie A ae We no res oo re PRTN] A 004 072A 1095 1118 1146 1969 12995 2025 2179 

NOALT A 004 O743 1105 | . _.PRIN2 A 004 073C 1100 1097 

NOBMP A 003 0293 0583 OS82 €iprt2 a 004 ce07 0989 0985 

NOCHG A 003 OBAG 0443 6437 | | . PRIZA a 003 0608 0990 0988 

wore’ i aor Oeee Sis oias % “cORTe A 006 O6C8 1053 09934 1040# 1041% 1047% 1048# 1050 1051¢ 1052% 1147# 1146% 1157* 1167* 

NOPOP A OO1l OFT 1469 1463 | “ PRT6A A 004 O6CE 1054 0998 

NORM C001 0000 0483 O22 _PRTZ A004 0604 1057 0996 1049 1061 2258 

NOTD A004 1420 1912 1909 . . €prts A 003 O6FB 1070 1068 

NOTEND A 019 1350 1822 1730 1718 1726 : PRTO | a 003 0704 1073 1071 —_ : 

NOTOP A 001 OEFC 1458 1456 

NOT64 A 006 Of83 1441 1438 . : €3rr. A 002 0759 1112 #1122 1979 . 

NOUNIT A 903 OFD3. 1535 1492 PR2 A 002 «OO75B-Oé«z:L:L 1122 2005 2028 ~ 

NOX A001 OASS 0341 0338 PR3 A 002 -«O5BT «0968 0965 0976 1051 1127 2190 

NSPACE A 001 0504 0972 O993% 0992% 1057# 1154 1156* 2072 20746* 2075* 2080* | PRA A oz 0750 Le - 4120. 

NUM256 A 002 0131 0211 0206 ee 3 oo 

N1 & 002 0086 0119 O842 . 0238 .PTAGS A 001 0507 097% 0982 1096 

N26 A001 OA06. 0314 0466 @PTCIO A 


005 0799 1147 


DATE 29AUG75 OTNOV7S |. ESMARTS 


: PROG ID eer-2: E2pate 29AUG7T5 O7TNOV7TS . 1LOMART6 ==> . PROG 1D FFF=2 
EC NO. 827804 827805 | 627872 


“ % --~---PAGE 26 EC NO. 627804 §$(827805 827872 — . . fi "PAGE 264 | 


7 Zo - i ene oye = o ce - : = 7 _ e st : = a | 2 | ; aa : oo . . - ‘ 
oo. a ee ee ed a on | = . oe ne ; a eo 7 ; > oe , a - | - 7 | 4g - os - - ie i 
ee ea ieee owe et 


3 





“io =~ = @~ FSCO OOCeCeC Cee ®©@eeeee8e80 6 
S 3 : | ‘ ee | : | ee ye a = ~ —_. @ @ @ & @ 


TBM MAINTENANCE DIAGNOSTIC PROGRAM 


FFF2 


SYMBOL 


PTFOC 
PTMSG 
PTR 
PTX 
PTXA 
PT ZERO 
PTSO 
PUNOUN 
PUNERR 
PUNNUA 
PUNS2 
PT7IAK 
ROCO 
READ 
READRC 
RECLEN 
REO 
RESTRY 
RHALT 
RITREC 
RLOA 
RLD2 
RLFLGS 
RLINK 
RLOAD 
ee RNUM 
RP ACK 
RPEX 
RPONE 
RPRINT 
RTEST 
RTN143 
RIN327 
RUNPK 
SADOR 
SALLY 
SAVE1 
SAVREG 
SBYTEO 


NNT eth: Mente nt cine: ht 


SBYTE1 
SBYTE2 
SBYTE3 
SBYTES 
SBYTES 
SEARCH 
SECORY 
SETSSw 
SETSXa 
SETO 
S10 
STOI 
SIZE 
SMOoD 
SNUM 
SPAPRT 
SPBEHG 
SPC34 
SPFLGS 
SPT 
SPuDT 
SRC 
SRCE 
SRC1 
SRT2 
SRELAG 


OATE 
EC NOG. 


PART NO. 
PAGE 


DIAGNOSTIC CONTROL PROGRAM - MODEL 12 


003 
004 
001 
004 
004 
004 
004 
003 
003 
002 
003 
001 
004 
001 
004 
002 
003 
003 
004 
003 
004 
003 
oo1 
004 
004 
001 
004 
004 
004 
004 
004 
602 
004 
004 
002 
005 
004 
004 
001 


001 
001 
001 
001 
001 
004 
001 
004 
001 
001 
ool 
001 
002 
001 
002 
002 
002 
001 
001 
001 
001 
002 
002 
002 
002 
001 


PrrPrPrAcQarPrrrrorrrprrPrpPrPrrr PrPrPPPPrPErPPPPPPPPPPErPrPPPErPPPOPOP DPPPPPrPPrp + 


29AUGT 
827804 


LEN VALUE 


GABE 
02c9 
O2FD 
1367 
1388 
02C5 
0740 
18Cs 
189A 
18D2 
188E 
0c81 
OBED 
OOF1 
1080 
17CA 
OO8F 
0978 
0990 
1791 
O2A5 
O2€3 
62CO 
0530 
O26A 
OA03 
O3BA 
0211 
O5E0 
0508 
0444 
1099 
TFS6 
0369 
0185 
OA43 
147C€ 
O3A6 
0208 


6209 
O20A 
0208 
020C€ 
0200 
10A6 
TEAS 
0413 
0443 
0409 
1309 
0018 
0203 
6200 
0506 
O6EO 
0650 
7b00 
Oade2 
GA00 
OAOA 
TOAS 
0138 
7068 
7000 
113¢C 


5 


DEFN 


037? 
0602 
0622 
1835 
1843 
0601 
1101 
2044 
2030 
2046 
2026 
1352 
0469 
0484 
1659 
2016 
0124 
1246 
1281 
1997 
0589 
0613 
0604 
0891 
0571 
1197 
0723 
0517 
0977 
0975 
0794 
1640 
2230 
0681 
0267 
0336 
1939 
0705 
0511 


0512 
0513 
0514 
0515 
056 
1651 
2160 
O776 
O791 
0768 
1858 
1362 
0505 
0503 
6973 
1060 
1019 
2065 
1359 
1357 
1361 
2133 
0236 
2139 
2145 
1699 


O7NOVTS 
827805 


REFERENCES 


0374 
0596 
0630 
1564 
18354 
0637 
1099 
2038 
2036 
2029 


0443 
0025 
1681 
2006 
0283 
1204 
1132 


05734 
0610 
0594% 
1131 
0906 
08626 
0530 
0874 
1057 
0602 
0708 
1634 
21814 
1030 
0264¢ 


19188 
0654 
0254 
1098 
0425% 


0262 
2602 


0269 
0776 
OT72 
18655 
1744 


(0346 


03369 
10243 


2259 


1205 


1207 
2103% 
02336 
2135¢ 
2141% 
1604 


0634% 
1569 


2043 


0060 
0299. 
0576 

0597* 


0863 
09072 


0893 


2185 


1922 
1282 
0328 
1100 
0613. 


02624 


0857 | 


O77? 


1745 
1437 
1435 
1033 


21048 


2136 
21426 
1632 


19MART76 
827872 


CKOSS-REFERENCE | 


0635* 0636 08364 


ola 


0577@ 0582 


O871* 0897 O911# 0912 1016 1240 1241 1243¢ 
0910 


O918¢ 12448 — 


1310 


2226 


1927 1932 1937 


0609 0785 0895 090% 0919 0987 0989 
1290. 1293 1757 2223 2227 


0598 0600 
1105 1231 
2068% 2071 


0424% 
1103 
2066 


0615 0615 1025 1025* 1027* 1617 1635* 


1755 
1441 
1580 
1036 


1912 
1037 


2413® 2114% 2135 2149 21540 
2141 . 


1654 1678% 1680 1687¢ 16939 1704 1712 1720 


PROG ID 
oe _. .. PAGE 


i 





4248230 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOW 4248730 
27 Cc: ; PAGE — QTA 
FFF2 OLAGNOSTIC CONTROL PROGRAM — MODEL 12 
3 CROSS-REFERENCE 
c SymBo. T LEN VALUE DEFN REFERENCES 
SRX A 004 1108 1682 1651® 1733 
. SRL & 004 0386 0709 0705% 
{ -SR2 A 004 0401 0746 0707 
SSDEST A 002 0685 1034 1029* 104i 
SSW & 001 05D2 0971 0260 
~€ SswD =A 003 OBF? 0471 0422 
SSWOA C001 0020 1377. 
~ SSHOB C 001 0010 1378 
C-sswoc C001 0008 1379 
SSWOD C001 0004 1380 
-SSWOE C 001 0002 1381 
€ SswoF € 001 0001 1382 
SSWOO C 001 0080 1367 0600 0904 
, SSWOL C 001 0040 1368 0598 0895 
€ sswo2 €.001 0020 1369 0919 
SSWO3 C 001 0010 1370 0987 1098° 
 - SSHOS C001 0008 1371 0989 1100 1290 
: € sswoS C 001 0004 1372 1103 1105 2223 2227 
SSWO6 C001 0002 1373 1293 
SSWO7 C 001 0001 1374 0254 0328 0609 1231 1757 
€-sswo8 C001 0080 1375 
SSWO9 C001 0040 1376 0613 
. SSW2F € 001 0001 1383 1617 1635 
CisTATUS A 004 OOSF C478  0113* 0114 ° 
STEP A 004 0320 0635 0631 7 
Sl A004 vV0C2 0140 0138% 0139 0142¢ 0143 0146 
€3s2 A 004 00C6 0141 0139 
TBASE A O!1 0409 0767 
. TEMP A 001 0368 0665 0729% 0730 0732¢ 0733 
i & ATEMPA A 001 1108 1781 
' " TEMPL A 001 0386 0691 0684* 0686* 0687 O6Ag% : 
TEST A004 0212 0522 0575 0612 0620 0633 1095 1265 1772 1941 
ESTESTE A 004 0460 0807  0797* 0843* 08768 
TEST1 A001 0472 9809 801 0803 
_TEST11 A 003 O4EB 0859 0849 
-- E3TEST12 A 005 O4F7 0863 0873 
,  TEST13 A 003 O4FF 0865 
/  TEST1& A 004 0505 0867 0866 
| €test16 a 005 051£ 0874 0868 . Races te 
TEST2 A 003 0478 0814 0840 0864 0855 0858 0866 0678 mL 
_TEST3 A 003 0484 0819 0815 
ESTESTSA A 004 0485 0833 
TEST6 A 004 O4A9 0835 
| @,TEST6A A 001 0486 0839 0837 - 
| €31esT7 A 003 0489 0841 0826 1796 
| TEST7A A 001 O4C7 0845 0842 
| @ TESTS A 003 04D6 0851 0847 
| GJIEST9 A 001 O4€2 0856 0852 
| TEXIT A 004 0465 0805 0796 0799 oO860 
| cxTEXITL A 004 0469 0806 07948 
€STHLt 4 003 0487 0820 0811" 0812 0814 vBlES 0817 08199 
| THREE A 001 O2EA 0616 0635 | 
~™SG AOl8 OSA? 0966 0606 
€1tomu a 003 «-O0FS «0163 
| “TOMUCH A 001 0101 0165 0163, 
| TONE 4 001 0414 0773. 0871 
Catevcey A 004 1303 1889 1886 
|  TRYFCO-A 006 1123 1689 1684 na 
| ~TRYFOD A 004 7800 2056 0798 
' Cotevepe A 006 10E9 167% 1690 
TRYOUT A 001 1100 1679 1675 
| ¢TRY163 A 006 110C 1683 
C:trves A 006 OAS 1437 | 
TRI = A 001-0537 «1318 =~ 022 
_TR1442 A 004 1468 1933 1930 
Grr A 002 0789 1316 0523 
FrF~2; ©}\oave  29auc75 Ss OTNOV75 LOMARTS PROG ID 
27 | EC NO. 827804 827805 827872 PAGE 


| 





*S 
‘ fe 


18M MAINTENANCE OILAGNOSTIC PROGRAM ' PART NOW 4248230 IBM MAINTENANCE DIAGNOSTIC PROGRAM PaRT NG. 4248230 


PAGE 28 cr : , PASE - 268 


FFF2 DIAGNOSTIC CONTROL PROGRAM - MODEL 12 FFF2 DIAGNOSTIC CONTROL PROGRAM - MODEL 12° 


CROSS-REFERENCE 6 


CROSS-REFERENCE 
SYMBOL T LEN VALUE DEFN REFERENCES 


SYMBOL T LEN VALUE ODEFN REFERENCES 


TR3 A 001 O2CC 1317 0524 © 0179 0218% 0219 0228 0230* 0231 0232 0232* 0233 0239 O261 C2461* 
TR3741 A 004 1457 1928 1925 a 0242 0244 0244*% 0252 0260 0263 0263* 0264 0270 O27l OZFI* 0274 
TR4 A 001 0680 1318 0525 \€3 0277 0288 0290 0292 0319 0334 0336 0337 0339 0339 0340 C342 
TRS A 002 O78B 1319 0526 , 0350 0351 0356 0356* 0357 0360* 0363 0371 0373 0377 O377% O376 
TRS5424 A 004 1446 1923 1921 : , 0397 0397% 0398 0400 0400* 0401 0403 0405 0405% 6407 0409 06410 
TRE A 002 0231 12320 0527 € 0412 0422 0429 0434 0436 0445 0458% 0459 0574 0576% 0579 GS580 
TRI A 001 O55C 1321 0528 0583 0587% 0591 0595 0617 0621* 0623 0626 0627 0629 0636% 6637 
TSTCRD A 0OlL O48F 0823 1794 1907% 0639 0656* 0657 0658 0658 0659 0660 0661 0683 0684 0686 6687 
TSTDSK & 001 0464 080% 1906# : | © 0689 0689 0693 0693 0694 0697 0698 0699 0700 0706 OFO2 C703 
TSTFD6 A 004 1078 1624 0706 0725 O727 C728 0729 0730 0732 0732 0733 0736 O73? 739 
TSTINS A 003 1488 1945 1902 0740 0741 O741 0742 0742 O744 OT45* 0772 OTTG OT7TT* OFFS C779 
TSTOVL A 003 0456 0799 1902% 2056 : 0779 0781 0782 0782 0783 0783 0784 0784 0785* 0787 OFE89e C792 
TSTUOT A OGL 1365 1894 1890 0796 0805* 0829* 0831 0831 0832 0833* 0835 0836 0838 O&61* C862 
TSTOT A OOL 1019 1579 1554 1558 1562 0863 0867 0869 0872 0872% 0874 0875 0875* 0876 O877 S€S1 G210¢ 
THO & 902 0341 0651 0582 O742 1094 1285 0912 0918 0920 0923 0923% 0924 0925% 0977 ««O979% 0982 0984 O99) 
TwOK «6&4 002 LIDE 1783 0995 0997 1002 1004 1004* 1005 1023% 1028 1028% 1029 1035 80393 
v3 A 001 0483 08186 1047 1050 1052 1065* 1066 1067 1070 1076* 1092% 1093 11286* B1353 
UADDR A 002 OF4SF 1496 14934 1159# 1160 1165 1166 1166% 1200 1208% 1209 1213 1212 32ES 219 
UDTA A COS CAES 0396 0386 1219% 1242® 1243 1244 1246 1284* 1286 1288 1296 1297 1298 E299 
ulTB A O03 OBLF 0407 0404 

UDTC A 003 OB2A 0410 6408 1536% 15607 1561 1597* 1598 1657* 1661 1663 1665 1672 1676 2677 
UDTD A 006 0645 0416 0413 1685 1686 1691 1692 1852 1853* 1855 1856 1857 1860 12861 2862%* 
UDTLP A 003 OF3F 1491 1537 


6 
© 
@ 
1452® 1455 1459 1459* 1460 1489% 1491 1493 1504 1505 1535 48536 
S : 
© 
e 


0615 0615 0619% 0620 0626 0630 0633 0634 0635 0635 G636 0637 
ULP4 003 oB808 6400 0420 


0655* 0659 0660 0661 0662 0662% 0684 0699% O707 O729 Q736e O746 
UNPACK 


UNPK1 


{ 
4 
1863* 1918 1939% 1967 1975 1977 1978 1983 1984 1993 1996 1999 
UDTLP1 A 006 OF63 1502 2526 2000 2001 2002 2003 2006 2008 20%1. 2023 2029 2030 2032 2036 
UD TI C O01 0249 0480 2037 2042 2043 2044 ; 
udTe2 C 001 9261 0483 | C 001 0002 1354 0053 0054% 0058 0059 0061 0062 0065 0065 0666 0204 GLOSS G68 
UFINDL A 00% O912 1208 £226 ; 60109 6110 O112 O113 0114 0117 O132 0133 O134 O136* Cn37 G138 
YEINDZ A 004 0916 1209 1220 | 0139 0139 0142 0142 0143 0144 0146 0146 0147 O1486 249 6154 
UFINO3 A 003 0928 1214 1224 0155 0157 0230 0233 0238 0238 0240 0243 0245 0255 C258 9275 
UFINDS A 003 0935 1218 i210 | 0283 0299 0329 0332 0364 0367 0383* 0384 0384* 0385 a350 ©0392 
ULP1 A 004 OACL 0378 0406 : 039% 0395° 0396 0418 419 0440 0468 0567 0571 O572% 0573 O574 
ULP2 & 003 OAD2 0384 0393 , 0575 0576 0577 0582 0588* 0594 0597 0598 0600 0609 0612 0613 
ULP3 A 005 0833 0412 0415 
A 
A 
A 
A 


004 O21& 0525 0284 1006 1010 1014 1494 2131 27137 2143 2147 


0793 0794 0795% 0796 0797 0800 0802 O8C6* O81L 0814 G516 o81¢ 3 
003 0371 0683 0702 


0822 0824 0825 0832 0835 0840 0841 0843 0844 O846 348 0850 
UNPK2 G04 0374 0684 0698 





e 0851 0855 0857 0858 0859 0860 0866 0°67 0871 O873 O876 O878 ; 

UNPK3 A 004 0385 0690 0688 —— | 0879 0965 0975 O976* 0982 0983 0986 0991 0992 1005 31020 2024 . 
UNPK4 A 003 0399 0699 0696 | 2 1029 1036 1036 1037 1036 1042 1051 1057 1057 1066% £669 1069% ; 
uoK A 00% OAZA 0327 0322 0324 1072 1072% 1073 1073* 1074 1077* 1083 1089% 1090 1092 3093 2094 —_ 
TR A 002 OACB 0381 0378* 1118 LLL9 1120 2222 1122 1123 1125 1126 11273 1142 B266 LEST : 
USETL A 003 OBSi 0418 0416% | @ 1149 1150 1152 2153 1158 1162 1163 1164 1167 1168 8269 1207¢ ‘ 
USET2 A 003 0854 0419 04172 1209 1211 1212 1213 1214 1215 1215# 1221 1240 1241® 2242 1243 : 
UTAB A OOL 0232 0534 0322 0323 0375* 0376 0376* 0383 0451 1208 1489 1560 1582 i584 | @ 1275 1283 1296 1297 1298 1299 1304 oe see ae eae add 

1668 1856 1895 1903 1308 1308 1451% 1455 1456 1456% 1498% ; 
VTAD € 001 0004 1696 1676 1685 1691 1512 1512# 1520 1526 1774 1944 1945 1966 1969 1970 8971 12972 i 
VTEND A 001 1130 1703 1973 1979 1981 1982 1986 1992 1995 1997 1998 2009 2010 20123 i 
VTID A003 LIEL 1784 1672® 1674 1683 1689 @ 2022 2025 2026 2027 2028 2033 2034 2035 2045 2175 2179 2184 © 
vT33. C 002 COCE 1697 1677 1686 1692 2203 2204 = oa 
VXR1  & 004 043C 0789 OTT62 | a. XTCHKL A 003 13A8 1857 1862 7 
WASPOP A 001 OFIF 1475 1468 ; &35xz1 A 004 136F 1837 1842 F : oS 
xC7 A 001 L1fB 1793 1511 i+  XOO0O A 002 1209 1800 1748 . : 
MERLIN A CO2 17C8 2015 1999% 2000 2002 . , X08 & 001 11DC 1782~—«C. . ne 
XERSNS A 003 1797 1999 2003 ' | €2x100. A 002 21F8 1792 ; 
XF 1 A 001 0a96 0362 0350 t  ¥200 & 001 0200 0224 0209 
XM A 004 1004 1564 i _x39 A 001 O38F 0695 0689 
XH A013 1332 28620: 1568 eee: —2X¥87F A OOL O87F 1199 1200 : - 
XONE A 0Ol 0681 1032 1036 ZONE A001 O7EF 1091 1147 1167 ot ; _ eigagene Sip. scnse® dep : Bg Seo 
XREFL A 004 O2F3 0619 1342 1773 | ZRO & 006 0112 0205 0206* 0207 0208 pee a S5: 
XREF2 A 0Ol 13C0 1862 1343 : : 
XREF3 A COL OESC 1420. 1340 TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = . 0 
XREF& A 201 0413 O775 1339 
XREFS A 002 0412 O774 1338 , e 
xR C 001 0001 1353 0021 0022 0023 0024 0026 0027 0031 0052 0055 0055* 0063 0064 

: 0064 0106% 0124 0126 0128 0130 0131 0131* 0152 0135* 0140 0240 

- O141 0142 0145 0145 O147# 0151 0154 0155 0256 0156® 0164 0178% @ - 
DATE 29AUGT5 O7NOV75 LQHARTS PROG ID FFF=-2 CGooate 29AUGTS OT7NOVTS IQMART6 PROG IO FFF-2- 
ECMO. 827808 827805 = 827872 PAGE _ 28 


EC NO. 827804 827805 827872 : : os pace 268A 





| 
| 
| : | 
af 
I 
4 
1 


° @ @ ® 3 @ @ @ $ ®@ @ & © eo @ eo @ - @ © 


Tens Dw 


“_ T4—>*CCO 


_ Tee? 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


FFF2 


THE CHARACTER 


DIAGNOSTIC CONTROL PROGRAM — MODEL 12 


OBJECT CARD LISTING 


INDICATES & BLANK COLUMN AND THE CHARACTERS D E H INDICATE 


CL 1 THRGUGH 16 CL 17 THROUGH 32 Ci 33 THROUGH 48 CL 49 THROUGH 64 


THEDLID -"03=6"8 
T4~EBOH® S@HABHA 


Te-E*-K"K EE*EOC 


T+-F8/*BG SOB 


T+-G3<aBG /8B -~a 


T 6G5aiDd 


T 0G* F ADO 

Te-¥: 311 8a. 0F <I 
1#=25/2**00C2 OM 
T+-DOBXa Ha BGBWU 
T#=953-DHl _BPOO 
Te-twaes << ABH 
ae 


~-a 


14-?PAcY* | Las IH 


THE?9IT HeO- C- 


ease 

. Te-HO RT-/005 EB 
Te-ae3P/ 1HEDS> 

_TeecwaPs [HEEsH 
‘DATE —- 29AUG75 
€C NO. 827804 


- 827805 


~"03"G7a~"0aA JN 


“'6EC =SYILOH*BI-& 


31K EG-79("PR C 
DDZBGAAL*EOGK &1 


PJGB ESEa-DEGE< 


SPSeeaeeosoeneveee 
@eeeeooeaneoeceaeoenoan 


HO*XN DO -NO a-D 


e 


*°"H aG7FB7HAASO 
3” HD4=-DASM <ayD 
% VeBP *HAALEABS? 
< zest so _# 
K OY(LO 6-72--¥ 
1OHeA;D4DA0Y-#-0 
GUXTE <BABSTO+6® 
-TEYFCO HC-#38 & 


tJ 


Bese oeseaeesaeoad 
¢ E CX108 ~aBsKE 


1$/ << GAL=e- C 


a 


ACL4A Jt / OKC<4 
H#/6D 2-~#MAa-DE_EG 
2 688 EGHHSA ?70H* 


~GESOH* STTE ¢ 


A*E"2-J3<) 0G5P°H 


MPeeaeeaeGeeeseeoeasen®d 


&@20 8202002880886 88 


VYt& B<ZBABSY'a H 


QG19aa Raa P 70H 


‘DOHSHR SHABHC 2/06 


7OHW - BD=B -H 
A PS- JHA *HA PS 


+ JHCD-1 /023C 


OLA®.7L088-8a / 
0$01 /0B-1E 8<?H 
20H® O<BGB *'PS8>0 
EC3MEABUSD .<(J 
as EI-F- 4£80 C 


D CHEE6<eKAE- 


8 -T-/008 E6°3 D az ($- B)T-1 7H 


OINOVTS® ——« AGNARTE 


B27872 . 


A™1""OH* SOD 
34H* 4&-DH_ GtOHs 
BFSG-/2'( -HE4Z 


Ae3-D ~7EUHG /0 


AB3MH ~"047] /OF 


Seeeeaeaneseeaeoe oe 


Seeeseoeeeesonoeen ene 


2avDFac_?aF* 10H* 
Wa-SH <<a HDI OD 
1~#*D8HD2aC_2aF* 
26-HC>A ABZ aC 


<BA H_*EOC2 E- 


eM/HBC = CNJHCO~ 

BLER. BP2-JE( -% 

AB? #S*A2PSBGBST 
@e@60e80G0e2 ae 

HSE 

F-CMEABZ5D HI IJ 

2uac /0 O-D <H 


* COG~-Z=8 EC2D $ 


SEXZ) 9 71*AHAB~ 


PART NO. 
PAGE 29 


CL 65 THROUGH 80 


eeeee 


BI-H 27G3 -G5 


A RY4 OH -7K &M 
( -ADSBG F 9, G 
274B A™# € E~s3} 


LOCA -T-DBa" /OH 
H-4Q € DO--U<aYD 


*8H*?BEA'9 C2 ES 


ee 


7aF'POH® S84 OD 


K Ge 70sAe> O-t 
A>~ BOH*.8D4B -?2 
H 2HAD~ #S*A7A=8 


B SEM( DAEZBGCY3 


SeeseeeSeEoeedatvegqe 


EP OS #v 


A & -HUO-HBB.&) 


e ¢ e 
B ¢ 40 


3K8 azB 
0+73-/0D8& G2D K 


#S4BGB,3**Ea "3H 


PROG I0 
PAGE 29 


NUMERIC SHIFT. 


‘Gal 7ZMFFF20010' (3 1+~KnNesHPasG; C 
\ 


ie. 
4248230 | 
FFF2 


if io 


CL 1 THROUGH 16 
€ 


ClT4~+e_SHBOH® CE 


CL 81 THROUGH 96 7 
T+=(/$EDB0<BA 1* 


| 
| 
| 
| 
| 


09<FFF20006; 


1 
ee ee 


3 OSEFFF20007: € it4-1P 
i 


a4 0541H-~ 


& 60 Seu Encore Cite-ex -33 B3VF 


"8A STaFFF20009' CiteJit DDLaHAA V 


{ e eee 
K meneonty Cir+-tc . | sTé ww 


eSDFFFZ0012) €31~t=8Hrx2-0 ayo 


ENS 5.0FFFZ0013) © 14-n9ac_pan) xx6 


HC- svreksénia. 


| 


EL- €oorFr20017| Ere-oveti esse 8 


Gte-ne -12u &* ev 





"6 < 3,8FFF20015| Er-o7arce ons 3- 


KavD 46 FFF20016; €)7+-pp4*sai<POBHA 


Ta-D :AHFFF20C18, E>1e-k-sosps <-oT 


G30 sTHFFF20019} @)1+-Eswi3ze ese? 


0H oparee20020| Gr+-soazxeoneGest 


#-ZFFF20021| €31¢-23H7HBBSBGA 1+ 


#3HFFF20022 Gte-1< <ae ce -* 


HY.6 #:-FFF20023' €)14-;6°-1 D daave 


os | 
E>Y P3EFFF20024| E>1+—-BaL TU<HAAS! 


2 OM 48HFFF20025| € jTHO-WO-DH-GDe +< 


5 aM NYEFFF20026° @§1+—=: 95.39 (Peet 
. t 


FFF-2, E30ate 
; EC NO. 


|® 


@ 


29AUGT5 
3827804 


I8M MAINTENANCE DIAGNOSTIC PROGRAM 


DIAGNOSTIC CONTROL PROGRAM —- 


‘CL 17 THROUGH 32 


* -G" ZBG C /0H 


HA T /0( B+ <9E A 


At -COLEAA 4 -& 


B16 -I* El2-ER 


4BCZQ 1a13*--P 
2/02"*#EC2/A+84 C 
- JHEH@HA -var™E. 


1?— @-DN>-DU?7L 


— & THADXT™ Beaaco 


COHD IHGUCT* sc 
~=/8 G D NH4-D 
“285 92nx94_ 5x 
“aD AsH az H?EO 
“BEABE C2UGLK 60 
~e-nBCEHLaS 0*-0 
“OH*GE® AG F2ED 
~ sBGA_E</ T8BE_ 
P_ /0_8E0X E3 08 
+n” paaccoe77 
2/0$0+5"-710> § 
O . RE.UCE+BE61 


986_303~.T94PHI=T 


OTNOV75 
827805 





MODEL 12 


OBJECT CARD LISTING 


CL 33 THROUGH 48 


> 7)" Bt -CE<B 


H Gy OKX7 SK? HBAES 


DOH*DJ<BG 46 & 


a E16/993 EMBPO. 
_ EBABEVO $810-D 
2078 & O-H <6 
'POZB »EAVAHA A 
Ad YHFAC_68H) X8H* 
>” "yc" 7MA =869/0 
2 G48- KHOA <B 
Ot DEVSHA C/O. 
14cU9+-KOLXRKAC 
Ae3 BBINGACUH -T 
ea a 
RCDHA #EA3EBG 6U 
1 st 9"2-se8 és 
5 &804-H 3D az 
A® (AOH®BDTS A)- 
= 4147003480190 
1BC>- AZWa~SO" BET 


{HA K@ AZUHS H 


ZMF_%4).15¢P05'T 


LSDRART6 
827872 


C8-HBSL 


CL 49 THROUGH 64 


G 2:05 -&HO-OCIES 


KY<a P—E< X4 


HOHSCEX-A PHEAMA 
A) AUSHA CB - 
BBGY CZAACPB & 


G A 7C18aY*{7L9 


Z -HA3&aBa/ C300 


BBHIX?-H B EMC(ED 


C /0C4-0D_ E=t D 
G wy (e0B0E8 B-< 
" BSPCBAXOSMCT LIX 
$8>$SCEBA). 
2utse AG >*=D1F- 
"704s -YAAS, /0H 
AAIG WX1, E8 Gad 
( 20AAR% G- F20D 


@z C8-H 


2U #90 HHeY*D:&-— 


ASUK#BET3° C/9Ve 


2 JS* E#--OM* ~P 


ee2eoeeee8a8e 


O8tilyv 


RQE_#0%-C1CPFLAaT 


PART NO. 
PAGE 


cL 65 THROUGH 80 


A3.5% $ E<AFO 


B+-HAAX06+}86460 
rere war a 
“oHe HA HAHA H 
“one CEBAF3B -& 
SaYDF2C 98a eC 2F_ 
"BHIX?38 @-DNT E 
Ha10 6-< GE HOC 
EVEBGRICAARE’/0J 
ey oe 

Cxl& B~< ayOGac_ 
H2)PABaPDSZPCEaX 
B -07t DECTEHAIO 
F2e-6 iHt_P== tH 
° . o 
3 SYCAS7 s0eP8 D 
scam, (6 DOW 
<6 vospe-8 


CO-HA( HGEZHA C 


SB<BEADMIA HHSZA 


780-8 -O7(SO0GESB 
ORs ale 6: > 


M@YHD! HESCO ASW 


SESS HABHETHAOOTSE 


7iLU_* 


PROG ID 
” PAGE 


ie queen 


4248230 
298 


CL 61 THROUGH 96 


AZ&& LSSFFF20027 
® ° , 
B VS 7S*FFF20028 


On }H FPI<FFF2C029 


eeen 


eee 
~ 


A KCOEFFF20030 


+ op 
re 


J_ D COYFFE20031 


oe 


8aCZ O:-FFF20032 | 


3. 


~ANO ®24FFF20033. 


2-€0 2/-FFF 20034. 


D4D =sO0QFFF20035- 


e 
POH* 2 TEFFF20036 : 


OSM &DOFFF20037 
5 &* TBQFFF20038° 


ED® *-4FFF20039° 


o 
TFO- $ SFFF20060° 


Ie- 1 ,UFFEZ0041 - 


2 Ab RREFFFZ20042° 


B- §6<FFF20043. 


e @ e : 
At & Gf FFFZ0064 © 


@ESM #2 FFF20048 
RLOFFF20067 


#ADFFF 20048 | 


294. 


G  -DFFF20065 — 


FFF=2 





' hg. 





suite 


FFF2 


CL 1 THROUGH 16 


e#eeoeoeenned ed 


T+-/5 


o eS ee COeEGE Be 


T Gf? 


e 


¥eru2& OO AQISTS 


ef 


T+-V50L FEeVY aH 


@eerae 


T+-WO /08/08 


e 


Tt-X,DiL-H -T2uCc® 


TDOK" HO 1-BE G* 


a 


TO sever 


eo 


C fO2<¢ 
Te-8FCA& DAGTOH* 
Teak 30CKe fea 
T+-8383Y ODONS49%H 
2@ 
Te~*7D-3® C2-98 


V4n2Z2T AD-Ksa F 


Tenet si © /HGa-B 
T*/ Y¥*)HAL@BGD 86 
T#fAT~ H301 J2éH 


T+/BsGUMEICYA -7 


T¢/CREABGOQNZ4BAD 


| ¥*#/DROGHZSYODE + 
“T4/EILG DEVOESAAG 
_T*#/FHDS 8EADGa/ — 


_ THIGE{-3Hs* ADE - 


DATE 
EC NO. . 


29AUGTS 
827804 


. TBM MAINTENANCE DIAGNOSTIC PROGRAM 


CL 17 THROUGH 32 
Osese@ eevee Gres easc 


Se eaeoeertreseceeonene 


B-.2DC8B —YHO-D 


& * @ QBGBKT /0H 


Fat }VS$PP4G~5a 


2/038 -HHas SW I 


e eee a 


a OH*DI<CBG #4 


soeeieseee °3. 
LO<BG /YJC KHEH 
<CLINDVOC ALE -& 
"paBG /YB+LINave 


& &*FOHEBG-D = S 


ee 


Ox-G2——-0+ DJ=eH 
IT CHO/¥a AHGCAU 
~a-pa0-pe<xé— 14 
A TItY C2 sEavAD 
" /OHDEL“ODGH<D 

olA-&8C0 G=89 AD 

E:ROBDSDFCEHNS JC 


WCTD DLOL /6/D6C 


4C. -HLLJS{-OH*BF-H 


‘@aT#elals ait-c-~a 


OTNOVTS | 
827805 


DIAGNOSTIC CONTROL PROGRAM - MODEL 12 


OBJECT CARD. LISTING 


CL 33 THROUGH 48 


@ecotoeeensoteocodc 
gxeeeneseoaceecaeaeace 


oe e ee 


BKuS C2 US® 
EJO8E_-a +ED8BCU 
"30134CO4B GHOHRE 
V I-CEEBO X AW { 


Seoeeeneo eesvoacoecn 


{ cicT® of &* 
@/ O@HO~HKJZHAD 5D 
HOH®BF-DPDTG /OH 


CO-HH/.1- OAD=< 
B EBAD-<K 08 D-é 
KY OSEOH*BF-DEDDE 
AE#BGD6~+ /OHE LO 
#0H*®EZC—-DL 32UB0 
ED3<aD 6°4< JI<B 


20H*BH-.8 ES OH* 


Wa-D+G. DE*—E# AAG 


SCZG 0~€0S*AAG 


305 SHADGas +C H 


JXJF 10J-J2LDED—-U 


LORART 
827872... 


CL 49 THROUGH 64. 


@eoaneveszee @Of Ceeeo 
SSFESsesc ae eeneanre 


Bu <A SY- SE 3H 
H -72U [0+3"B -¥Y 


CZSHBBO 5 &EHC-D 


4 LOG<Za**0Y +% 


aD <aavere HC! H 
* AtEDS, H #ax 
E ucktapG svacii 
€X30 D-e¢ "00-4 
CXB4ED-L =" THED 
BD GK 61 U aMoHe 
L<286D6~ /OHEECT 
‘YAD#aYDKC DEVIC 
EDeU< s85DIU: EH 
BH/A**0C -JEX-5 
OCTY-DLOBHADSOI 
eCTZ OL3" CS DL3 


CIs (WOH*#BF-H305C 


1F 1H. CJHKCE 3GE*Y 


PART NO. 
PAGE 30 


CL 65 THROUGH 80 


eGeovoeaeuvateeooa stra 
S2eeeseeacvaarzsaeee 


oe 


8 aBEBJ.2/198D G 
C_&B0X aoc /D 


DB {AE AaYHE-*a 


i -HoB:0 EOBz FO 
BAS’ KCAHEA/OKEAH 
""eHE TOGCOsK EE 
1OH*BF-D3D2-8 6H 
<"ss0-t9" €9" 
KATHACHOEBJHL! 
BE/G /OHEAKOK1<B 
G -C JGIIM B<zH 
20 D~#1G4C DEX/G 


{OH®BH/~ ABECA 


OHDSR44B /1TO D 


&?7*BG ( /G6/D57. 


2D BK /<*DST /OH 


7OHEE"™ #$"A2F a8 


N2®<EUSD~DS$01< 56 


. PROG ID 
~~ PAGE 





{ 


eS 


FFF2 
G 


ot 1 THROUGH 16 


CL 81 THROUGH 96 


as 


*/HFFEZ0040 Eo Tes al-B+ DBBIH 


eaeece ; < 
1 


SIMFFF2005O! © >T4sH#<0 


ee eee 


{C4 

° oo fe 
K &< ECHFFF20051 € 714/162 )4NBUCA6SN 
COKE & -FFF20052: G:t4/H103N O° SROeP 


A@YE S$3UFFF20053 Co1# 0 BE0A GDA 1<] 


@  7ZQFFF2005¢' € 'T+/<KOFA-OFA-OFA 


t 
i 
a2ee0e0 


MAQFFF20055 | €147 (82665) $$8aXx 
| 


KOSFFF20056: €314/4)69$D' TEHDEE 
| 
| 


! 


FCO O#fDFFF20057: 


E51e/10x10 02U O-D 


‘6  LHEFFF20058: @5t+/ELD=Poeeros7s 


21 D *0YFFF20059: Ed1+74+( OR CBAHS 
, et 
2DAQ JSDFFF20060. G3 14/K 140-4881 2/2 


| 
e { is, * oe 
KASH @-*FFF20061 | G3t+/L0 Ma EDA-OFA 
: | : 
GD84 SAMFFF20062 GIT+/L™44C0E<E 10C 


AtT- 6-HFFF20063) Sar sweeps 
6C D GlereF200e4. Gresceepa eva an. 


DAD e1EFFF20065; EFT+/R EDA GDA EDA 


JR34 OT FFF20066) EFTHIRDEDA GDA 1<P 


1 


2.88 TEseFF20067 EBt+sseac_~sHeL2sa 


4 
t 


E se srseer200e8 Sr ascrs 


é | 


etveeceseoen 


GDE- :COFFE20069} €214/-~BaC_~BH#L eM 


a 
De aSDFFFZ20070! ESta1—H/6Nn Ga 


' 


aa 
Fre-2) Cpoate 
faye 30 i 


i e 
i @ 

gs 2 

ee 


29AUG75 





EC NO. 827804 


4248230; 18M MAINTENANCE DIAGNOSTIC PROGRAM 


DIAGNOSTIC CONTROL PROGRAM - 


CL 17 THROUGH 32 


&" #1886 /. /0. 
 EHZABL1O0eLEGI- 
201" 60A EDA EDA 
CBSA-S*PR2ES$YQDA 


PE<CXSE( FOCFLELDA 


~OFCD9(LPE+1 ASON 


CBEWCP 6} $G62GME+~ 


@ s/+ClE H? 028.2% 
B<x% fHABX—& dH 


/1K {& B<BBAD*? 


S*-3C -DA®8HGA-2 


ALF CEPHABELBA IB 


~OFA-OFA-OFA-OEA 


E&<s GDA 66° EDA 
TADCM2* IRSWCCSZL 
EDA EDA ECA EDA 


S$2}XE10CP6) $6646 


_BHEVEZ IE 2A *3/ 


@eseeveseeceeoueesee 


SPsAIBHEVEeD( 3 & 


eoeseeneecoescsesee 


OTNOVTS 
827805 


MODEL 12 


OBJECT CARD LISTING 


CL 33 THROUGH 48 


ee eeenue DEBERBE 


3 tH 

R2ZIPTLIXMSZLES4SC 
“EDA EDA OCP 1B4C 
"EDA EDA EDA EDA 
“EDA EDA EDA EDA 
"LexR5_V B>1abax 
X94CNS>( 1_sUSeJ 
H2<BG /Y/CO LT ¢ 
A @BeD:TB & OMe 


A1K {H*L#-OA ZO 


E ~@A"37E ~C2 Gf 


P27HGE<BGOB5$a-D 


_ TQFA~QFARQFAWOFA 


‘BDA. 6DA-QF A-OQFA 


SESevovce woos ae soge 


ESCLOOFLELDA EDA 
EDA E4LS1MCC5_P 


MK4A EDA EDA EDA 


T4s— B88 4-D$4~—~ 


ee 


"41 3 DMGl 134< 


2@@eeeeoeesaaoooeee 


LOMART6 
827872 


CL 49 THROUGH 64 


S@ecseeeeeve see 


AG 
XKGA 8>}06%GG1MA 
OL*SI5*XT2)SNECS 
“EDA GDA EDA GDA 
"GDA EDA EDA-OFA 
SBAXC BUCB1S$064N 
"5 N 1<xSoucia? It 


eeee e 


-9 OLSSBG (- 


CEHEH**P S$ avd 
A"EOA 3S A"OOBAE~ 


2/4U4 JS*OHFL TIC 


ACOSGT / TLavecacs 


+ QFAWEDA EDA EDA . 


~OFA-QFA~OFA-OFA 


Svecwoscesvaceve 


&DA EDA EDA EDA 
S5_1E6¢.823 IC 2<P 


GDA EDA EDA 


Z~JBS"2UEIC OD 


HCMEGOTEBE?Z(B CE 


Poeoeoceeceegecee 


PART NO. 4748230 


PAGE 


CL 65 THROUGK 806 


WOsZsa 0 TGer* 


=—X4UA &<EPSDC 
AO_LTESO_-K4_ S4t 
&DA EDA 6DA EDA 
~QFA-QFA-QFA~QFA 
OSL NS*XNLSCD23~ 
&ta$Te(- aal3lSi 
L2ZEADETS J+ "C-D 
HI*MH-< AEH * H 
ee * 
MSTS FE2DAUC -< 
2 6842/38 /ittalh 
eo ® e o 
#0-D <BG /. /0 
L4A GOCDE<( 54A 
“QF A-OF A-QFA-OQFA 
SSeTeoeose see eee eoo 
EDA EDA EDA EDA 
SE+ 10E4 -E2OPC8GA 


Seon etescoeszveenenee 


RaA X4an~ CHCH*OU 


eaenvsesscoeceesene ~~ 


BH#ABE.UHI*BE 16 


PROG ID 
" PAGE 


304 


CL 81 THROUGH 96° 


Lave =1*FFF 20071 
O5=2< =S<FFF20072 
S84 OSHEFF20073 
“6D 1SOFFEZ0076 
~QF  TSDFFF20075 
KE<E 27-FFFZ0076 
00%< Ee*FEF20077 
L70< KCOFFF 20078 
ee 
© D KB-FEF20079 


D-D KLEFFFZ0080 


ABED LSYFFFZ0081 | 


2 casrerzo0s2°— 


e ee » 
ED *Z<FFFZ20083 


+ 


“ED °YOFFF20084 


Sseaeasced 


“3CERFF20085_ 

9 ee o : 
SD 0 OFFF20086. 

ED MG FFF20087_ 

aeeaee,, . i 
EXOFFF20088 | 

” BHe %.4FEF20089° 


“@eneosn 


CB+ #VHFFF20001 : 


@eecce. 


2.QFFF20090 ~~ 


ae FFF20092. 


FFF<2. 
304. 


Cs 


oo 


ee F - 


& @ & © = @ @ © @ & } @ @ @ © © @ @ € @ 
Ves, 
| we & @ & @ © @ & ® & & @ ® & & 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


FFF2 
CL 1 THROUGH 16 


T4/TBAC_8H*L73A 
TOATLBIZ@"476/11 
1 7-CoH*ON- 
T+X424 EBBHEBCE 
T+X559#BGAl=- #8 
T#X60D OASER!*TO 
TXT, $_"a8BG /8 
Texew/75D DD 
T#X9/EDA &<GDLUV 
Tex:#'DA BIR EIC 
TEX#PS<PO+T™—/1¢ 
T4xaKkP? Pac Jann 
Tex*(pes2etal tH 
TEP'TU Q</ T@BEC 
Toseow* 
TRESIO 'SUE(XEO*S 
TBESLOCLTE(KEO'S 
TE&S ZO0GC2<G1SMC 
TGESG2)LA1aN 0aG 
TGE5V2)LA1aN 0aG 
TGEEC2ZILALAN 086 


TGEG/2Z)LAIAN OaG 


DATE 
ec NO. 


29AUGT5S 
827804 


CL 17 THROUGH 42 


) SHE VZNJD®NAHGN 


a 07-/6M < 


O -X /75F+ DBBL- 


GaLe /OHED*B8G /0 


[rEQ< P78270+ 67 


& "W3-0A=1A 908 
serra aes 
*eicosocoaua atu 
BEDCOOMA a<t EIC 
4BG*RALS @1T-23A 
£0 <D-~->H10X* /a16 
AE G8A~5 * "P6468 Ia 
ters ae 


2006008082888 248088 


DIAGNOSTIC CONTROL PROGRAM ~ MODEL 12 


OBJECT CARD LISTING 


CL 33 THROUGH 48 CL 49 THROUGH 64 


@5& 4NHOZE{ OLR 


eaeenveeotc eevee ece®? 
aeeeaceev,oeoeeeoooe 


FA)L2UA-@CEPMCO 
AHGBVCG<H'G: 30H* 
fa..2HAC /OHEDEL 
AndA'aSBG /8E 
AS #2EE4.W231C20C 
 gIceeDco=DA axe 
EEDA EDA EDA £1C 
YOHESNT7"BGUS"0/ 
KOS's#$ O6.-HE< 
1 [HAA-8A95* @P EG 
scastetentusoese 


2028202002000 083008 


Ri 
R1 
e SSeeeesoesveeve 

X9=) QDCOS=F15_P ASO 
RIDCLECXNECTESSA —E¢$P89X054G6L 
R1LDCZE<XNECTES4A 9-81 SP8AXO54CL 
RIDCIE<XNECTES4A —&($P8aX05*GL 
R LOC 4E<XNECTED4SA ~& ($P8aX059GL 

OTNOV7S TOMAR TSE 

827805 827872 


>E* 41 Kant .aYD 


SeeeeeseaFeHeeeee 


eeoeeneneaeeeoeoee 


ESGTOOHHF9*BGA1— 
BFODaCTOW! A'ZL 
3p1J=xze6 /D/0He 
H*ZBG /8B-EQH/C3 
L&E<GN1DC2E<SO6MC 
” elcceocoima EDA 
OEDCOaUA atu BIC 
90 E=xaD072a1F00 


ErZae P4--540E U 


A~5 * *O"HDCTOG~Za 


203928088 SSOSSEOE 
eocoeaeveseveeee eee 
SSSR eeoeoeeenee 
SOSSORHCHCASSEOBEE 
eaeeveeseeee2aeeve 
SeOoeseee ee sees 
Seeeeeeeseeeeene 
eeeeeaeneaeoesv eee 


CL 65 THROUGH 80 
O10 H20078<YH200 
Seevneoosoeeoeea eee 


— @BG-J8] PM=a-C 


~+-0 G76CEE! * XT 


BG/. SWC E*>76 
OBHL /OHEY-BA+ER 
NISR L4LMS4CALCL 
"gpa epcoapa al: 
GEDCO=DA a<E EIC 
T<JA"P®HGEL2G>%a 


CN#H"OU aYOUC-E 


BA HHaZ Cac_i+ & 
woeccccencscvese 
ervecccovscsscces 
eecccesescoesere 
ewovcvccscccsece 
ecccecccoaccccce 


eeceaeS®eeeoeeeoeoorces 


{ 
: 
t 
i 


4248230 
32 


PART NO. 
PAGE 


FFEZ 


Co) 


eee te 


CL 81 THROUGH 96: CL 


9 
a 


1 THROUGH 16 


fe 


we 


>eHY 190FFF20093 € -TG-7 2)LA1aN 0aG 


@AHFFF20094 € .TG&735<xXSO4CRI41 


@eeneer 


as-FFF20095 € TFO7:5<xXSO4CR1*) 


Ce 


e enecoeveseneeoaoes®? 


—-Q RE<FFF20096 


BaYD 0, 8FFF20097, € -saesnseseseseres 
| 


we-p pasFFF20098  €.-+ 


“e | 
e8< 4KHFFF20099: ES« 

{ 

\ 


RED 1E0FFF20100; €)* oo-tLooP ON SEC 
4 


&1 TLOFFF20101: €3* 01-LOOP ON ROU 


eeneen 


COMMON S 


CED 284FFF20102 €)* 02-SKIP INTERV 
\ 


e eo. i e e 
| Pa Eserrr20103' (Se 03-BYPASS ERRO 
@P7a LIGFFF20104| (+ 0¢-BYPASS NON- 


sB1H 7¢-FFF20105| G+ 05-PRINT ON AL 


OHZFFF20106. E}« os-BYPASS ERRO 


* t . ° e 
*QGFFF20107| G+ 07-L0AD AND GO 


Bias i ‘ 
FFF20108' @)* os-NoT USED- 


4~ FF 

eee \ : es a 
score  FFF20109' C}* 09-LEAVE SECT. 
eHzer FFF20110! Ej* op-sPEc. PURPO 


@2ee ! eo e oe 
_@dYFF FFFZOLIL @> OF-SPACE 36 TI 





IBM MAINTENANCE OIAGNUSTIC PROGRAM 


DIAGNOSTIC CONTROL PROGRAM — 


CL 17 THROUGH 32 


RLDCSECXNECTE94A 
Gbts 1_$REl-ABal 
O6ey 1_$RE(7A8al 
“piaGnosTic CON 


SREKERKKSEARKSSEREE 


ENSE SWITCHES 


easeeeeeneeseaeaee 


TIGN. 


TINE. 


ENTION ROUTINES. 


eeeeoeeos 


R PRINT. 


ERROR PRINT. 


TERNATE DEVICE. 


R HALTS. 


eeeeeeeeeneooeseecse 


SWITCHES ON. 


SE STORAGE DUMP. 


MODEL 12 


OBJECT CARD LISTING 


Ci 33 THRUUGH 48 


—&(1$P8aX054%GLE 


H131,6<PTO4A 


H121.&<PTOO 


TROL PROGRAM 


SESERESTERSEE EER 


eo eseenvoeneoeoeos 


* 


oe eo eee eee eee 
. 


* ‘1 2 3 


e e 
x ke GEE £44 


* - 0 x 


* F 1 x 


* F 2 x 


e epeoeveeeaeeeseeen 


s 


% € E x 


* 


= 5 x x 


s aee eee oee ee 


* D x x 


* 


= e a 2eneeeeeeeeeee 
MES INSTEAD OF 6 .# 

Ee os 
A/ZFF FFF20112, (Sesessssceceesess SESRARGSRASSAKIES «=—«- GE HHHEHASESSNARSLS 

eee | eee aee eo ee eee ees se 
eszee ffF20113 Gecyisetseoceeus ="7McFL fC Fz ASC RA 

osvee so FFF201204 @ 
LAST 
PROG 10 frr—-2 @3pate  29AUG7S  O7NOVTS 19MARTE 
_ PAGE 31 EC NO. 827804 827805 627872 


ce ee eee “, 


) 


CL 49 THROUGH 64 
2OSH2eHeDBeseeeoesd 


RSHVVKSESKSEL HESS 


DATA SWITCH ENTR 


@eeoeaeseeoaeoen s@e@eoeoo 


. eeoaoveeeevesesecd 


4 


ee 


X% ~- TURN OFF SE 


X ~ TURN ON SEN 


x - GO TO RGOUTI 
X — TERMINATE S$ 
X =~ DISK-RUN SE 


QO — DISK-RUN OE 


ene eeenes2 Oe See 


ee2eeeeeoceceeeeen 


SERTAHSOHSAESSSET «=H HHH ETNDHVDETESS eeeee | FFF20134 

so. 8 Q 09320630750 311760.UFFF20135. 
PROG ID FFF-2 
' PAGE 





PART 
PAGE 


CL 65 THROUGH 80 


eeeeeoeceseeoeoeeo 
SOc e2eORe So aeees? 
eeoseeSeSoneeseee 


REVRVERERAASLSETES 


Y 


eeeeeeesee ee oee 
eeeseeoeseeeeeeed 
SSCeeeeseeeseoeee 


NSE SWITCH XX. 


SE SWITCH XX. 


e eeeoseaooe 


NE XX-e 


See eseveseonvesece 


ee2eeeenare 


ECTION- 


OSSSZOSTHSOSHOEASZLE 


CTION XXX- 


VICE Xx SECTIONS 


Sk 


NOe 4248230 


31A 


Ci 81 THROUGH 96 


3/&FF FFF20115 
6: FF FFF2O1L16 


B MFF FFF20117 


* FFF20118 


SB3e% FFF20119 


* FFF20120 


eoee 


s FFF20121 


aeese oe 


* FFF20122 


eoeo8 


* FFF20123 


* FFF20124 


* FFF20125 


*  FFF20126 


eeoe eeaeoa 


* FFF20127. 





* FFF20128— 


aene 


s FFF20129 


eoeoe ee 


*  FFF26130, 


oon ae 


.  * #FFF20131. 


* FFF201 32 


eoeese eo 


* £FF20133. 


3A. 


‘ @ & © 


eer nme cette: hansen aaa me a 


arenmmey weveaer memmervowceme ne SITTT 





© 
° Lm. TIC PROGRAM PART NO. 4248233 
IBM MAINTENANCE CIAGNOSTIC PROGRAM PART NO 4248233) (IBM MAINTENANCE OLAGNOS IC PROG ener ia 
FFG SYSTEM TEST RELSCATING LOADER MODEL 12 | _FF10 SYSTEM TEST RELOCATING LOADER KODEL 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT (ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
LAST CHG:08:08 75 OAAD FFFEFFFFFFFFFFFE 51 = 
5 DECK 4 ee QABS FEFFFFFFFFFEFFFE 2} 
OA00 $ FF. START X*A00" | ~ -OABE -FEFEFEFFFEFFFFFE OAD6 == 52 oc XL25* FFEFFRRRE REEF PEER EE PREP PPP PEPE PEPE PEP PPEE EEE PE cE 
é 2 eo OAC6 FFFFFFFFFFFEFEEF 52 
7 HELOEESSEERESSESESESESESESESETERESS O4FSFEFESERSSEEES SEES ESE SESESES EOS ES f pace CEPeeCEPErrEerer 23 
. 7 
e _ SYSTEM/3 SYSTEM TEST RELOCATING LOADER +! OAD? FFEFFFEEFFFEFFFF OAE& 53 oc XL16"FFFFFEFFEFFEFFEREEFEFREER REFER FEFFEE ¢ 
10 * *| OADF FFFEFFFFFFFFFFFF 53 
il SECEOSESSSESEERSESESESEESEEESLCESSSSERSAESE EF GSSSESESCELER SSE SS SAERESHEE LABELS CG QAET FFFF 53 
oaog FF10 gaol = 2 pe XL2tEF LO: PROGRAM LOENTIFICATION AND LEVEL sear SE AND MODIFIES, THESE CONSTANTS DURING LOADING. * 
OAO2 8 = ’ 
% so8 7 R AEA 56 USING START) 
OAo4 0000 aos is be xL2"0° RESERVED eee cr  QAE9 OFOO OAEA «57 START be NS xi 2" OF G0" STARTING ADDRESS OF NEXT MODULE 
B488 8505 BASF cea lsenetl 2omree apoeeiceny CSU NOU ONC: ee eae tb AES 38 APRocs Be iL ifist RELOCERNGY GS becRERENTeST ar ren eACH 
enoeane i8 aceneee Scena ce capeaesensesaanscesecesese ye Mebaesenaassassasasereeseete. 60 + MOOULE LOADED —- NO MORE THAN 16 = © 
Gate §99000000000009 oazv 8 si eer RESERVEDSEGR SYSTER TESS SUPERYESOR VQ) GREE 66 OAEE 62 SKFLAG DC XLifO# WHEN EE, LOADER 1S SKIPPING MODULE 
. ” ® 
* ck R HAS RUN OUT OF CORES 
OAa22 Soopo00GG0g0 i3 | OAEF 0000 OAFO «64 NSIZE DC L2*o° Geet eter Se rs eo 
3 . rape conraiwins ceraioc. of eracean,| C’ aes eacere Sars Se eeaNT® Be gL GtrARE? seas acreage 
an | a PELE TMCON rcs BROMECP Monts 3 Sag BORD ane Be kab BE BESTA Sraeyine rages iF pew temines 
24 @ MODULES. INFORMATION IS CONTAINED#| ,  OAFA FFFC -OAFS 69 NEG4 OD XL2°FFFC® 
25 Sesssenusesssseserseacccsencssconsnstistissssecsssesensassaesses secs! | OAFE Og00 gaeo Fo MOR BE RES 8s cg 
. 27 tetee TABLE EXAMPLES FOR NON INFORMED PROGRAMMER *##4reeees06 © 9CC+ 800 FF 0800 72 DKFLAG OC XLI'FE® CONTAINS X*A0* FOR 544% X%°C1* FOR 3340 *GC# 
28 * OFOF * c& Ss ®& = ® = oro = FO & sete © 73 ERESSOEESESERSEESESERESY ESOS EESGOETHERTES TS FESETEE KEELES HSS ECSEAVESS HSE 
29 * DELF * SS_* * * * 130 * El * 
30 SREEHSESKEERESSECESESSESESASEAKSSE HET IVES OCH 5 ERAGHSSSSE AGS BESKAFES *6CS 
+ 
a 3} REFESEEETESLERELEEEESSESSESKLESEEESES ESTEE SESE EFESFESRESESERETEROTS x oO centenarians atomic 
33 # ARR I EAR XRL I XR2 I PSR I STARTING I DEVICE 1D * + 
34 ¢ I I ADDRESS f IF INT % ‘| 
35 * O-) I 2-3 1 4-5 1 6-7 I 8 9-10 
36 mesehCereeresesyesescas ees taeeee ter ere ee | Oo 
3 
38 $ FORMAT OF AN ENTRY AT TIME OF BRANCH TO *SETUP* TO LOAD MODULES | 
40 8 BYTE 0-1 i BYTE 2-3 ' BYTE 4-8 t BYTE 9-11 —! CG 
42 ® OXXX OF i 5444 ADDR. | 3340 ADDR. | FFEFFF | 
43s MODULE OF MODULE GF MODULE | 
45 © THIS RELOCATING LOADER INITIALIZES THIS TABLE + © 
OA28 FFFFFFFFFEEFFFFE OAGO 46 DC X25 FEFFEEFE FE PEP PEPE PEPE PPP EPP PPP PPE PEPPER PEEP PEE PEPE 
OA3O FEFFEFFFEFFFFFFE 46 
OA38 EEEFFFFFFFFEEFER 46 1O 
OAS1 FFFFFFFFEEFFFFFF OAS9 86 47 DC XL 25* FFFEREFEEREPEREE EPP REP PEEP EREPEE PPP P EE PPP E PEEP EEE | 
OAG9 FFFEFFFEEFEFFFEF 47 
OA51 FEFFFFFFFEFFFEFF ‘ | 
OA5A FFFEFFEFFFFFFFFF OAT2 48 oc XL25° FRFFEFRFREFREE PEPER PEER PEPE ES PPE EP EPP E EP PEE PEFEEFE f 
OA62 FEFFEFFEFFEFFEFFE 48 | 
OAGA EEFFFEFFFFFEEEFE 48 ‘Oo 
OA7T3 FFEFFEFFFFFFFFFF OASB 8649 oc XL25* FREFRRFRREEE REPRE EPEEE PEEP PEPE PEEP EPFEEEEEEEEPF EEE! | 
OA7TB FFEFFEFFFFFFFFFE 49 ! 
OA83 FFFFFFFFFFFFFFFF 49 Oo 
OASB FF 49 
OASC FFFFFFFFFFEEFFFF QAA& 50 oC XL25°FFFFEERFREFERRERRRERPEPEEFE REE EERE PPE PPPEP PEPPER! | 
OA94 FEFFFFFEFFEFFFFF 50 
OASC FFFFFFFFFFFEFFFF 50 iQ 
OAA4 FF 50 ' 
OAAS FFFFFFFFFFFFFFFF OABD = 51 oc XL25* FEEPFPERREPPRPREFEFPPRREFRRPE PEEP PEPE ere P PEPE Er? | 
leo 
DATE 29AUG75 PROG 1D rei-o; C' pate 29AUGTS PROG 10 FFI-0 
EC NO. 6827804 PAGE 1! ~ EC Mo. 827804 PAGE A 





©0988 OG CO 





IBM MAINTENANCE OZAGNOSTIC PROGRAM 


ey 


| 
| 
ne 
| 


4248233; 


| 
| 


2 


PART NOe 
PAGE 


i niles ete OF 


we tag net 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


SYSTEM TEST RELOCATING LOADER MODEL 12 


_ ERR LOC OBYECT CQDE 


SYSTEM TEST RELOCATING LOADER MODEL 12 


FFLO 


_ FFLO 


ADDR STMT SOURCE STATEMENT 


C 


| 
| 
| 
| 


ADDR STMT SQURCE STATEMENT 


ERR LCC OBJECT CODE 





~ 
os a 
x a 
= z z ow 
oe us o w - 
e £8 o er ee a..2ieae 
=< ~~ e 
ud x i oe ol 43 q @ a A ew 
oe - ihe 2 @® = 1a al N wre ac =£ 
eo ee vs zo Qa Q & ® wm Oe a us 
8 2 ae o, £ Mee G coer 
bw 
re) =e pee ae vive x Q 0 tuo OW tas 
z wv 2 x Ske ze oo rt ~~ 2 - ox 2 weld 2 
oma ” Ue oad ho oe z or Ww & = gre 4 oF ao 
e wW WJ 1s] “ = = ope < = za > a 
wu & z wd Wee “A "” oo“ uw Ww ua¢ Ge wim 
Ye O Q > &-oO 9 wn sn ce w “vo Ww > &- a 
Ww ee WO = Q a2 uw equa" - w @ Q wa vv “ 
a =< ad Oo ww aw a WwW HOO “4& ~& wt «te a q 
Q OA <z x “2x 2 > LS dace ui Vi > ke &e CO av aad wo 
Q &-cVo W ou qe wi Qa WD) Predet & - «62 zo oe Ox 
@ Fz Q ww £a we Vv ~ <€QNWU Qa mw 2 S Wel WU ol 
Oo ™ od oe oO a z= © fe e OW O Om HZ =e 
D> od LU be WwW <x (S) Ommw wm O % Qe O ° ao wa = Or W - 
VSeewne [4 ~ © KL Mad ot Wiad Vo mex 2 Ma = 2 wa z 
teat poor tad XE Ud ro a wd eZ ad wm Wild We w Ww on <«<O = 
poe SUL Mp au u. VF w Z2Q em @a@ OU2Z2Z & Un >» 2€ aw GN be Oth 
Olin w” 22 wt (> QO wt oA ~ La a a no w = w 
qq oO w a ao ? Ox «a oa ~ AO Du thd wa wa OQ wo Ou 2 
po Us et ES od ro Zid QO <« TO er GB LL x 260 aq<« Le Ue 3” 
Nest OOD we CISL feo Ud bee Ww Www ww ws et fe Lt < w= 
Dh WO ” za 2 eye ee aa & Q al XK 2 Oo - » b OF a. »- 
RqtwWwad <Ornm ot a oom edt SE Ww gq Qo tet 2 
Dene Ze CeOwa aot “ww qu umoo ae QOow 22 kz £0 oa o 
a 2 a am 410 mrwowuwwmn xu OO O AMS maw YW AW Ta ww 
NaN 
Mace of 
OH 
-~o eK ae 
owt owt we Crewe * oo o ao 
“x frm cum om LL) as “ao w “Ne 
«x « COW WwW Od us e ee ~ 
e @ GOden © eea o 2 <x N 
wv wo felipe 7 *« at oo a 
Me tHe aVxNLy & eo on » eo « te — 4 
OO DO ah Qreeere — a . Meme ome e QO 8 <x het nt ry 
ee rit (Pjsaononemamn NE ~~ aie eAIAINe Nem © Cs Net © & aN ¢ © ol ~ 
onen(ou mie ad ANNAN & Nn BN a“CXeenane Os & Loam KO omen Z °o e 
Lied Orde e2CN prereceam « eomn 0 &% We © NK KEKE) © KN OM anno - rf 
Nila Lom OO eDKKKxKK ® PHed tS M>< OM ever eoxe « & eet Mme ota & oment Not Ot 
ont Hot HE don GO. ca eso we w MO OF # #e & UD Maw mares One tm 6 mn DO om 2S WE ene pele 4-4: 4) 
W a ACL ete PZNNNUNNLO Se The bw aw 0 Le Oend dO, mo Deer re oie wtiet ee HOt Oo ewnd $f 0. COL KCK ICT 
ae erie SOL ee NU tre worn dee bd rt BAR NWAb et Une { {x~a¢O@%Oo+Z2e Volww NK owrdd Hw eM ao ae of 
wt) OF oXX eo weer UIs bad ee wale bow DZe hw DZe feo ¥~MVDUDHWAG*« MME 3¢ O DMs | tdtetl) OGY ~LO 
EA eOz the So REE end SunAINN Ee en NEEL Ui cence OOo ee aN 44 IMUOSSS 
Nein d Owl: Zdandol SOO ORME Se anime Winteteiii tira tet t Searle tear peeteteee em 


one PE OGD IDO ES OMNI Jt Rar Uva kEXERRVNNNCVOP MF etE EA MOV MMA NOQ ME SSE 


wo 

toed ot WWI Lo a 2 iL ong ot msl -" oud OILICIONLULD ~ 
U>>R Sod CID DH wed DP oe ad ED VU wo _ YW wou WW WEO wh “SWZ Oe SE ele dd IS SII Iz JIT 
SEX Iee IMOOOZTMAAYVTOO 22 2 Boh oo aA ROSRIDOIE IOI ANID HITE AS AIOE SINGS 


Zz 
WEAN 
ann 


INP De WHO NOY KOMOMOHAATADEOROMKNOT ROMOAGAAMES ADH AROANIMS NOT QPIANN THLE SSS 
ng ner esQnons RARREIGIS$ OSs BOCENTE Renee gaa erie NNN NSN 
SESS RE RAN RRNA Naa eee rmninaninenintnertcinint tnt NN 


PTITLE 
CKSKIP 
tooP2 


+ Poo araa © a ~ © 
Q Qa00 WiLL © Q a 
a oan NnaQM UY YW Ww 
°o o00 Ooocg °& 3 Q °o 
s 
2 @ 
2 be 
< ee (e) us 
ud oO °o o 
he & EQOGDON aot o 
MAM WN aw O0000 « N aadcn a or WVEOWOHORODOHOO 
ube tL ~« “ a CO at N “ tQ 00 000 Ue Une bbe Ade 0 
bbl LL O<EN ANMMMOIN NAN rN NN OO ANNO PH QONNAMAMMMIMIVIVII AITO ASSESSES 
ANNHNOQOOOO OOOO Oo #0 O10 © ANYON SA SSS NoosoaTGOOSOOGSO0GG009 
Ue OU aterd ll AR ond pad wat ond ont PLL ~- Per COT & OL Om LHMHOOO ME MIDNUMNDOSOOS ANSNS SF 
Bre noee es . Seer eee ane aagco BOSS saa aUae eT N ooo oe ne 
F. UMULMONZBLIL QUONLS DNUL OL OO TRAE co LomncoRCaNaNONLNTOONNQ QU SIS REARS 
B GuauUNoNZBUE 2UENES SREY CE CURT ORO n Seana E RE RE Te ee awnaae 
Ba ee pa anowiag a nauuint BION OW As Lene reo oO RAR SS gOT TR Sa SSO 
ONS ee eS Bn NNN INOS SOS O SOUS S SES BOS SSES 
See oe eee ee eee EOS oo Sa soauN BRU sEESEBEeSSaSESSSSSSoEECR Cle 
grSavousasaaas smaasassBsssesssocecssjEHCoSeRCC TOTO FSO 
ra eos, ok ite ert oh Nee aa arty aoe a a 
Owe Ue oY YY © oOo Co Ue WYN 
HHH - we 
WIOOU w Oo e e od WW iu 
WUOWOY TY) ua e a x e are z 
ee uw a «=o « W? ” e mn ° 
wd < > © > we fo De oO 
3 jis ud a Q ba a ao " Wn 
a Lad ol oO ad a of - ua 
HURL © zn a «£ x= © w x (oon mO od 
HHRASER = < <z ee “Zo -_ 2= cow 
* # Ulbe= oad bh Qed 2 th ow Qo = wea 
& 2 ” od Go 2> oma wa O ” Qa 242 Qo area 
* wv oe Du iL tJ) a wnQ we wWwod aw ~ O 
e ® <= od Oo nm be e x © > aq Trade Ox ¥Z2-0 
* 4 bell oOo au wWze Q x ow ee WO OW eins 
& * od zo oO Ww Nest < “eo 2N Undid oa te #& 
* 4¢# ¢ OD ou x a o wee) are Ww et eZ Qe ZeauM 
* #2 w 20 pels waten OC OW a ba J CW eo ae er WO mt 
¢ * Q =O 3h whe OO tou u. Vi te ude Oo ao wu < 2625 wd 
2 % £ QZO We Oyu &@ MO a Oo NE" Ww << uo~ o a OF A 
2 *» © Gree =O Wl NE he z Weed © Ww « ah WwW VOrO 2 
* %# «a Geko = Q << Q cm mw = 2 tow OX OG o 
* e AXWQILOQ «Or ws he ww OWL wo © Wei zz Use oo 
& e ww ue ad ran UW WOW wa Qe QD b= ac ~~ mc O we eS az 
& + NM ZOwW? nn ke vi srw od WOW dae qt O - Oo=~ YN WM od 
* % mam ZBmrite nezZO ~ Ow = wie ao xo D Z2 a0 az <Ow re’ 
cd & CO Zrew WWO Wie of ese Qa a Lk ui Qo om > warzO oO 
* ® - WW meee bebe OO a OQ Q zu a be [S) w =P a. 
tb gtgbettes Mens Oo Se8 2 pS ouk Sek Su on 
art ot ad al bet 
e rt LLL tLLQOOLOkO Zz ou QoQ ste = wm rca Ww wed “Lupa View 
e OTe UD OLLI lhe mt z ad Zw “COL =z YU ae oO <x Zz ” 
%e MING MS UIE * TZU [+ 4 S) aw O 2 We ml) wire ow 
ad %# WGBUC2AA0rFG0 & upeulD x oO ao0z ax 2 t OW™M r2Z2 OSE <x 
& wit USE Ld WEEAWEL Lek PIN ld ua cQ aad on a & nt? wz WOH Wi 
tt Ade ToruUrco2OwDowD oO he> ud wz Oo wi & ue < ze t2z0Ow At 
+ wey IO 9 ad i dF zu wd w LE adi dD ww a ~ A on Lew? wo 
e ULF oe NSE < 
e @ 
e exe 
eo Wwe om 
e mit ™N e 
# OOF « wi 
+ * -~ 3 uw ~ 
% + od o Ca =~ 
eo * on as ~ x ot 
an * ws ~ on x “ Ld Ww ~ “x «© ~ 
OOO ee * » Oo Ue awe ok ih om wm On 0 CO ° °o 
SeNODe OF W aA N “ xO wt ° we Neo © re ww HIN © 
#O % Ooh er KF ms eg OF °o * GN o $e Mm oO b + 
ee e © = W “« OM Me ow «O oe aden o Xoo = fo p= » «x © - 
an tet « «Me ome Ke we owl) oo oO tae A orem al Q3Nam 8 oe o po ] 
ROHKMOR e © &Y Hen om Mme Ne mo oo «63m @ thew ort Of AOnknN am & e a 
NUH ot WO « NX Ket HD wom Qe Oe ao a COU. Om OO HKD eo Z2ZXKLINN OO Oo 2 
eo * 4UdOruU~ os mt at ZEN LHI T Get po ols OOdAXRet of Neri exaqeZenaa << Tot 
+~ +e DODEVIOLCALX 2x> =dOLY Odd Cw Dam Dee aD eae wee D OX KO. AD aye w 
* 2 SMO i erm au<rtoa wh KO aed Hh 0. Pao Dh tN OUI LU NT oth eeOlLe Lai 
bu * OME ZO0.2.~00~O WI rt Zeot DIM C0 hada le dO Mudd 
z a z PD cd ad ud OLE O ad H Oxnwa mW & ASK VIVI PH OF OO tk LDOOAM INNES Names 
adc #2 (+) ~ 2 
the ee > Bu ogo wd 
* SWZ me ww Z ~ DE~ WUD 2007 wmow ow 2D - WW o 2 a Se 
#aQ Se Ob dad Zod ow. > G sree adqaz O (eyere ey VV IWOOT > o> wv 
: = : feo DIG) IE oad bo ad EO 4299 Es oh SID FD BOODO 20 POON Ira DLOWEDOO 
#5 # Q a & 
* +a. Qo wy wi ont “~ « 
* #2 < eo Q = > mw ry N a 
* * a. oo C4 Q a = w—” Ch o hm ib 
* % x Q ”n om oS oO a wr oO Us ad 
eREEREW o 2“ on a wed W al nt? ae “A wv 
tHe Fee nanan avonnmgnsroroanns ogh SPOmNM EN BARI ERAN RRR OMAN TTS 
Lo Oe a eae SOO S OSS omtoteiectrinins entetcininearicamirnanteimntetni 
BOO ire denkecenicd ndedenind td tte et tet et ted ded IAS 
ot ° oad eo at WW W Od OO 2 ON 
So a < rz uy UWA Qo Od oow <q oa 
a @ o aa Q 2a a om S23 a aa 
o ° ° oo Qo oo Oo 0oo oe ° oo 
“ rf 
o ~ 
ad mn ow om 
° So oo o 28 
a Ws Ww fr 
naw O Lib ~ ao oo aq, < oao @ oo 8 No Ueiet UO 
m Ww O wth ve ro art N N Ow N N m awoO WN 
Nader onoddoddqonw mBoOwad N ws N Oder N FEE MDON NOweamada <n 
OF OOOMOQOO9OM falololo}~) °o o ° Cone eo OxnOOYNO OOnMGOOSsSO OO 
DOW eit tOOM iL oD a ~ fh ~ ont (NIN omt ~ Watt teateth NOHONCLPrE Cf 
DAU. CUSCSONMOLD Oofnoo @ oF a ecoo o auoooer oreoesor? ow 2 
or 
DWONONONWUMONNON WONDY Qoon oOo NNON OCOLADONONONDBQNONANOYS vuorea 
PAUL CL POLL, OL PO Ue ett O UMOW Vert OOOW OODOWT RTLOOCCOUGL AWM AWBWOO 
HINDUILMODVOEMDO-dO OWA ~oow aN ON AO LOLNEALNO POL MORWIOT auno- 
DOOD ONHAAINANN MO MAT wre In WAIN DODOGE EEE DODDODAAG OH iat zoo 
OOODMDANMOAMDMaaD mn ad noon Moa mond DH DOOADAOOMOAHANAIGoON HO Donon 
COOCDOOLOOCO90S oo000 oooo oo o0o°co BDODOCOCOCOSOSOSOOSOSSO oooo 


FFi-0 
2A 


29AUGT5 
827804 


DATE 
EC NOe 





@ 

’ 
me i * » o< 
mm rv) Q a * * in 
Nw ro) as us & s # ot 
a m4 Qo wd * -“ * eS 
¥ Ue wv = 2 & wa kh & a # uu 
Nn ui bn = us gz wi fart * oO 9 
¢ « oes 78 FO os eo ou @ & 

a e We Bua kh ie ow o © 4 ¢ 
Bw wie a wo “az ZA Qa + 
a z= w Q*+OuU & mS x Ww aw # oo * 
8 rr (=) ol oS Oqaow wi ez a CO ww OO & fm * 
e € ewe a wi aoe TF aS mw Zz & wOWdE ge * «hd * a 
Zz 2 ie fie po QHtZWQ wt tees 2 #20 e wn € a 
row ee oO. wed thee > 2 W LADAd 2 De * 
em wr QQ Bue 2 0 eae x & & G&G oo Wr -<s"O & tema e « Sus 
ao “9 Ge ne fw Wore SOQ we ms be us wd hd rows » onthhine # oa pelt) 
dad = <€4or =~ w ROMO Sw 2 &® Dae NW Zhu ] ow e w ° ad 
a& = 2 AWE SW & £2 32 < jen $ DO =>} au & aD ov a aa. 
ww DO << ~— © ew Kk ou. Oo LaeeZzo @ can ew iM 
& OO W> O %®@ 8 OF2Zamny ~~ rm it Rt pepe mes a @ WOu e <« - 
QO @2t w2OF at w &€ ACHuUsd Me MOQ wr Sue * zu * a < 
qu MOO WO & ad re OD we ? mm oO OWLS € * a * z 
Aw qx © oa Ww hMZzO0 wal Bad fo LA) be xe be Wet & Cu * 0 ~ 
oo =~ bo DPWOraBmOgd z xO QO Wen eke =r & @aOo * =z 
2 OO eo eo F OO 4 MUPuwL w = @ Zewetdo - % We ae us ew 
Ww «ee WEE CEO NN Me MOS. a ce sa SII mM * MW GC ad us 
» Ww ot om SF Y wd Dal me” Ope YW Af>Dree FU Ww & enw #2 - 
2 Bie Deh WL wm WD eh t= oO a VY deo? fp wa Z @ MA Ld # © 
O “mm Baw fm Wo mt ASVIL LW few ez WHOmwU ZOOS * Oncd 2 o 
» a Ox + 4 Ww A h meOWDWcl wa he € £Orwdo © e goa * 2 
axz tz x w Wee EUArTDW Z ~ & 44FUug ¢ WO € a nq 
we wl ww @ WOR wWienk = b= bee Ore VOWwuNrt w. ¢ Ba ¢ a 
2 @2 O22 Ze Aa Cee ze tee KOM « 2 oe wi < 
we a deg mt qr | LNOTZWe se wr od = UO! SD * MM e & Qo 
@ O¢ YVOrt On DO W FurWweOnxOD 4a SQ Quzror dun 8 £ ww e ow 
& Of BMAD 20 af VD Menem  & a SOM admit | Mandenl 9 a & 
feo * * oa0 ? a 
OQ ® Q j= uw 
z 2 N < a 
£ ei t 
So ad ~ od : 
~~ wl * 2 g 2 Me : 
= ~~ Ne => * a ' 
ae aN Qa ul * foe 2 uw : 
« Meee we ul ~ * woo ee *« 5 ‘ 
e e e&(OO * ©e ~ os wld * eoo « 
e © eo) ° wp ot a ed eo EBS « * woo 
mem ti CO Wwe « oN Fo ~ wt Ord uw * Woo & iw 
Ne Neve og mete EOL em Wx t = ZX wie we W e POOns * wu a 
val of <x e om @ wo Ox xx Le ae wo te eo OMe fo e wf YOON ae = Q 
3 O39C OO Alem mien & ae ies a. omy ON N oe MM etet €*# woocers e* > wy 
2 ae Bom ON Ol tindeden Let wid eu. eno Oo ~ omww oe emFOOLDS oe w ° 
wien OS mde | OL PO OS OL teed ANAM Me exe 1x mc ie SCaaev 9 e# e©& OOVOW % Q T° 
PNA MORE LO OKO OX KK KOO LODO ROW Ht le Ml Lor reikeo << *# NOOOUWN *e « mf 
Ze DMD CMAQ ont & w OM SSxRKSO OZ omidia ww Zee wets DH £XZO abd & deo ow a © wd 
Pe tt etfee Rhett OLLI KE elitr were Orel) BLL we heres OL ON tre INI Ob at et ene OC POLL, bo Se wren e sw We 
ed LIS we er hw we LL A ri et ert LD wwe re 0 tb OL eed eal ccd aed ed hed KL libiine = Cee (9. > % ood eb ad od ed 
x B-KUOVE ON A QO DMA Salt D At Dpemd LO Ke KE MW 20a 2z#enw ale x et ‘eae 
thd a & *€ e & 
od = RWROYD ROG 1s) 
ww ay 2 UW IS2ZS 2 Zz ¥ Path DL) lees He HOO eee a 
~~ 4)? whe Oh SIZ OPSOOCKL SDMUWOwe OOW WOU ded Lm eZee YVYUWU #240 
w GON SJse SOI Ere sae Ge Mapseaeoaases aX EIN IED ¥33 Sa0aa Tose 
wa e 
Ww Ww HN * T oO ane 8a #2 
Qa vu Qo aa a Oo oO Q Q H24HW ENIN Heetna 
Oo « 2 Za z z = Lan) =z HOR> LTEITT aacww o 
=z > w pore) = owe > wi HOHuswcCrTre sawn “i 
@ x Ue he ub wb a a # #€EGHOVOO & *#E = 
® oe “ o D> 3 5S «+ a at SPHROWOOO #6 4 uw 
=x Qo & DOAN SBD OBOMNMD NAG OA ONO Ol DAO aN SIN OPW HOM AIM FAD MOA SO et NID SIND OD © red al ett 
«< < P= DWOOWDD MDW DODWAMRHAAKDAANHNE DOO O OOOO OO ed rd 104 ced et rd coh oderd ION INI AICI INIED CA BOOM AAAS FP Pa et 
ae Qe . RNAIAININIQUAIN NINN ARENA AINIAINI (AOFM MAMA MO AM MAO MM MAM MAM AMMA MMM MOMMA MM CRMC MMMM MMma nh 
wo wl 
g wo a we INO Wiest OF MOONEE ts -t 
a 2 oO 2 VLU OV00 Q OO aH mtat (ty 0 
m= 2 © O00 O00a Go WU LU ww w 
) 4 < © O00 e000 SG on20000o Qa o 
we \ 
»- wo mOrQ Ww 
w © o Mw 8 wmwoWw WwW 
9 ad Ue Ou N CnAON W 
ww q Wud 2 TOOU wW 
o @@ ° oa = NOTOLrO 
@ ww ag ed W WPOoUTod 
we - Aa « N NO 90 0 q J Pus cg N wet NM NO Ue eoo MAMANAG 
Q "wo a« rr a © o OO Were o-~ N OW |] Ui WO +tT0°0 YWWOWUS 
WM WN MOP EAANONODOVDADANMOMHNG DOO N N Q2¢ dOodcdvwag Noo OoomnWw 
wa ad se QO AQMOQOONQOHOOGCQ99000OMSOOS OCOCC°osS ° o co Coo0q00°0S0e esa rirtetett cS 
2 
2 "SW  PNttHQOOQNOHOMOOHMOrFONGO O0eclet ~~ et HOMO Woo WOWWWCY oo 
<= WW BD HROOCODKQOOCGCONMORMDHON LArOOH one LNSNDO Qooocwd wrooom NOS AO pe I) 
z we 3D on mo Oo OUOGries wrOULO <p 
id YN QB CMONOCNKHNONNONYVOIDNONONGD DOWNLOMOWOMOWLOLOW WOWELN QO ooooww THK Mm an 
. = O ONWEWhrPLOPLOOPMOULONY MPUOMDOQOOVUNOLUEUO MrOOUmMy Oorooe00 WiWWOCOW NO 
ad > DEOMOMOOMOTWHNAVILANDOAUVE MOTOMNOOTULONGORW LTONme<w NIPOt00 ANKLES 
= OC DOEEEMRODDOWDMNAAMOKNECAAT, NDMNANDVIVUVWVWVOOOOCO Www QC tete4 HNN e 
we ANMNAVQABOQOOAHOOAOCGORAGOEGH AGBASHBHOSHOHAQHQanaGaunr OAG0HAzao UL) UL CL tld US CS Ad a Lk © 
x eo ee DOCOMO GCGADOOOCOSOGOHOE0O 900000E sOQgnoone00 [2000000 OOo9000 220000 as 
“ 
a be & <W 
o~ td Qu 
- F aie Bs : uy io my ’ po 
4 ’ 3 . 
@ 3 ays A VOFOOUOGOOOUWD OY OGY OC GOGOODSEOE 
é ae rca eS a a cca ac ae eae eae aces et, ae, cae craic SN eR ae eee a a eS tt Sl A SS a es a Sls 9 gn SE Sh ae a Nes, a eh ce ae mines aes ee en ee 
Pape a CELENTANO NONE ry ry me oO 
mn io) z < w“ mm 
“ 5 Q be ~ = 
Q hd z Views < > Wl ” th 
@ fe © be oO Qa &- Q ~ aad bbe 
“N ~ net pn ak << > ew pe = 
wv a= » ru aa Q gan oo 
WwW eg << erg) x 8 (e) mg “ oo fe 
ze w aad aed 4d uw - A ww az 
On Q << wow be wa O Us oe ro iw 
s Qa >) od a “A pO re) a he ae 2u 2 - & 
© od min Bw Wr Lud We x WwW a > me Wee moe x = a 
z Ww <ul We Us Wiuioe Q < <a uw <2 Ow om 92 © ~~ 
we VO = * ee £xoO ied 1s ws a aA mm 
pels Ue OT we ws ow Ww Oo SS & us “x WM ue 2 os « cous 
eo AMA WO aa] QO Wu me he ec w cw ww OW za vi ad Ow 
a<¢ x Wend cu << <Or wa Qu ow Q us - Qo 8 Qwo ad 
ad wate % w ws wl eet =z res wo << exc et “et mo of be per EE aa 
ds LZ oO. ee 2 ows 2u 2 ] UW A wr h2Z ~ 
x keOD View ~~ CG Nair me Ud pe oaa <e OO << ws tw me av 
avi WU ee wed oO or Od OOo tig aus wt << Oooh a << WwW os 
Were qi Qn ke OC WO <x a Qr =~ WE ee 
aa ld ie a ~ 2 <a peu a O2Zx BO z QO mud ee £E Zin 
Od. wW " QO rw aw » €OO b= Oe & wn Sg oO miev 
= em OE a“ - ot Ord rad lO geo w m—O «= ow Wed OW Ont 
<OouWr aoe ow ~ fr ob cet Zod ObKm od Oxe wv S&S YD mile On a0Or 
ow eu Oz uu ewok =m NE ty us << Vepe 35 ~ =z @ 
ott. > Nn Ww OO 2 WWwONd wt, mtr ee wu © Zhe weS2 ws wed Z 
x CMOOUWMW t= CO OMA a QO am «= OG Cm fe poo Zw 2a FF = O 
“KOU bt al x= & J « x £ “oO ad wo Qa old tO wr WwW la 
ze ma faa Ww &0Q av ee OWte ear < wr x aw RS EM 205L fH 
fom ont rLDUAIDE fe eC DODrIe ei 2aw Wi SO WU & @ w WM wWwaiQnoed 
zoQa. Zea OC a = wa ZZ =n 2 wince =z 2 20a Cw eat waetew 
eas tO) fos wa be Po tls i OL ely map od On? => &€£ WW Ot f< wed WF WOO das 
ooD QOOwW WW LH © Oo waewown Ou woo OOon < Qe «¢ ooo 20 Zr SOCWM 
Ol? BK BNL a wb Ww Mow a MS z00o a 20 DB Ott m= Dea 
~~ = 
ae 
az wim am ~ o~= 
Om = Ota ww ™ a ) ~ 
« food ot en + + ec e 
z We & Qox x = 4 ><ud D4 
OQ ECS ef ewe & ~ tA e 
ont AW. 0 a gqevwr K oh wet ~ 
e - Lf wwe te WIMAr COiiete OD @ o ~ We « e o « 
© < MTN NAO .tetat ed NONGZA #* WSO Fe 1 ww Mu ~ = etn et Ht 
oe tS) Ce ae Oe. 4-4-4 4 z= ee © a2 & KM oe ane @ eo ¢ de of Ne Nae ge ON 
oe oo soe prt emm anon 2C IE HE DC IE = eee ow oe Or tet x» | preg * MUSK mM WW = & 
ol ad ede MHA Bee oe & D ONwingt enetion BW wONN oe & wim © & «ttt wm et ee eo ww MC 
xe td OL) mee see toot gre wen. ged a” ad orl YE niet NK AVMiewm Came OO Sm oem oe im oe 
ora (+f MIMS edemtn > + GS OAS aK SKN + OK | SW Nets etree | | Omtewrtat tf mt ow 
- +0. POF HOLM OO EEK © MOREY UN © OMHALE GMAW ea © NEE MKOYKE KE LOMO 
aa & tee? oad LL Ls hd 2 OOK DIOL. WIL wot ON KU Qe tee 0. DK Othe woe be Ube CU wre be DE ed KPO MK BOD 
e- acm © Wir >> e© & eA OO ODO PP >ww wow Od OLORE PUMNINY COU) © MOU HINNIW of © 8 Om MUN 
& Zero uw WeLOQOOwwewZZOQ BD OOOWMM NNO Ow | WOOD § Ws ad of ed ead ed Lb wee © 9s eee we OE ead el LS er LU wo Mew LU oe 
¥ wt SL Ps sn TELON NNNOLT AR ZEdk NVOWAH EE LO MZOQOVIA HE QHM NOU ZOOM 
us = w 
id ~ ™ 
Nu 2 ut 2 Ure WWI mw mm OW 2 om CD oe Ly ue MWe 
“=~ - €Ou. YW OdWwrews> ted wd Od dE ed az UNOAIZ <- OvOG awe swe az OH 
- WY alte” + ete XAT US FAO DES HOE OO FDOBOAO IdM IND BOS AOD TODIMOSED 
wu WwW “nm ¢ b= 
au 2 mt OF a am W a. wv x x 
Qe«es a w - xo 3 ww Wie wir oa Q 
Zz > © aad w” xO ws > © Ox ww 2 Ls) 
QO us tw Qa KO (hd Oo mw “pul Cw wt x 
o YW *# x @# wo * od ee x vo qz “wa wv Ww 
= CE ANA SWOM DRONA VE OAONNMS NOMA ROHNA GIDE ORKOAHNM SADE DHOMAGHSMOPMDPOMNMGTNOPraD 
a ZL detent aaNNNQNNNANNNOOMMMGANMOS SST SETS TAMNNMNMNNW ODO OOOO OOP EERE ER pm 
& & ° 5 NANNINNNAINNNNNNNNN A AINNINNNIN III NINN AINONIINNINNAION AINA AION 
9 
[4 o = o FM VWS 
a 2 q od od ood AMS 
~~ uo aaa aaa 
rm wm << o ooo aoe 
— < 
/ - [s) 
” © 1S] YW Le) 1S) 
oO a uu as as vs 
2 Ww Met nar a vz Ow o 4 ws 
o a ig ooo tet 5 = ow o o °o 
<_< 
- re Oo OM Aad Se and Oo 9 rYouwOodo- wo Qo o Wi oO ~~ + @ 
a wne om ooo ooo he LLWoo ~ + Tt mo + rm ° 
ws SOND the BaQ044maM Q00nN— oP cdoovudwdqvoagoan Ox~rOOoOn CniMnodgtOOu wre 
ud be ‘3 gon hk COOCSOSSOON COOMA etn Onoooooocoysse Eoo0000oo0 [olel leleielelelelele!. | wn 
te ~ 
2 =w noo NN NAHOOdtetmt NAOND Ota OntOHtNNPrOM heath AN and ond fe et owt MO tet Qe Ost Ge 
< Ww Ww Oan Qa 200000000 C0050 BOCOMODCOMONDND woe belts Sect rosnoenco- 22 
=z - "2? ed 
uw “nm OD NON N QHNOVONINN VUWONW UOUWNONUWOTOUVOONOCT BDOWORNMONT ONQOWASCNOONCANDSO an 
5 z Oo wm OQ 4AOrif-r amon HOHKOT MTOOLNT NMP LUOOOCOFLMOOMLUSOSOCrWOPUOOME Mut Nw 
om? Ww mPa QO MOWMO*O0T PONE LAE BOON SWAN OOUL NMA OWT BW ET OOOL MIS ZOOM dwt oO 
C4 O Ann qt d@<cONOnouU VVOOO AWWWWLELLL QOD HHRMA NN MAM OMS FT FINMINININO OO ° 
= ww WILD Be COYULOUOLOU VQWVOCHY YVOVOVOWOVYOHOO OOOO HOOOHhAGCHOQOOHHR20G0OA0H020009 o 
= & ee fooler a) Qo Soo0ocegcoeo COSCO SOSSCHOOCOSOSToCooOeC ooo eoocoooc coc eoOCeoOCeCoOSooeoe6eo We 
= 
a u <u 
-_ ub. kL Ow 








| 
© 
IBM MAINTENANCE DIAGNOSTIC PROGRAN 5 c” 16M MAINTENANCE DIAGNOSTIC PROGRAR Pace NO. 4268233 
FF1O SYSTEM TEST RELOCATING LOADER MODEL 12 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


__. FF10 SYSTEM TOST RELOCATING LOADER MODEL 12 


f 


| 
| © ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
OE48 DIC6D3D6&6C5C46B 342 | FF6B 345 ORG X"FFFE®-K*OEFBS+® IF FLAGGED, STORAGE BEING OVERLAYED~ 
OES0 D3DECIC4C 905740 342 €} «OEFB 344 OR ‘F00'= {ORG TO X*®OEFBE 
O£58 E3C5D9D4C9D5C1LES 342 | 307 teRRRE eR OEKR EAST IERERESSESESEESENSSEESSESRESESRSESSESES ES HESSD SELES SS 
get EES ocor Hace 0c cutee | g2g PTRGUTInE”eL'="ReLacATING tasoeR ; 
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1 @ 355 * HEADER s 
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OFO7 C2 O01 0232 376 LA X°0232% eXRL SET-UP _XR1 UTAB ADDRESS CC 
| OFOB 1¢ 06 0800 00 377 toc | ODKELAG(1}¢0(eXRLP DKFLAG EQUAL CE MODULE TYPE *6Ce 
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: €> G21 30 Cl 0800 383 7LI BKFLAGeX°CRE TEST UDT FOR THE DISK FILE 5444 *GCe 
| OF25 2 B1 D2 3B4 JE SEEK2W JUMP FOR TYPE DISK 3340 *CCe 
oFse $8 BE cee? or2c 386 SEEKS 3c wah READ _A RECORD 
C:  0F26 00 02 ose2 OFD2 387 CLC ~ DBUF 4203) eACT RENO CR FOR ACTIVE ENTRY 
0F33 CO 01 OFAB 388 SNE VEN? 
OF37 OD 02 0887 OFDS 389 CLE DBUF+T(39 »OLD CHECK FOR OLD ENTRY 
C GER CO Bh OFAT 390 BE. NEXTS 
; C2 OF&1 OD 02 0887 OAFS 391 CLC OBUF47(5 9 9FF2 ; 
OFS] F2 O1 OA 392 JNE NOTFF2 
| Or4a OC O1 OB6B 0884 393 MVC 3s FF2a(2),08UF+4 . MOVE IN DISK ADOR OF FE2 
iC 9680 3 18 0B69 394 —C- MVE «FE2a-29X"18° MOVE IN FLAG FOR 8 LOAD 
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| OFSC 3D FE O88A 397 CLI DBUES1O,X*FE* IS IT CPU MODULE 2 
|g.  OF60 F2 81 IA 398 JE _DOMOD 
C— -9F63 C2 02 0232 399 LA. UTABs XR? INITIALIZE POINTER TO OCP UNIT TABLE 
| OF67 6D 00 00 088A 200 LOOPIA CLC 0(1,XR2)_,DBUF 410 ARANCH IF UNIT ES ATTACHED TO SYSTEM 
, OF6C F2 Bl OE 401 Jz poMdo 
ic. Sees Bb Be Bh 3e Fen Atay ogsyorGHEGKAERE SESLEREP LEY Ebrey 
OF75 CO 90 OF67 404 BF LogpLa CONTINUE UNLESS DCP UNIT TABLE OONE 
OFT9 CO 87 OFAT 405 B NEXTS 
Lom, OF7D 406 DOMGD EQU * 
| © oF7D 35 0} OAEE 407 L LPTReXR1 
OF8L 34 O1 OF96 408 St TOasXRi 
| OF85 4C 01 02 0884 409 MVC 202, XR1) ,DBUF +4 SAVE CYL/SECT ADDRESS 
¢ OFBA 3C C4 C884 410 MVI ‘OBUFS4,C*D* 
i « OFBE CO 87 0226 411 B PACK 
! 0F92 04 OF92 412 oC XLI'4? 
DATE. 29AUG75 PROG ID FFi-o| “pate  29AUGT5 PROG 10 FFI-0 
EC NO. 827804 PAGE EC NO. 2540 be PAGE oh 











@ = @ @ @ & ©. ‘ ® @ @ @ & & & & & & & 


= 


| 
. 


Ae 


42482 


PART NO. 
PAGE 


18M MAINTENANCE DIAGNOSTIC PROGRAM 


re 
Ne 


3 


enn 


42482 


PART NG. 
PAGE 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


SYSTEM TEST RELOCATING LOADER MODEL 12 


.. ERR LOC OBJECT CODE 


FF10 





SYSTEM TEST RELOCATING LOADER MODEL 12 


FF10 


ADOR STMT SOURCE STATEMENT 


ADDR STMT SOURCE STATEMENT 


SHSESERHHHH SHAHHHHHHEHHEHES HHOEHHHEHH 8H 
VVVVOVUNVLU VOQEOLYEEQOYLEYOR WUIWVWUOUONW OV 
VOI OYVOVON BO eee Teeeret rey oe 
SHSHHHERHE BOEH HROHHREDHEHAEY SHeeeeaee 29 
Qa Q ro Ww 
oe ce og od 
Q Qo “ 2Q a 
1) a) Wi (s) at 
uw id AVN - Bu ei 
r~ 4 & ee @ a wee 
Nx <O za 
2 a wr WOW be 2 VO wa 
oO e < UW) wWtat us wet WH « 
~~ Zhe ab WO DSWD KO aw WW wo So 
= e Oo QgO OW W wok Wall 4 
< 3< ON 0 OO St ee a) 9 
> wo = be Lee WwW @2¢2re O Oc (wy 
Oo w « Qu x aa deux O OF ua 
ad > us zat Or &-eS w < Ld a 
® oe 2 OuwwzeD Of Ws Q 
aa OF AQYW 4 << - & a ad ond 
#0 22 a Zeemw 0 adbkeOw + Or 4 z 
ee a Oo eu © PVIEDOZO W = am ey on 
2 ve VN Let “35 > & ww OG. we = « 
Fe OW O O adumw we 9A O Bez us a 
Ou LP Me UE Lee We ete COO miepe 
om Ore od OLN H-KOOK — wed: we & 2 
eZ OF OXNNADOUYMK> ZEN Wuirx< QO Ze 2 
ZO WO AWLLOTONWMH HD FEMNW COX eon = 
ee CEO WL Q an _w od wal xo x 
ore oz VCSEL AvUWIOIZ Zee ow Go Qo 
at MY FLOCrA=OOO eed ZO ete a O & [) 
aW “OO O2002 Web OW ak a ott) 
20 WUHAN Ww & ANNI ZL Mest Qo Q 
aid Ze O eP>y~Ow —UOrPOZWC Ci ero = 
tad ~% ZOXUWOOVULIRE PLWDU wx dy uO a 
ME QUAU UME iwW wed a FE “« Wa natu @ =< 
n Qwerwow TOD wk MeO OW ad moe ig 
mar WCDTe ro QUE SPRUE Pa pe & 
Oh CO) OF Ceres no w aoe 3 « 
= o3 We Oe DZrLZIZOO wed O20 OQ « 
oa = o ” VOUW I= SDM eV gre al a 
wo Ww ON rO + j-o 
ms qa & ~e uu « >O 
"n ee O & erx x ~2 2 > ~ 
~ © @ NL ©& co - ut) Qa w 
ui m= wm © TOF ee Qe — ~~ > 
mm = mw Mm OLO> > = <N am & al 
fee ww we OM YN Ot at > = 
e WO 0 ee _&_ LN ax QO ¢ 
an ft et om PEDERSEN OBR ct mvt Unew oud 
Oe of F&F &  wINeM4+O OXKOL ML = Kevt evden 2Ho-Zz 
“ur OCO> YEP ENNw~ULrRULOD oD Neath MLK &§ 1 NO 2 
PP AS BEINN | wNDKIE CAL MOK ore oe + LTORwW oF SN a 
BNO LOU SBTOWOOK OK OW Zee. we ww hi O wt = 
6 Id DZDMXDLNNIGZOODOOR OZ Hk ZWNDUANNE SS wi = 
0 UD eed CO COU COO ub Lh - BOwO dad tO WW aw 
Renee eee ees mn de OAM PeYM) 0. 
w on vw 2 > 
” aWede AOS 
{= DUI U0) 99 dL bem OO wn WW 2 2 
OF Oat SP > SP YQUU aN a 
BESO MU IELE AVIELDOOOOCMNMWA wa 
=z z =x = x 
an N <q Qa ” =z 
2% ve ne) o "= a 
Qu se a = x 4 z 
ud Oo oO oO a w w 
aun 2 al Qa - = > 
DOP OMS OP BDO HN FN OP OD OMNI SUN OM OA OMNES IA OP OM 
AOS ET TS ETT AANA 000 0000 000RE REE EEE RS 
SESS PLT SS SSS LEG FEES TET SITS TES EE TEES 
ON w quow Ww N 
So uw DOO ~ © 
°o °o oo°0 oe ° 
ot od ot omtort ot ~- 
Nn ww us me 
ea & ma ou 
web < Wo ~ aw Udi 
oo 8 Qo 4 & oo 
Ne N OC oO Rone fF NO Qo WMD wa < aQ 
EN © QD DO OOH OHO MH a uO ON Unt? Ue @ 
WN DODADON BUDMOANOAAMODH qOrow qu. ue ve 
QO CrOVOHOOOO TOMQOOCOOMN QanO00 eo °° Qo 
LM NNN DoS OMUMNOMONOr otto t he ated fe ~ 
MOD DOODOOHOOOOUDQONHOAD OGOV® Becee a @ 
VOOQNANOBNVOIVONONNGNONON WTUQVOTIOW LM eo Q 
AOMOLOUW OU MOOMLMEL WOU MWe MHPMQOOOOCOW WwW 2) 
UINMAVNNDUNOWAMALONDOWN IADONVTMOWND W N 
LULQOOOOHMMMNNNMMAMOATS TT TUN WINMOOODOORr fF ) 
LLOOOCOOOOOOCOOEGOOC0GES9 COo00SEr" G08000 oO °o 
omtend rand oot tended ond mp emtond ent «7 


CO er ok eh ct ge at rat 0k ond red rd eat rd ed mcd od mt md rod wed 


, * . - 
Neat! Net 


=“ 
” 
bees 
Qn 
ua 
Sa 
Op » 
wo w” 
Oo ud 
xcs “ 
Ww wr 
20 uw 
Ke a 
are Q 
@O a 
<z < 
a 
2 wad oO 
WwW = 
oud - 
Lad ~ 
- On ae 
wr Oo < 
zs < be 
iw o wn 
3) od 
« & PJ 
Qo we 
Ue =z “ 
a wi 
ad 
« = 
2 &§ 
= 
w 
> owed u 
m= al « eo 
~ = ax © 
* & ew > UW - oad 
Lor oh MO LMNHYO Dee W 
were © © OOM wt « OF Om 
Qi No NOOO ef | xX © OO) 
Ar~ & A PPM TEWewW eAnOdOe 
wwe ew Boe we SZAWKIDO eee O 
NNRZS Wi dont et rad NIN LD 0d (1 Few CL, ee mt FTE OD 
ade OW Ud ceed me rod ed EY Le EN eed eed ced cd ed 
Lae PHS QO, Mont ef Ch Oe MOU 


ww 39 2 =e 
VUEIING CG VOUUdECr> VUNLUOU 


ERR LOC OBJECT CODE 


A Q 
- OF -> 
i] x 2k ZeimwOowo 
¢ us ulce Oe0OIO 
- 2 26 radOoL 
APTA OAOANALNOMD DPOANMATNDOVOD 
gd ad et ed oh emt ead NANNING THEE TF PETES CP FER EF OH 
SHIPS SES SSE SESE TTT ETE TT ETE TEES 
zo f- © LOny OL NIN 
Oo qf <Mao VOOOuw 
bbe Ue UU tii UL Ue te Ub, Lb 
oo Oo 8 Oooo oo000 
ooow 
Mw ?TOU 
ou DONO 
udu OWWO 
oo OUND ST 
oQvaYW 
“uOOa oO < enue ow OMnts ’ 
LW WN wt NL wil, OO TOV 
Qik wh N etc on APM ein 
C00 OC ooecee Ud WW ud 
AINSENOW 
“a0 ~~ tt rt tL WWW Wd 
rOOCOND © © BOOCOOOVND BMAAVOKRN 
2O Lo OunvaTOW 
COWLO O ONS LLNS QOOOAONTONN 
eoocoew v US NOLUMUMMUAOQVOOOWMOW 
MmnArOM DLO MADORAN ROWOM OW WUD 
SOAR < CLDBHODODMIVVIVOOCO OW 
LLU ULiL te = UL Ga ee A UL Ue Ue Ud Le 
ooceo 2 CODOCOCOOCCOGOCOO9008o 


oOCUUvb00090900000 


pe eee UE OAR AD A AORN epee eC ete SEB mn AAS mR ny my me ERY NNER Gey ETEREY SSSI © ae ee eo es SE ome 


ene eee ee a ee ee Ee ee eS Swe ee pe 


FFI-0 
5A 


PROG 30 
PAGE 


06000 8 


ere | ee = en = ee ee we ee ere 








6h 


4248233 


F NQe 


SYSTEM TESF RELOCATING LOADER MODEL 82 
CROSS-REFERENCE 


- TBR MAINTENANCE DIAGNOSTIC PROGRAR 
FFLO 


C 2 


O 


ee nieatesstirmre semmvmnan inane ie ceomnensmasiansenin tian 


3 
6 


424823 


i2 


ADOR STMT SOURCE STATEMENT 


TBM MAINTENANCE DIAGNOSTIC PROGRAB 
SYSTEM TEST RELOCATING LOADER MODEL 
ERR LOC OBJECT CODE 


FF1O 


tmve 


reres 


025% (430% 
rage t° 


0393 0395 0397 O400 0409 04107 0415 U442 G44 


O3LE O1L2G OF2G O2342 O154 0196 0212 O0226% C227 








~@ 
om Pd 
= Les 
Q & 
% aes 
$ 38 
So oo 
2 us Bt te Bos . 
tt . auy Z eury 
tw 
3 3 é3 as 
‘ & % . £s toe } 
ww ¢ rel 
3 & o 33 83 oo 
# 
ws mh & . CH OC 
s $8 3 Z8 88 
o 3a s 3 23 So 
; #4 
oe ete Of os we > mn sz 
x ees 86 ofS 2 se PS BS SS 
o oo0 & 35 S 3 Soo oo SO 
& 2 * @ * 
w oe ow N DOO Pope ad 0 fe wd ~~ Hregy 2s erooro 
Se Sas er en ay See in tahoe 
ie 
% Go o 8 3 n e200 900 0 80 © 8 oo 3 : 33 S8o8eo 
o * * e * * 
Ww we Kes awame GnMDOMNG AM OUNINOWE HO mines nemionmungmn@oR tan gre gureimoes ovaity 
WL DA NODAME HNASNEDNNOODIFNOOTANOG HMANDONDMORNOOM NQOAS SFVANDONOADD 
us pap] mOQOME NAINA Soonouonanoe eatiniet $ OONON AOS oN esosecco. MMGANHOO 
&% oO ODOGOOOOGAOAGOQAONOOHAGDOOOSS + GOoeoooaace oO@ QOOGGOO e020 
4 
TAD OMANS OAUMBWDUNOMOHOWD WOO cutoaies 4 O Area Din eo GENES eatin aoe Banos CAINS TR 
z FAD COUN CO) EN ES AIO Pe COUN COM Oh HON DOMOBVS LOODHMAMHOMe PAOOMOOT Ares OS se AG AMO ODOR 
us Js eoeeessSsssecoceo NAIF FMMIQAML FF Mags Seas f goussaasss o8tZ 
oO , O09 00900009000000°0 ALWOKL BQQAQAKSIVOV600000060000 DOBOWOOOeS: 2eoc009 
Wh NMED DOP UO MLL LL O et OO COP COLT vad th CO ES HON Ce pele yee tricdreptrirnrttrie Ptah trip tier gee 
SOO ed ered ed at ort DO FUN O NCL OND Eo eae ARUN OD OP LU FAL OOUL, bh UL LL NLU OLN tt) 
of LOOTOWWWHIIWOOOOOVMY DO QU. OWWS AOU DOH BIND De VIOT 9S We AO CORA ESOS 300 
= OCOQOOCOGSODOOOGHAHGHGSOGAG BOCHHSBOGOOOGOSOO0G900 QrH#OODOIQAGOHKAD OOOO 300 ne 
BN NN IN FECT CFE ET OO dD need NN sO Ne oe NEN EVAL Acet NOS ed rd of ed oT ooted CU ett 2@ 
TW alelolelelelalololelelelalolelaloleloloye) DOOOCOVMMQOOOOMOSD eo Seeessaaae [alolelolololalololelelea) Sp 
wd CBIDCOVOVOOOOOOSOCOOAG ODO0000090000000000000000 OOOO GOCOOCGOOCCONGSea hos 
me AL ah KL eh eh OS eh ef ey feed cee et RD Laat Cel eel CMa dd ddd da # dad dd ddd dad dd dud dd 
aad p= OQ @ @ awa oO z «< 2 BENMN rg ® 
QO ” CEENNG WwTOOMaO OxOoa -~ AQ & enn ot <E tas VND ae 3 
a W WETS Le WUOZWY IOLA eH UOOOYO 6 02 >9959.00.8 “awning fom prow fee Me bee “~. 22> it 
KX KMOCLMATECNVWAASGWANL IED WL ENN ey ol! LUM ZKLLO CC bem Boe CDCI ED 9K DC OE UL. Fe OL LUI) Ceormtone be 
SS WILABOIVCUOLIMY YY ¥ILOD HL ag CC Be 2 A th 0 SS BNO: WOO IOC 2a0W Us tL WOOO, dato Og. of <u 
MW CI*DDOVOOUIVOUWOVOONOR ABOOOWWUL We, ZNO} IO OG Se sussezeeroonacaa Ou 
‘ 4 . Ro : ' po , 
OS ee an a asa teas a a we OO OO] OS OG SD 
cD ANS. Ee 077 AACN ean URANO! ~ENUNNY L OR segem mlhna sneinme aommmmwin wmmmmnme coumem— omer mmm Oe ee ee tee ee eee ene eee = 
e +e eH 
a rw) WOW Fo 
e@ ome Ou oe 
# © eee kid os 
+ Wr ue at wad » 
* ® oO w zs 
2 Aw o 
sd vy Oo 
e w OO m & 
3 2 fo fe a a 
* mw x Ww ae 2# a 
® Wee ket 2 a oud 
& tLe xz 2 io] 
* WI 2 Ww & a 83 
& ero be a Md a © 4 
* Vview cf tl & Oat wl ae 
& tet fom bed ost ag 
& OULD ax uw 
” WOW ae Mens 
& wNY WXCORMTNO ww mo oO 
& W 8050. wo Ue 
oe Set weiiL foo af SM thd 
+ WWW OOOOCO+wW ooo 
BRK) he ebm > COE bebe bie wae 
ee MMW) W © uq feo 
ek LLL be Be D> De De Defer le wal sad 
&e OOK eeKeKeNnO WO Ww 
S LW OM be bebe be Of Ad wool te 
ee LKNO ZSSZFZaH “wow 
*% WM QWuwiwWiwWwU.WM ett CO 
Se mMeMWIZ Ite db OuUu fe 
# wwe O et me 
# DOOKU RE em mo yuo 
e FZOCULKYLeLLAUO «te O WM 
SH MPM MVNINANMIAMN LL Oe et ut 
* Cet 
% eZee 
# Zw 
+ Oor~ 
% LM 
ry BDI? 
& OO0O0m 
€ pee feo boi 
# Pe ds 4 
¥ iw 
% a 
e = 
& 2 
# = 
# 
& eens oueenenweve a 
& MOCWINOENOO Je 
* DOO HAAHNNNMOG eo 
& CAINAINAINNNDD +0 CO 
® eee enveewoece Oy Ze 
z OaBENS CHL PC DE OC MC IC BK IL IK CK OD IN tt) 2k 
P Ww oa 
BRR ) QA2448208 2 
& HDDBDDDDABID DI IND DIDI SaZDWwwwu WwW 
# WS DO DIGGUASIIOCAIGIIIW SG ot LL 
SU Se A SO ee ae 
He XH m x 
De bed he wo 
OR Wl Zee MONDLVOOXU «4 
HW INAS =O OKO DS) 
e HLM SILOM ZO He 
6H KK INVIOADTG jSDMOSSSIOEWN * 
MN SIA OE ODOM SADE DOF OAINMGSADMH OH 
DWDONDDNODDIAMARMAAAHAARROOOOOOOO0O 
PPS F PELE SSIS OP SES ETNA 
ANOMNNAUNDENOONOMWU O ih 
DODCOHANNNMDWOOHMO L 
DOONAAINNANNDDOOOOO O ue 
BOVWCOOOADQVOGGGo0ao OO Ue 
é 
wn 
~~ 
o 
2@ 
<~ 
on 
AD 
s 
o 
wd 
b- 
<quy 
ow 


IBM MAINTENANCE DIAGNOSTIC PROGRAN PART NO. 4248233] (~ 16M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4268233 
FF10 SYSTEM TEST RELOCATING LOADER MODEL 12 FF10 SYSTEM TEST RELOCATING LOADER MODEL 12 
CROSS-REFERENCE OBJECT CARD LISTING 
FEREN 
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ERR LUC QBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


2 * LASY CHG O7 23 73 OAFS C2 02 OA28B 70 LA TABLE sXR1L SET UP TO RESTART ALL MODULES 
3 DECK 1 OAFS 7D FF 00 71 RILCOP CLI Oe XRIDX*FFE TEST FOR LAST ENTRY 
4 SEQ 0 OAFC F2 81 E2 72 JE FIRST JUMP IF IT 1S 
0400 5 FF2 START X*AOO* OAFF 75 O02 OA 73 L LOC XRLI og XR2 LOAD MODULF'S ADDR. GF EST @OUTINE 
6 TREP OBO2 B8 40 62 14 TBN 20—XR2)9X*40?* TEST FOR OF END INT. FEAG 
J RARRKELERR EKA AKER RS AK SH KLEE SHAKY ELAS ERAS RE HK KKK SRK KK EH ERE KTH 0805 F2 90 OA T§ JF #413 JUMP TE NOT DEFINED 
8 * * orpos €C 00 OB 00 76 MVC LECLeXR19, O00, XR2) MOVE ID FROM MODULE TO FABLE 
9 * SYSTEM/3 SYSTEM TEST SUPERVISOR * OBOC OF OG OCOD OEA2 17 ALC MODKNT (134 ONE COUNT MODULES 
1) ® * OB12 6C 01 O1 OF 78 MVC LOZ XRD Vo FO XK2) SET ADDRESS OF LST ROUT ENE 
L] REEREREEE REARS EKER HEE SK ES RATERS SHAKE KRERKAS KE REL SLRS SE RAE RHEKEKS EHH 79 * AS INITIAL ARR VALUE 
OAGO FF20 OAOL 12 oc XL2°FF20° PROGRAM IDENTIFICATEON AND LEVEL OB1E 4E O1 OL OEAS 80 ALC 1(2,XR1),FOUR BUMP PAST ROUTINE PREF EX 
OAC2 80 OA02 13 oC XL1* 808 FLAGS - NO SPUDT 6B1B SC OL 03 OL Bi MVC SCSe ART LC e XR) SET TAP = ARR 
0A032 00 OA03 14 Dc IL1i*o* CURRENT ROUTINE NUPBER CBLF D2 O01 OC 82 LA L2C¢eXRLIV XR STEPS POINTER FO NEXT ENTS. 
OA04 O000 OAOS 15 oC xi2°*or RESERVED OB22 CO B87 OAFS 83 B RiL GaP LooP TILL ALL BOONE 
OAO6 OAES OAOT 16 oc AL2CRTNOL} ADDRESS OF FIRST ROUTINE PREFIX 84 HEKPERAAHRAKREKATHKREKSE RE REAL SKS TEKS KKARH HSE SKRKKKKSASSLOKS KCL SSSSESEASRHS & 
O&808 0000 OAO0S 17 oc XtL27*0? PESERVED 85 * MODULE LINKAGE TO THES SUPERVISORY ROUTINE IS #ADE aS FOLLOWS * 
18 86 * = 
19 CH&EACERSEEAELSE ERE EKRSEL AR AKE REELS HERR FKL TH ERPS RHSER ER KEKE EES CKKETHKTKKA QF B ENTRY WHERE ENTRY EQU X*AQRF % 
20 * TRANSFER TABLE * 88 AESKES SEALERS ATARASHLSRE SLRS AHH SCARCE KEK SKE AHS SSCS SE SRR SSS SB Hew 
2] EKER REES RTE REAR ERE AER ELE CKAELKT EKER E SHEERS PAKS TSS SHERLIKKS ERE KHER * OB26 324 OL OFFS 89 RENTRY ST SAVEL,XRL SAVE XPL TEMPORARILY 
22 * & OB2A 35 84 OC 02 30 i COPEND,PSTAR SET UP TO GP TO TOP TF OP END ENT &TN 
23 *% THE SYSTEMS TEST SUPERVISOR PROVIDES THE FOLLOWING LINKAGE * OB2E 35 O1 OFFS 91 L POINTR, XR RELGAD TABLE POINTER 
24 * FOR USE BY THE PODULES TT CONTROLS. EACH MODULE MUST BE WRITTEN * 0832 74 08 Ol 92 ST Lee XRLP- ARR PLACE RETURN ADDRESS IN YAELE SLOT 
25 * TO BRANCH TO THIS ENTRY WHENEVER THE DEVECE BIENG TESTED 1S BUSY #* OB35 4€ O1 05 OEFS 93 MVC S(2eXR1T) eSAVEL MOVE MOCULE'S XRL Fea TEm> VO SAVE 
26 * OR NOT READY. = OB3A 74 O2 OF S94 ST FEeXREV XR? SAVE MODULES KR2 
Q7 RRESEARTS ERS AHSRSSERAELE RASH ERTS HEKSEH ARE LNKR SKLAR SE KERAERHH ES EL EES OB3D 34 O04 OEFS $5 sT SAVEL- PSR SAVE MODULES PSR 
OAGA 35 10 OAlLF 28 ENTRY FL TRI, TAR ENTRY TO PASS CONTROL TO NEXT MOOULE OB41 &«C 390 O08 GEF3 Ss MYC BCL sXR1} SAVEL~i BITS 0-7? 
OAOE 35 10 OA21 29 NOTME OL TH2—eTAR ENTRY FROM MODULE NOT CAUSING INT. ST 
OAL2 35 10 0823 30 RESET TRA,EAR 23TS ME® CNTRY FROM MODULE CAUSING GP END INT 0846 30 OC OEF4 98 CKLOG SAS SAVEL, x* ae CHECK DATA SWITCHES FOR LOGOUT 
OA16 35 10 0425 Bl NEWINT C TRE, TAR ENTRY TQ OP END INT. @ TN FROM MODULE OB4A 30 BB GEF3 oe Cul SAVEL~1,X* 86° TNS TRUCT IONS 
OAITA 35 10 OAZT 32 i TeES5,TAR NOT USED ORSE CC 81 G216 166 BE L INK 
OALE OB26 GALE 33 TRI oc AL2ZTRENTRY? 0852 38 AQ GEF3 iO} TAN SAVEL—1,X2 AO CONTINUE TEST FFE NOY *2* GR SRE 
CA20 CC58 OA21 34 TR2 oc ALZ2CRNOTME } CBS& 39 40 OEFS 102 TBE SAVEL~1_X" 40% IN DATA SWETCHES 
OA22 OCEO OA23 35 TR3 OC AL2@RRESTRI OBSA F2 90 4C 103 JF cKoce 
OA24 OCO3 OA25 36 TRS oc ALZ(RNKT? OB85D O08 O1 OFFS GEFS 104 MIN WORK=-1eSAVEL-i ISGLATE 10 GF “COULE TO BE ENABLED 
OA26 OAZE OA2T 37 TRS oc ALZCS) NOT USED O863 08 O2 OEFS OCEFS 105 MNZ WORK<-1,SAVE1L OR DISABLED 
38 OB69 O08 O21 GEFH GEFS 106 MEN WORK, SAVEL : 
GA 28 39 TABLE EQU & TABLE CONTAINING CATALOG GF PROGRAM OB6F C2 O01 GAIC 107 LA TABLE-12 -XR1 GO THROUGH TABLE OF MODULES UNTIL 
OA2B8 OAFS 40 OS CLi93 MODULES IN CORE. PROVISEIGNS ARE OB73 O2 OL OC 108 FINDLP LA LEG ye XRLPOKRE CORRECT ONE FOUND 
41 * MADE FOR SUPERVISION CF UP TO 16 #*# OB76 70 FF 06 109 Cul OUSXRLD XP FF? 
42 * MODULES. INFORMATION IS CONTAINED*® OoBTS F2 81 20 110 JE cKDCeP 
43 AS IN THE FOLLOWING OFAGRAM, * OB7C 75 O2 OA iil L LOCXR DI, XR2 LOAD MDOULE*®S STARTING ADDO, EN XPZ 
44 * * OBTF 28 03 GEF6 OL 112 MINN WORK 220 5RR2) 
GS MOREE ERTEERER OEE RKASRHH KASD SHR SCKSEK SKA KSEAK FHKKAATE SRT KRKASS AEG SSF * C834 20 O21 GEFE O11 113 TLE WORK {25510 X22} 
46 * ARR YT YAR ff xXRL FF xXKR2 $F PSR TY STARTING ¥ DEV ID TF # & 06889 CO OL GBT3 1146 BNE FINDLP 
47 * t Tt t I Y ATORESS YT INT LEV S&S & * 115 
48 * OQ-1 1 23 1 4-5 1: 6-7 I 8 ! 9-10 q il * * OB8D 38 10 OEF3 116 TBN SAVEL—d_ X? 10° 9S ENABLE ON ? 
GQ SERRA ERA ESHEETS RGR EESERARE RLS SEEK EH EHS CLS SH KERKSE SRK SKKS ESTERASE KAAS SE OB91 Fe SC 12 ll? JF TER 
50 0894 TO FE 090 i118 Cui Ol exXRL}e KP FES THIS SOOULE BEEN DFSASLED 2 
5] KARATE AS ARE AE SAR ELH CREE ER AERTS SEES SAAT EARESRASLAAKRS SSH RELL ER HS UOBOT F2 O1 OF 19 UNE CHOCP 
52 * ROUTINE OL — SYSTEMS TEST SUPERVISOR * GR9A 6C O1 OL OF 120 MVC LES eXPL Be TE eRRO) PUT ANNR., OF MODULES FEAST RTH OTN 
Fl KVAARESKKHAELHRHTCA MHS RAKK LSE CKERKGHOLE RS HESESKSSKAKIEKKS SRE REKSRSAHHRRR FERS S CBSE 4E O1 O1 DFAS t2k ALC Li 2>_eXRL} FOUR SUMP PAST RIN, PREFACE 
54 ¢ * OBA3 FZ 87 O03 122 J cKxoce 
55 * THIS ROUTINE PROVIDES THE SUPERVISORY FUNCTION YC HANDLE THE * : 123 
S56 * SIMULTANEOUS CPERATEON OF UP TO 16 PROGRAM MODULES. THE INOY-= & OBA6 7C FE 09 126 TER MVI Ge XRUD KEEFE? SISARLE MODULE Cur EWTRY WAS 9&5 
57 * VIOUAL MODULES ARE REFERENCED BY LL BYTE ENTRIES IN +VARLEo. = OBAD 25 QL OEFS 125 CKBCP L POINTR, XE RELOAD TABLE POINTER 
5a % LINKAGE FROM MODULE TO SUPERVISOR MUST TAKE PLATE EACH TIME THE * oBat 36 DO OEF3 126 ext SAVER-1, 47008 GO 79 OCP TF POSSIBLE YarTD ENTRY 
5G # OEVICE BEING TESTED IS BUSY TR NGT READY. TRANSFER MUST BE MADE * OBRI CO O2 G2%2 127 BNL TEST 
60 # VIA A BRANCH TO LOCATION K*AGAt. THE SUPERVISOR SAVES THE FRO- & ‘ 128 
61 ¢ GRAM ARR, XR1 AND XR2, THEN PASSES CONTROL TO THE NEXT 28 0GRAM ® i 128 | 
62 * ®Y BRANCHING VIA TTS PREVIOUSLY STORFD ARR. & I 129 * BEGIN SEQUENCING THRU TASE OF MOGULES ENTERING THEM CONE AY A FUME 
63 SHEMET KE HEE EEKTH SES HURETRAS SERS SS AAREE ST LHRRERK ERS SLRS LS SHA THAT NASH S { 130 *% 
OAC O11 QAES 6&4 RYNOL OC XLL Ors CURRENT ROUTINE NUMBER OBBS OC O1 OD76 ODSF 133 mVC LASTMEC 2324 ZEROS ZERO COUNTER FOR RESETS VC 1 DEVICE 
OAEA 00 OAEA @5 oc XLi'O* FLAGS 132 ¥ AND 10 OF THAY DEVICE. 
QAER ODT9 OaEC 66 oc ALZ(RTNOZ) ADDRESS OF NEXT ROUTINE PREFEX opBs Oc OO 0074 ODS5F 133 AVE TOSAVECT 2, ZERTS CLEAR PRESENT INT @GODULE SAVE AREA 
OT SERSSEARERT SEES REE HEE SKHKELELE TIRE SKOEKRS ESREL KK GS SKERSL SHG HRASSES ELH SCAEBRRE OBC1] CO 87 OBC5 : 134 8 Soe 
OAED 3C 00 OCO00 6B “MVvI MODKNT,O ZERG COUNT OF MODULES WITH INT. oBcs CO B87 GBC9 135 & tee 
OAF1 35 84 OC O2 69 t OPENDePSTAR LOAD UP END INTERRUPT TAR OBCS CO 87 OBCE 136 8 OG 
3 
DATE O10CTT3 PROG ID OFFZ-0 DATE O10CT?3 PROG ¥D OFF 2=—@ 
EC NO. , 821490 PAGE 1 EC NM. 821490 PAGE Ba 
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GOTO 
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RETURNG¢3 (2)510,XR1} 
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POINTR,XRI 

St oXRL}PeXR1 
ke % 
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NE XT LA 
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BE 
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FIRST LA 
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INCREMENT POINTER TO NEXT TABLE SLOT 
SKIP MOOULE IF IT IS GYSABLED 


BRANCH IF NOT LAST ENTRY 


RE-INETIALIZE TABLE POINTER TF THIS 
WAS LAST ENTRY 


LOAD RETURN ADDRESS WITH SAVED ARR 
RESTORE XR2 FOR THIS PROGRAM 

SAVE TABLE POINTER 

RESTORE XRi FOR THIS PROGRAM 

GO TO NEXT MODULE 
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9C903 
oco?7 
ocosB 
OC OF 
0c13 
oc19 
OC1D 
oc2l 
ocee 
oc29 
oc20 


OCc31 
0c35 
0c38 
0c36 
OC3F 
0C42 
0C46 


0C49 
Ooc40 


0c5z 


ocss 


DATE. 
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34 
34 
34 
35 
OF 
30 
co 
co 
co 
co 
co 


c2 
02 
7D 
co 
7D 
co 
75 


34 
2c 


BS 
EO 


01 
02 
04 
04 
00 
04 
BA 
8T 
87 
87 
87 


01 
Ol 
FF 
81 
FF 
81 
02 


ol 
00 


02 


87 


oD59 
CD58 
0050 
OD SF 
o075 
OD75 
oc 92 
oc 25 
0c 29 
oC 2D 
oc31l 


OEA2 


OALT 
oc 
oo 
0C13 
0c35 
OA 


OD 61 
OD6B 60 


05 
00 


OLOCT73 


821490 


0C02 


0C 03 


154 
155 
156 
157 
158 
159 
160 
1s} 
162 
162 
164 
165 
166 
167 
168 
169 
170 
171i 
172 
173 
174% 
175 
176 
177 
178 
179 
179 
179 
179 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 


etc de tok dake 
* OPEND * 


We RR ae ea ae ea a ee a a EE RR KR Re EARLS KEKE SK SEHKK ERAS SB 


*& 
*x 
* 
* 


OPEND OC 


* 
RNXT EQU 
ST 
ST 
ST 
L 
ALC 
cil 


FINDES 


wonmovo 
m 


tA 


NXTMOD LA 
INTRE CLI 
BE 
cul 
BE 


Sst 
MVC 


COME HERE TO SERVICE OP END INTERUPT WETHER IT 
OCCURS FROM SOME OTHER LEVEL OR IS SIMPLY NOT RESET 
DUE TO ANY REASON ERROR GR NOT. 

BR aR EERE PRE RES EE KAKERSE LES ELH SSSR RE 


AL2(#+2)} 


ADDRESS OF OP END INTERRUPT ROUTINE 


SAVE REG*S OF MOCULE RUNNING AT TIME OF INTERRUPT ETC. 
* 


TXRLe XR? 
TXR2—XR2 
TPSR,PSR 
ZEROS ,PSR 
ICTRC1L) ONE 
ICTR,4 
NOBO"Y 
REG 

*44 

e+e 

tg 


TABLE-12,XR1 
12€,XR1) -XR1 
OC eXR1L) XSFFE 
FINDEM 

LEC eXRL) XP FFE 
NXTMOD 

LOC SXRD gS XK2 


TABLEA,XRI 
TEMP(1),0{ yXR2) 


5 yXR2),XR2 


O-XR2) 


SAVE XP 

SAVE XR2 

SAVE PSR 
INEVIALIZE &SR 
INCREMENT COUNTER OF RESETS 


TF NOBODY RESEY EN & REQUESTS QUIT 


LOAD POINTER TO MODULE TABLE 


BUMP TO NEXT ENTRY 

TIST FOR END OF MODULE TABLE 

NO GNE WILL ADMIT YO THE INTERRUPT 
TEST FOR NON INTERRUPT TYPE 

BRANCH IF NOT 


LOAD ADDRESS FROM TABLE THAT 
POINTS TO BEGINNING OF MODULE 

SAVE TABLE PGINTER 

SAVE ID OF MODULE SG IF IY Says 

IT IS HIS INT, WEL KNOW HES 10 
LOAD XR2 WITH ADDSESS OF INTERRUPT 
ROUTINE IN TEST ®OCULE 

GO YO INTERRUPT ROUTINE FN MODULE 


PROG ID OFF2=-0 
PAGE 2a 


: 
@e0e0200288 e088 088080886 8 © 
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TBM MAINTENANCE DIAGNOSTIC PROGRAM [ART NOo 5555574 
IBM MAINTENANCE DIAGNOSTIC PROGRAM Bice NO. pene | ate aa 
FF20 SYSTEM TEST SUPERVISOR FOR MODEL 15 FF20 SYSTEM TEST SUPERVISOR FOR MODEL 15 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC CBJECT CODE ADDR STMT SOUPCE STATEMENT 


197 *eeee teRH 


236 *kOSKREE EE 
198 * NOTME * 


239 * NOBODY * 


199 FEREKASAKRARRAR HRA KHATER AK KARERRREK SEAT REREAEERES EKER ER 24D RR A Rea ee he me Be Re Re Re a a ae he Se a a a oe ae a ee Ee EE EHS SSS SS 
200 * 241 * PRESENT INTERRUPT NOT RESET BY ANY MODULE} 
201 * COME HERE FROM MODULE WHEN THAT MODULE SAYS THAT 242 * 
202 * THE INTERRUPT PENDING IS NOT HIS. ; 243 FREE RREREAREKERKE AREER EKKKEE SRK KK SES KKKAES KSSCKKS SSK SER 
203 SESEREAKEKARESE SERA K KAS KAKA KKK ANS KKEREKKAEKKKKKEASEKKKEKKREKEKSS 244 
204 0C92 245 NOBODY EQU) # 
0C58 35 O1 0061 205 RNOTME L TABLE Ay XR1 RESTORE TABLE POINTER 246 * FIND OUT IF DURING THE LAST 4 TIMES THROUGH LOOP CLAIMED 
Ocs5C CO 87 0C35 206 B NXTMOD CONTINUE THROUGH TABLE TIL WE FIND oat THAT THE INT°WAS HIS 
207 * WHICH ONE CAUSED THE INTERRUPT. <48 
208 0C92 OD 00 OD74% ODT6 249 CLC =IDSAVE( 1), LASTME 7 
209 eee eeteense OC98 CO OL OCAB 250 BNE  UNEXP IF NOT EQUAL THEN NO ONE CLAINED AN INT RRUPT 
210 * RESTOR * 251 
ZL] FREER AEKKEKEEKEKESKKAKPEE RK SRK KEKKEKKKKS SKEKKSEKKKEKRCR“KKRKEIKE 251 : 
212 * OC9C 3D 00 ODT4 252 CLI IOSAVE,0 IF O, THEN ¢ “MEBODY CAUSED AN INTERQUPT 
213 * COME HERE FROM MODULE IN PREPARATION TO RESET 253 * AND WE CAN'T FIGURE WHO IT IS 
214 * THE INTERRUPT. OCAO CO 81 OCAB 254 BE UNE XP ASSUME UNEXPECTED INT. 
215 * THAT IS_ RESTORE XR2LyXR2ePSR. THEN RETURN TO OCA% CO 87 ODOF 255 B FAIL IF == 0 THEN THE ID = WHO EVER ADMITTED 
216 * THE MODULE AT THE ARR VALUE. 256 * TO THE LAST 4 INTERRUPTS DIDN'T RESET 
217 * 5 257 * SUCCESSFULLY 
218 * ‘ 258 
219 ® ¢ 259 SEKRERKERREREEKKEKS EERKEK EKER 
220 * OCA8 260 UNEXP EQU) * ENTER HERE WHEN IOSAVE = 0 
22] FHSAA AKSAKELA EERE KKS ELSE ETHER SERAKSE SE SRR ARERA SKE THRREK TER ER GES OCA8 CO 87 O21E 261 B UNPACK UNPACK ID GF LAST MODULE WHO SHOULD 
222 OCAC O01 OCAC 262 oc TLL‘i' HAVE RESET HIS INTERRUPT 
OC60 223 RRESTP EQU) * OCAD OD76 OCAE 2€3 OC AL2ULASTME ) SOURCE 
OC60 34 08 OC91 224 ST DORE S43, ARR STORE LOCATION OF MODULE'S RESET RTN OCAF ODOE OCBO 264 oc AL2(UNEXPM}) DESTINATION 
O0C64 OC OO 0076 OUTS 225 MVC =LASTMEC1), IDSAVE «PUT LAST ID IN LASTME OCB1 CO 87 GOCBS5 265 B *+4 
OC6A OC 00 0D74 0968 22€ MVC = IDSAVE(1), TEMP SHOW THAT THIS MODULE RECOGIZED THE INT OCB5 CO 87 O21A 266 PTIT 8B PRINT 
CC70 OD 00 ON74 ODT6 227 CLC YOSAVECLIZLASTME IF LAST MODULE IS DIFFERENT THAN THIS ocB9 Cé 0CB9 267 DC XLI1°Coé? 
oc7Te CO Bl OCTE 228 BE SAME] ONE, ZERO THE COUNTER OCBA 4C OCBA 268 OC IL1* 768 
OCTA 3C 00 0075 229 MVI = ICTR»O OCBB ODODE OCBC 269 DC AL2CUNEXPM) 
OC7E 230 SAMEL EQU) # OCBD FFOO OCBE 270 OC XL2*FFOOF 
OC7TE CC 87 0C82 231 B 46 OCBF CO 87 OCBS 271 Bs PTIT 48+28=76 
232 OCC3 CODSE3C5D9D9D7TE3 OCF2 272 oc CL48*INTERRPT NOT RESET, SOURCE OF INTERZUPT UNKNOWN, ® 
OC82 35 01 0059 233 L TXRL,XRI OCCB 40D5DEE340D9C5E2 272 
OC 86 35 02 0D58 234 L TXRZXRZ RESTORE COMMON REGISTERS BEFORE ALLOWING OCD3 C5E36B40E206E4D9 272 
OCB8A 35 04 OD5D 235 L TPSRPSR THE PRESET OCDR €3C54006C640C905 272 
OC8E CO 87 0009 236 DORES 8 o—* GO DO RESET OCE3 E3C5D9D9E4D7E340 272 
OCEB £40502D5D6 £60568 272 
OCF3 4003C1E2E340D04D6 ODOE 273 UNEXPM DC CL2B8* LAST MODULE TO RESET WAS XX®* 
OCFB C4E403C540E30640 273 
OD02 DSC5E2ZC5E340E6C1 273 
OD0B E240E7E7 273 
274 
: 275 LHERSAKEKASKSEREEERE CEES KEK RRKAEERAKEAERERKKSRAEREREKREAKSHRAAEEEEED 
276 * 
i 277 * COME HERE IF OP END INTERRUPT NOT RESET BUT MODULE Xx 
: 278 * SAYS HE HAS QNE PENDING BUT SEEMS UNABLE YO RESET IT. 
279 * THAT IS, WHEN COUNT IN "LASTME® IS 4. 
289 ERSETEREKHKSE RE EREK SES ETKEKEAAEE SERRE SEOSEE EEEEEEKESSE REETEOEEEEE 
281 
ODOF CO 87 O21E 282 FAIL 8B UNPACK TO UNPACK THE PASSED 10 
0D13 01 0013 283 oc xLitie LENGTH 
0014 OD76 ODI5 234 DC AL2(LASTME} SOURCE ADDRESS 
OD16 OD3A OD17 285 OC AL2CIDOFLD) DESTINATION 
OD18 CO 87 ODIC 286 8 * +h 
287 
OD1C CO 87 O21A -288 CANTR 8B PRINT ¥O PRINT ERROR MSG THAY INT NOT RES. 
0020 Cé 0020 289 OC XL1*Cé? FLAGS 
OD21 2A 0021 290 oc IL1* 42° LENGTH 
0022 0053 0023 291 oc AL2UNOREST) MESSAGE ADORESS 
0024 FFOO 0025 292 oc XL2°FFOO? MESSAGE ID 
0026 CO 87 ODIC 293 8 CANTR LOOP TO INDICATE ERROR 
OD2A 0406C4E403C540E6 003A 294 ILFLD OC CLIT*MODULE WITH ID xxe 
0032 C9E3CB840C9C440E7 294 
: OD3A ET 294 
4 
4 
DATE O10CTT3 PROG ID OFF 2-0 DATE O10CTT3 PROG 1D ” OFF2-0 
EC NO. 821490 PAGE 3 EC NO. 821490 PAGE 3a 
} 
sd 
u 


| 


’ 


a ams, 
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PART NO. 5555574 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOw 5555574 
PAGE 4 PAGE 4A 
FF20 SYSTEM TEST SUPERVISOR FOR MUDEL 15 FF20 SYSTEM TEST SUPERVISOR FOR MODEL 15 
ERR LOC ORVECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SQURCE STATEMENT 
O0D38 40C4CSC440D506E3 0053 295 NOREST DC Cvi25* DID NOY RESET INTERRUPT : , ZQ2l ERKAKECKERAEARERE RES SKE KEEEERERKEREKEKE SREKKALASE SEKSE THERESE SRE SHKSS ESS SK 
0043 40DSC5E2C5E340C9 295 323 * ROUTINE 2 = LOGOUT * 
0048 DSESCSO9DIESDTES 295 324 KRAEEREREEE EEE REREA HARES SEE EEERER EEE RHE EE EERE RESERES SEES SORES REESE & 
0053 40 295 325 * : 
aoe 326 * THES ROUTINE LUNGS THE ERROR RECORDING TABLE FROM EACH FNDULE. * 
ae 327 * LOGOUT OCCURS GNLY UPON DATA SWITCH SELECTION SF THIS ROUTINE. e 
0054 0000 OD55 297 TARR oc XL2°08 : 328 * RECORDING TABLE ENTRIES HAVE THE FOLLOWING FORMAT * 
0056 0000 CD57 298 TIAR oc XL2°O* : 329 * > 
oo0s8 9009 0DS9 299 TXR} oc XL2*0° : 330 * HEKKKEE EKER KEKE KERHA KER SE SKK KK EKLEKKKESE KEKE HESS OS K * 
CC5A 0000 OD5B 300 TKR2 Ce xXL2*ot : 331 * * CODE * LENGTH * N BYTES OF FORMAT SPECIFIED *® * 
ODSC 0000 OD5D 301 TPSR oc Xt2*o* ‘ 232 * * BYTE * -N= * BY THE CODE BYTE * * 
ODS5E 0000 OOSF 302 ZEROS DC XL2°*08 H 333 * REKKKEKAER REE EEE AEE KEKK KEKE ERASE HEEAKESHRERKLERESAERS & 
0D60 0000 QD061 303 TARLEA OC xL2°0° i 334 * * : 
0062 O0GO 6063 304 STATUS DC XL2*o8 : } 335 + * 2 
OD64 0100 0065 305 MASK! OC xL2*0100° : 336 * * = 
0066 0000 OD67 306 MASK2 DC XL2*0000°* as 337 * BIT O = PRINTABLE DATA — PRINT AS IS. * 
OD6B GCFSF 0069 307 UNKWN OC CL2°77¢ ; 33& * 1 - PACKED HEX DATA - UNPACK BEFG«KE PRINTING. - 
OD6A OOOO ODéB 308 TEMP oc XL2*O°* . i 339 * * 
OD6C 0006 ODéD 309 RESADD DC XL2*09*  j 340 * A CODE BYTE OF X*FF* TERMINATES LOGCUT. > 
ODGE FFFF OD6F 310 NEGI oc XLZ*FFFE® : ZG EERESEKEREREREEEERERE AS SEAKARAKERKHK ALAA S SKE SE RASKRES VEL SHS LEKSESTHSS SKHH SE 
0070 00 OD70 311 INTFLS OC XLL*O8 on79 02 0079 342 RTNO2 OC XL1L°02¢* CURRENT ROUTINE NUMBER 
0071 OCé0 ODT2 312 OPENDX OC AL2(RRESTR} OD7A 00 ODTA 343 oc XL1®o* FLAGS 
oo73 oo OD73 313 INTKNT OC XLito® COUNTER FOR NUMBER OF INTERRUPTS : OD78 FFFFE OD7C 344 oc XLZ"*FFFFE LAST RQUTINE PREFIX 
0074 06 COTS 314 IDSAVE OC XL1 S08 345 RERRKEAEEARERARESRERSAERERRE SE KSHKKA SAAKES VEKTESHLHSKSSERESHELS KL SKSKESHKKTS SE 
OOTS 315 ICTR EQU * OD70O CO B87 O21A 346 B PRINT SPACE PRINTER 
OD75 O000 OD76 316 LASTME DC XL2'Ge RIGHT BYTE=}- ID OF MODULE WHICH Oopsi 13 ODBi 347 DC XLLPLZ° 
317 © LAST ADMITTED THAT HE CAUSED AN OP END CD82 3C SC OCDA 348 MVI PLINE+90,C*e? PRINT A LINE OF ASTERESKS AS A 
318 * INT. LEFT BYTE-- MUMBER OF TIMES THAT 0D86 OC 59 08D9 OSDA 349 MVC = PLINE+89(90)-PLINE#90 SEPARATION 
319 « THAT MODULE WAS ENTERED TO RESET HIS INT OD8C CO 87 O21A 350 B PRINT 
O07? 0100 0D78 320 x100 oc Xi 2*0100# : 0090 22 opso 351 DC XLE*c2é 
oo91 C2 02 OA28 352 LA TABLE ¢XRL POINT XR1L AT TABLE OF MOOULES 
OD¢S5 7D FF 00 353 CKMOD CLI OC, XRLD EX" FES BRANCH IF LAST ENTRY 
op98 F2 81 E3 354 JE LOGEND 
0098 75 02 OA 355 t 10€5XRL),XR2 LOAD POINTER TO MODULE SPT 
OD9SE BD FF 08 356 CLI BC eXRZ2) Xt FFP BRANCH ITF NO RECORDING TABLE 
ODA! F2 81 03 357 JE NXMOD1 
ODA BS 02 09 358 L 9(,XR23XR2 LOAD ADDRESS OF TABLE INTO xKR2 
ODAT B89 3F 00 359 LOOPS TSF O(XRZ2)-B*OOLLI12EZ® IF FINVALIO BITS = TERMINATE LOGOUT 
ODAA F2 90 B86 360 JF NXMOD GF THIS MODULE 
361 * IF X*FF® CODE BYTE — MODULE DONE 
ODAD 2C 00 OEAA Ol 362 MVC ADR (1) 5910_XR2) 
ODB2 3C 00 OEAD 363 MVI ADR-1 .X*0* 
ODBE 2C 00 OE55 O01 364 MVC PLENCL Do BE 9 XR2) MOVE LENGTH OF FIELD TO PRINT LINK 
ODBB 34 02 OEF5T 365 st PADR,XRZ SET UP ADDRESS PARAMETER 
ODBF CO 87 OEDD 366 8 X*EO0f BRANCH ABSOLUTE DC*S 
\ 367 
' ODFC 368 O8G =X *ODFCE 
ODFC 0000 OOFO 369 BSCAX OC XL2*°0000* OoC*S USED FOR BSCA 80F AND 88F. 
ODFE 0000 ODFF 370 BSCAY OC XL2*°0000* MUST BE AT ODFC-ODFF. 
O£E00 371 XEOO EQU * THIS IS £00 
OFOO OF O1 OEST OEA2 372 ALC PADR( 2) ,ONE 
OEO6 OF O1 OEST OEAA 373 ALC PADR(2},ADR 
OEFOC OC OL OE45 OEST 374 MVC UADR1L (23 .PADR SET UP UNPACK SOURCE ADDR 
OF1l2 BB 80 00 375 TBN Ol eXR2)eX* 608 GO PRINT IF THIS ES PRINTASLE ENTRY 
OE1L5 F2 10 38 376 JT PRYENT 
OEL& BE 40 00 377 TBN O0,XR2),X°40" EF NOT 4EX DATA, WwsST BE CODE ERROR 
GELB F2 90 45 378 JF NXMGD TERMINATE LOGOUT OF THIS MODULE 
OELE 2C 00 O€43 O12 379 MVC ULEN(C 1) 91 eXR2) SET UP PARAMETERS TO UNPACK HEX DATA 
O€23 OC O1 OE4T OEAB 380 MVC VADR2(2) »X881 
OE29 OF 00 OEAA OEAA 381 ALC ADR(1) ADR 
OE2F OF O01 OF47 OEAA 382 ALC UADR2 02) ADR 
OE35 3C 40 O8FF 383 MVI PLINE#127,C® °¢ CLEAR DCP PRINT AREA 
9E39 OC 83 OBFE OBFF 384 . MVC PLINE4126(132) »PLINECL27 
OESF CO BT O2LE 385 8 UNPACK UNPACK HEX DATA 
: OF43 00 OF43 386 ULEN oc TLieoe 
? Q0€44 0000 OE45 387 VADRI OC AL2 (#—8} 
: O€46 0000 O€47 388 UADRZ ODOC AL2(%=8)} 
OE48 CO 87 O21A 389 8 PRINT PRINT OUT HEX DATA 
DATE 010CTT3 : PROG ID OFF2-0 DATE OLOCT?3 -PROG I0 OQFF2-0 
€C NG. 821490 PAGE 4 EC NO. 821490 PAGE &Aa 
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TBM MAINTENANCE DIAGNOSTIC PROGRAM 


FF20 
ERR LOC 


OE4C 
OF4D 
OESO 
OF 54 
OF 55 
OESS6 
OE58 
OESC 
OE5F 
OE63 
OE6T 
OE 68 
OF6C 
OET72 
OET6 
OETT 
OETA 
OETE 
OE 82 
O&€ 83 
OEB4 
OF B86 
OE8B 
oeac 
OF 92 
CESE 
OE97 
OESB 
OE 9D 


OFAI 
OFA3 
OE AS 
OEAT 
OEa9 


OF AB 
GEB3 
Of 6B 
OeCc3 
OECB 
OED3 
OEDB 
OEDE 
OEEG 
OEEE 


CEF3 
OEFS 
OEF? 
OFFS 


DATE 
Ec NO. 


SYSTEM TEST SUPERVISOR FOR MODEL 15 


OBJECT CODE 


21 


F2 87 08 
CO @7 0214 


ol 
co 


0000 


3§ 
F2 
co 
co 
11 
2c 
oc 
co 
22 
02 
co 
co 
42 
“8 


02 
02 
87 
87 


60 
59 
7 


Ol 
87 
87 


OFF2 
FFE 


3C¢ 
oc 
co 
26 
cc 


&C 
59 
87 


&7 


FFE 


co 


87 


0001 
0004 
0005 
0881 
0099 


02 DEC 706 E4E340C3 
0604079-".5E3C540 
E€040T9IC50406E5C5 
406CC2C26940C609 
DE0449003C5C6E340 
F 240E2E6E240E3C8 


OE 45 
01 

ODAT 
O214 


O8DA 
0809 
O21A 


oc 


0395 
O214A 


oaDAa 
0809 
0214 
0222 


0000 


C50540 


O9CS5E2C 5SE34CCBC1 
C3E340E30640D9C5 


E2ZE3CLO9ES 


010C T73 
€21490 


O8DA 


O8DA 


ADDR 


OF4C 


OE54 
OE55 
OE57 


OE6T 


OE 76 


OE82 
OE 83 
OE85 
OE87 


OE96 


OE9SC 


OFA2 
OEAS 
OEAG 
OEAS 
OEAA 


O€DD 


OEF2 


OEF4 
OFF 
OEFS 
OFFA 


0001 
9002 
0004 
0008 


STMT SOURCE STATEMENT 


390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
426 
425 
426 
427 
428 
429 
430 
431 
432 
432 
432 
432 
432 
432 
432 
433 
433 
433 
434 
435 
436 
437 
438 
439 
440 
441 
a42 
443 
4&&& 
445 
446 
447 
448 
£49 


PART NO. 5555574 


PAGE 


GO CHECK NEXT CODE BYTE 
PRINT OUT THIS ENTRY 


MODIFY XR2 TO POINT AT NEXT 
CODE BYTE 
GN CHECK THIS ENTRY 


5 


PRINT LINE OF DASHES TO SEPARATE 


MOOULES 


INCREMENT TO NEXT MODULE 
GO PRINT LOGOUT OF NEXT MODULE 


PRINT ENDING MSG AND INSTRUCTIONS 


PRINT A LINE GF ASTERISKS 


HALT TO ALLOW INTERVENTION 
GO RESTART PROGRAM 


* CONSTANTS SESCCEEESESSD EERESE SEEKS EEESS EERE EEEREEKEOEE EE EEEREEEEREOEESDES 


* PRINTOUTS SXASERERE CESSDA REERESEEEE EE FEOEEESEOEEEEED 000049908809 48808 


oc XLU21¢ 
J NXCNDE 
PRTENT B PRINT 
oc XU1°01° 
PLEN oc ¥Li*o! 
PADR oc AL2(*-*) 
NXCODE Lt UADRI,XR2 
LA 10,XR2) yXR2 
{ Loors 
NXMOD B PRINT 
oc XLIflie 
MMVI PLINE+90,C*#-* 
MVC PLINE+89(90) -PLINE#90 
8B PRINT 
oc XL1I*22° 
NXMOD1 LA 120, ,XR1L9-XRY 
8 CKMOD 
LOGEND 8 PRINT 
oc XL2°42° 
DC ILl*72° 
oc AL2CENDMSG) 
oc XLZ°*FFEL® 
“VI PLINE4¢90,C tee 
MVC PLINE*#89(90}),PLINE+90 
8 PRINT 
oc XL1*26° 
8 HALT 
oc XL2"°FFEL® 
8 G 
OOESKREKRESERE 
SHKECSKEKEKEE 
ONE oc tLroeue 
FOUR oc TL2¢4¢ 
FIVE oc r2°s¢ 
X882 oc XtL2*ssr? 
aoe oc xXL2°0° 
FOES SSESEEEEEE 
$9686 46868608 
oc 


ENDMSG OC 


CLSL* LOGOUT COMPLETE -— REMOVE -B8B8- FROM LEFT 2 SWS THEN ° 


CL2L*RESET HALT TO RESTART? 


SHeeesesesesececenesse 
* RESERVED STORAGE SeeeeseccseseseseseesesseeseeeeeeeeceseeeeeeessenesE 


TEMPORARY SAVE AREA FOR XR 


TABLE POINTER FOR NEXT MODULE 


* EQUATES SSSSESSSEN SHES CSSESS ENTE SHOES SEE KESEEEESESESESESEOREESERSESbe 


seeseceseseesesesess 
SAVEL DS ct2 
WORK CS ct2 
POINTR OS ct2 
TEMP, OS ct2 
Seseeccsees 
Seenesesese 

xXR1 eou 61 

xR2 eQU 2 
PSR EQU = K *04" 
ARR €Qu x*o8* 


INDEX REGISTER 1 
INDEX REGISTER 2 
PROGRAM STATUS REGISTER 
ADORESS RECALL REGISTER 


PROG ID 
PAGE 


OFF2-G 
5 
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FF20 SYSTEM TEST SUPERVISOR FOR MODEL 15 


ERR LOC OBJECT CODE 


ave 010CT73 
EC NO. 821490 


ae A NE IS OE MOOG OR te me ee 


| Penrewtebert ere eon 


ADOR 


0010 
0084 
0020 
0040 
0088 
0C84 
0010 
0212 
0216 
O21A 
O21€ 
0222 
0880 


FFFF 


STMT 


450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 


SOURCE STATEMENT 


TAR 
TARS 
PIAR 
PARR 
P4TAR 
PSTAR 
PLMR 
TEST 
LINK 
PRINT 
UNP ATK 
HALT 
PLINE 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
FQU 
EQU 
EQU 
EQU 
EQU 
EQU 
TREP 
TREP 
TREP 
TREP 
TREP 
END 


x*10° 
xX" 84? 
x*20! 
x*40! 
x*se¢ 
X*84t 
x*10° 
x*212¢ 
X*2168 
X*2Aat 
x*21F° 
x*2228 
x*880° 


INSTRUCTION 





PART NO. 5555574 
PAGE SA 


ADDRESS REGISTEP 


PROGRAM LEVEL TAR 
PROGRAM LEVEL ARR 
INTERRUPT LEVEL & TAR 
INTERRUPT LEVEL 5 TAR 


SRT 
SRT 
Serr 
SRT 
SRT 


ENTRY 
~ENTRY 
ENTRY 
~ENTRY 
~ENTRY 


TO CHECK CCNSOLE SWITCHES 
TO CHAIN ROUTINE 

TO ORINT 

TO CONVERT HEX TO EBCDIC 
TO HALT 


START OF DCP PRINT LINE 


PROG I0 OFF2-0 
PAGE SA 


1A ON NT mele Mn bye “A ealen 1 ante 
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PAGE 6 PAGE ea 

FF20 SYSTEM TEST SUPERVISOR FOR MODEL 15 FF20 SYSTEM TEST SUPERVISOR FOR MODEL 15 

CROSS-REF ERENCE CROSS “REFERENCE 
SYMPOL T LEN VALUE DEEN REFERENCES SYMBOL T LEN VALUE DEFN PREFERENCES 
AOR A 002 OFAA 0427 0362 0363* 0373 0381 0381% 0382 RNOTME A 004 OC58 0205 0034 
ARR C 001 0008 0449 0692 0224 RNXT A 0Ol 0C03 0166 0036 
BSCAX A 002 ODFD 0369 RRESTR A OOL C60 0223 0035 0312 
BSCAY A 002 ODFF 0370 RTNOl A OOL OAEQ (064 0016 
CANTR & 004 ODIC 0288 6293 RTNOZ2 A O01 OD79 0342 0966 
CKDCP A C04 ORAS 0125 0103 O110 0119 0122 RILOOP A 002 OAFO 0071 0083 
CKOSR A O03 OBD4 0139 SAME1 A OO1 OCTE 0230 0228 
CKLOG A 064 OB46 0098 0145 SAVE1 A 002 OFF4 0438 0089* 0093 0095* 0096 0098* 0099 0101 6102 0104 0105 02106 O116 
CKMOD A 003 0D95 0353 0456 0126 
DNRES A004 OCBE 0236 0224% STATUS A 002 0063 0304 
FNOMSG A O21 OEF2 0433 0410 TABLE A OOL OA28 0039 0070 O107 0143 0180 0252 
ENTRY A CO& OAODKR 0028 TABLEA A 002 O0D61 06303 0190* 0205 
FAIL A 004 ODOF 0282 0255 TARR A 002 ON55 0297 
FF2 A COOL O0A00 0005 TEMP A 002 O0D6B 0308 0191* 0226 
FINDEM A 0O0& OC13 O172 0184 TEMPL A 002 OFFA 0446) 
FINDLP A 002 OB73 O108 O114 TEP A 003 OBA6 0124 0117 
FIRST A 00% OBEL 0143 0072 TEST C OC1 0212 0457 0127 
FIVE A 002 OFA6 0425 TIAR A 002 OD57 0298 
FOUR A 002 OFAS 04246 0080 0122 TPSR A 002 ODSD 0301 OL70* 0235 
GOTH A 005 OBED 0146 0142 TRI A 002 OAI1F 6033 0028 
HALT C€ OOL 0222 0661 0416 TR2 A 002 OA2L 0034 0029 
TAP € 001 0010 0450 0028* 0029% 0030* 0631% 0032% TR3 A 002 0A23 0035 0030 
TARS C 001 0084 045) TRY A 002 OA25 0036 0031 
ICTR & 00Ol 0075 0315 OLT2* 0173 02298 TRS A 002 O0A27 0037 0032 
IDFLD A OLF OD3A 02946 0285 TXR] A 002 0759 0299 0168* 0233 
TOSAVE A 001 0974 0316 0133* 0225 0226* 0227 6249 0252 TXR2 & 007 0D5B 0300 O169*% 0234 
INTFLG A 301 OD70 0311 UADRI A 002 GE45 0387 0374*% 0396 
INTKAT A OO] oo73 0313 UADR? A 002 OE 47 0388 0380* 0382% 
INTRL & 003 OC38 OL83 ULEN A 001 0€43 0386 0379% 
LASTME & 002 OD75 0316 OL31* 0225* 0227 0249 0263 0284 UNEXP A 0Ol OCAB 0260 0250 06254 
LINK C 001 0216 0458 0100 UNEXPM A 028 ODOE 0273 0264 0269 
LOGEND A 004 OFT7E 0407 0354 UNKWN A 002 0D69 0307 
LOOPS A 003 ODAT 0359 0398 UNPACK C OOL O21E 0460 0268 0282 0385 
MASKL A 002 0D65 0305 WORK A 002 OFF6 0439 O104* 0105* 0106* 0112* O113 
MASK2 A 002 OD67 0306 XE00 A 001 O0F06 0372 
MODKNT &€ 091 OCOD 08582 0068* OOTTs XRL C 001 0002 0446 0070* 0071 0073 0076 0078 0080 008: 0081 0082 0082" 0089 a091% 
NEG] A 002 OD6F 0310 0092 0093 0094 0096 0107* 0198 0O108* 0109 OLLL O2118 0120 0121 
NEWINT & 004 0A16 0031 0124 09125* 0138 0138* 0139 0142 0143* 0144 0146 O147 0148 0149 
NEXT A 0CO3 OBDi 0138 0140 9149* 0168 0180* 0182 0182* 0183 0185 0188 0190 0205* 0233* 9352% 
NCBODY A 001 0C92 0245 G14 0353 0355 0405 0405% 
NOPREST A 025 0953 0205 0291 XR2 C 001 0002 0447 0073* 0074 CO76 0078 0094 O111® 0122 O113 0120 OLS7* 0169 O188e 
NOTME A 004 CADE 0029 O02191 0193 0293% 0195 0234* 0355% 0356 0358 0358* 0359 0362 0366 
NXCODE A 006 O€S58 02396 0291 0365 0375 0377 0379 0396* 0397 0397% 
NX¥OD A 004 OF63 062399 0360 0378 Xi Gs A 002 OD78 0320 
NXMODT & 002 Of£T7? 0405 0357 x88l A 002 OFAB 0426 0380 
NXTMQD A 003 0C35 0182 0286 0206 ZEROS A 002 ODSF 0302 0131 0133 O171 
ONE A 002 OFA2 0423 OO7T7 OLF2 0372 
CPEND A CO2 OC02 0163 0069 0090 TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY & 0 
OPENOX A O02 O0D72 0312 
PADR A C02 OF57 0395 0365* 0372% 03723 O3T4 i 
PAPR C COl 0040 0453 : 
PIAR C 001 0020 0452 : 
PLEN A OOL OES5 0394 03642 : 
PLENE C€ 901 0880 0462 0348* 034° 0349% 0383% 0384 0384* 0401* 0402 0402* 04128 0413 09413 
PLHP C 001 0010 0456 : 
POINTR A ©CO2 OfFB 0440 0091 0125 0144* 01482 : 
PRINT € O01 0218 0459 0266 0288 0346 0350 0369 0392 0399 0403 0407 0416 : 
PRTENT A COG OFSO 0392 0376 
PSR C 00: 0004 0448 0095 G170 O171% 02358 
PTIT A C04 OCBS 0266 0271 : 
P4TAR C COL 0088 0454 * 
PSTAR COOL 0084 0455 0069% 00902 : 
PENTRY A COS OB26 0089 0033 
RESADD A COZ OD62 0309 
RESET A 004 0A12 0030 
RETURN A 006 OBFC 0150 01462 


DATE O1LOCT73 


PROG ID OFF2-0 = DATE O10CTT3 
EC NO. 671490 


PROG 10 OFF 2-9 
PAGE 6 EC NC. 821490 
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i PAGE TA 
FF20 





OBJECT CARD LISTING 


i 
SYSTEM TEST SUPERVISOR FOR MODEL 15 . .. FF20 SYSTEM TEST SUPERVISOR FOR MODEL 15 





; OBJECT CARD LISTING 
2 ; 
. --- Ci 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 82 CL B81 THROUGH 96 
THE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT. i 
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96° | } ° ° C0002 sececesceccecess ceoecescccneesese seece., 
TFORZBUCT2<PNE(X ESZPTE<TAG=( BIR 6*PS 8aGRB0 EBDOFF 200021 
"GBK GBD PN 55 55573 EC 821490. SYSTEM TEST SUPE RVISOR MOD 15 B4anssaa sy *"FF200000_ CEERCRRERSRRESEE HE REREEREREEEEEE HERERECEREREESEL = EKLLAKSARARAELE SHECKES SCRSEAESE Faete FF200022 
TIOYX"28 BU CMEB/@5D Y/(J  HH3MEPSMSD YXB2Q <0 1-C <HI- B*YVH2D3GJU =NDE4GP9-FF200001 * FF2 = SYSTEM T EST SUPERVISOR. * FF200023 
TKOR* E C3L0 C 5/7 OBO-DHHG7" [H ABXMBB,/ PHEBWO BO + 0 CDIZ GD GL-DACDJ* & 1HBQ |BO*CHSUFF200002 * TO OBTAIN A LOGOUT SET SWIT CH 1 AND 2 TO -B B-. WHEN LOGOUT YS COMLETE, * €F200024 
. ° S © 2 = = . e e ee ee ae e re @ e e e @eeeeeeseseceseae @oevscevocrvrsescseco Seevrveveeunnveved e@oeeeo ceo 
T<E_+ OGK 63 /0, 9€ D#*CODC HS E# 8B} -AL DEC?7U4 -* 4A #4L HO?<0 €@ 41$%+aa <BOYH1O MOD OHNB8FF200003 x REMOVE -BB- FROM SWITCHES. * FF 200025 
i eee 
T<E> -eHOen +03V C71 2UDOH G#5C?< HH -#5C7EH EWE6C7L B LY*#4-D<and aYD _) cHHH < HidFS* LDOEYFLAHFF20000& RERERETLERERAR SE ERAT DAREZAEAEEEE  CRARSARASEATEERE EKERTEEETEERERRE SR RERERERERREES | £8888 FF200026 
ee es - s @ 2 a «¢ s s e es - oa ; eee eco so eo 22eo een se eee @eeeaeteoeoese0o eeese 
TKO>4CE7QA EDEtHG E_L3+A +A"HEDXT = THACOOA €)4 ED +Z21HG 73= CMAC?= °4 #30 HBD- ?H20 | BOQAO# ZFF200005 ENMORETHEX-~DCMPHS eM TMEF] } Cc FZ ASC RA SO Q 182306008730 809T33YYFE200027 
T< PVC DC I~52C €) S.0H*. 1*BGEOX /O?7COH*.G)HACGT = <BABTE*"0C2 £3 B EY*{ ?I1NZeD0a « BEMCAE<FF 200006 | 
T< OO EF BOH*.J/0 ARM AADEHG{ D4eGN AAZBG C <4 €5) RO H(O3ZEDCNGSA 5 -C= (38 0.B<UHAO KB~OQBMZ4FF 200007 : 
i 
T< 1GCDH*A S50HD <UZBGCBP /OO0ZOH* <.*BGCCGB CY*4-D <and CHD<D77"™BAB ACCNS - >114REID (BE MA*QYFF200008 
T.OL7BTEACOOE S », «MBASBG CMACOG 7005 -<vuéO CPO €) 0 CPELED4 CPE ()8BA B4eT2M/GLE POO-DMKZFF200009 ! 
ToE2VCG8A SSOH* <=TMACNUS -5$(EE (P*RG ( S4cps E2VIE C)<BACHT 40 BEXHIAIEJO (BEMAS-HFF200020 : 
r( 3Ece" JOH; £5 6CE# /O2ZSOH*BFLR <CEM™ <BGC.PI53] E6)XPB4CNSD( 6*P S13 e&¢+.09(U GAQ +8--A89DFF200011 
T+ GLOON 5ZR 2)P TLIXROIATECENG P OOLNSECIABD>C SIS DICTECCIOECXESZP TE+SABUCXOQBG 78 A LA-FF200012 i 
e e ee Tae 
TCESICPO(4¢2BGCJ3 J OHELSYEM"S OHe (GCLOLELLIEMCW23 1 HECXDE*4XECLIING NSD>E H*ESIS0 AM | AO<A)/HFF 200013 
@eeeeoeoesoeeoooee @eeeeeaoeoee eee0 eeee0 e @eeee0n eee e ee 
TeEOCZIPTIIXRO(~ TE A $62 "ma CF & B L""OH*AF/< «aP = YESOFF200014 
° as ew e oe -® eo « eo ee : i 
T(=-6 SBCYCOETREAL, JOHCHTHABS/*"0OC 2-315 -D*"OT2-)¢ 5 -w9}0C2U.Q% +: D LO CDUT ON & S<KOE~TUFF200015 
e @ eee00802088600006090098680 eacaeceeeeeeeoee 00 Seeeseeeecnoenene @eeeeeeoenee2oeoeeened e@eo0e ‘. 
TAOTB( HeNaBGCH Ca/*FF200016 | 
e e@eeveee o ee Seo we e e ee a @ , 
T< 82 BACVS = 4¥—BACVS4D-OACUM ¢NAS THE+./ IH EJKD CUCAC N4JO: YC- +D- O.BYVEU< [CEUGSIOFF200017 j 
~ e a e eeeeee8 e =e e086 e e e | 
TUEOSCOVYs E9GCDY 96 T™CH<H"-T®QH® BG GH*BFSG <2/OT /OHE & CM BCUPS -G /06X CM >A0OMA) 2EFF 200018 | 
e e dae ‘or e eo e ons e e aoe hse 
Te sSOH*#BF/D20 T ECEUHGETEOH*BFS. K E€3 /O6NOH®BFUL HC?."SL19B{ YCOET RB(, /JOHETZBG S. © SHESAOFF200019 
eevee « ee ee e ° : ° enw me 
Te-#08 #8G & D MH-E 4°*S$655tL TEXIOS(aLISIEGFA 6*PM5>PECFCBOWA L_XOSOCLI*STETT 8>Q EEOFF200020 a 
i i 7 
DATE OL0CTT3 PROG ID OFF2-0 DATE O1OCT73 PROG 10 OFF2-0 
€C ND. 821490 PAGE 7 .. €C NO. 821490 PAGE TA 
' e ‘ . \ : 
i , j 


en 
t 
x 
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PAGE a o PAGE la 
7 
FF71 OFSK ERROR RECORDING ANALYSIS PROGRAM 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT {ERR LOC OBJECT CODE ADDR STMT SOCURCE STATEMENT ‘ 
1 *$$S$SSSSSSSESSSSESSESSSSSSSSS5SSES5SSSSSSSSSESSSSSSSESSSSSSESSSESSESESSSS 15 @ LAST CHG?08 O8 75 
2 %$ $ ) 16 DECK 4 
3 eg & 17 seaq 0 
& %$ FF7 AND DATA DECK OCF MUST BE AT THE SARE LEVEL. $: 2 Oa00 18 ERAP START X*a00* 
5 2 $ ¢ 19 TREP 
6% $s. 0001 26 xRi eQU i 
7 ¥$$$$SS$$SSSSSESSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSSSSSESESSSESESS 0002 21 XR2 equ) 2 
8 0008 22 ARR eou 8 
9 @¢ TO ADD AN SOR DEVICE: 0080 8 =23 SSw20 ecu X*80¢ 
10 @ 1. ADD TO END OF *SORTABS |g, C010 24 SSW23 FQU Ss X* 108 
11 * 2c GO TO OCF SOURCE, ADD NEW SYNC POINT TO END OF SDR SYNC®S © 0008 25 SSW24 EQU = xx*a8e 
i2 * 3. EC FET, OCF (SQ LEVELS STAY SAME) 0200 26 MODEL equ xX*200° 
132 # 4 ACO TO SOR LIST IN BLOCK 0¢ m 020C 27 SBYTE EQU x*20C8 
. ee) 0216 28 LINK EQU _-X*2216° 
O21A 29 PRINT EQU _xX*21A¢ 
021E 30 UNPACK EQU X*21E* 
3 0222 31 HALT eQuU = _-xX*2228 
022A 32 LOAD EQU  XK*°22a* 
= 0232 33 UDT. eEQU = x*232* 
0880 34 PRTBUF EQU x*880° 
A; 2020 35 DUMP £QU X*2020° 
a Zh SHSCSSS SEAS SEKSESEROVVSVRS SECTION PREFACE SBSSVeSSTSSISSTSSSASCSSSSSVI VES 
} 37 FF SSSSSHSESSESSESESRESASSEES SHAS SESESTS SSS VESSSETSSIST SOSSS IS AVS SESESLIESSSAgaged 
OAOG FFT1 OACL 38 PID DC XL2°*FE71¢ & PROGRAN ID s 
1 is.  Oa02 00 OA02 39 oc xLi°O* * SECTION FLAGS & 
& QAO3 O1 CA03 89 40 oc MiLiewe @ CURRENT ROUTINE ¢ & 
OA04 000C CAO0S) = 41 oc XL270° @ N/A ¢ 
OA0S OA16 OAOT 42 oc ALZ(RTN1} * FIRST ROUTINE % 
OAOS FFFF OA09 = «433 oc XL2*FFFES * ERROR RECORDING % 
OADA C10000 QACC 844% oc XL3°C10000° * DISK * 
-  OA0D £10000 OACF 45 oc XL3*E10000* * 1403 PRINTER s 
~ AP OAOE 46 FLG14 EQU &-2 
4 OA10 890000 OA12 «47 oc XL3'890000* ® DISPLAY ACAPTER SSS ee 
tf OAl1 48 FLGDA £QU #2 
HR, OA13 511000 OA1S 49 051 oc XL3°511000* 
\ SO SESTSSESE SEES EESTI SSERGHASESOSESSSES VS SVSESVSESKS ISIS SSBVERKSSKSSEHSSESSSSKSS 
; CG HS] SSOKCVSESSSSSSESKSS SES IEA HS SESHSSSSRESSSSSOSVESS HEHE SHS HS VIEKSKKSESTAVSTVSACOVSALKOSE 
t we 
i 
i 
i 
i¢ 
| 
iC 
| 
'C 
{ 
1O 
{ 
IC 
| 
| 
\ 
‘oC 
. | ©} é 
} 
DATE 29AUGT5 OTNOV7S PROG ID FFT-1 C pate 29AUG75 O7NOV75 PROG 10 
FFT-1 
EC NO. 827804 827805 PAGE 1 EC NO. 827804 827805 PAGE 1a 





S 





18M MAINTENANCE DIAGNOSTIC PROGRAK 


FFT2 


DISK ERROR RECGROING ANALYSIS PROGRAM 


ERR LOC OBJECT CODE 


OA16 
OAiI? 
OALa 


OALA 
OALE 
OALF 
OA24 
Oa28 
OA2C 
Q&20 
GAZE 
GA30 
OAS4 
OA36 


OAS9 
OAS 
AGS 
OA51 
0856 
O4SE 
OASE 
OAGE 
OATi 
OATS 
Oael 


0488. 


GA8C 
OAS0 


0A94 


GASA 
GADSE 


OAAS 
OAAA 
OABO 
OAB3 
OABT 


OABB 
OAC1 
OACT 
OACD 
OAD3 


OAD? 
oa0dd 
OAE1 
OAES 
OAEA 
OAEE 
OAF2 
OAFS 
OAFS 


DATE 
EC NO. 


61 
00 


OOFO 


CO 87 0218 


43 


OCOCCOFFSO 
3C AB 1346C 


CO 87 G2lk& 


o7 
4F 


OABT 
CO 87 0222 
FFFE 
F2 87 4F 


4004C102C540E2E3 
E2E3C5D44007C1C3 
B240C306D05E3C1Ce 
DSCSOSCT4&O 
C50909060940C905 
CeEedsd9DsC 1LE3C9DS 
O540D9C SC 1C4E846 
DEDS40 
C4DSCIESCS40F 248 
40C 4€ SDTDOCSEZES 
40EZESCLD9E3S 4B 


C2 


co 
co 


oc 


co 
oc 


oc 
OF 
F2 
39 
co 


oc 
oc 
oc 
OF 
co 


oc 
3c 
35 
ic 
3e 
3D 
F2 
30 
F2 


02 


87 
87 


FF 


87 
SF 


ol 
01 
81 
Oo? 
90 


o7 
F? 
FF 
ol 
01 


01 
oo 
Ol 
oo 
oF 
00 
&l 
AQ 
82 


ooo? 


A3k1i 
CEFS 


2622 


OEFG 
24FB 


2513 
2513 
24 

2513 
obos 


2528 
2722 
262A 
2513 
OA8B 


251A 
2523 
251A 
2513 
2513 
2513 
3D 

2513 
G7 


29AUGT5 


827804 


2722 


OB0F 


e595 
2524 


2722 
271a 
2622 
2398 


238F 


oo 


O7NDV7 
827805 


ADOR STMT 


OALG 
OALT 
CA19 


OALE 


OA2Z3 


OA2C 
Oa2d 
GAa2F 


QA35 


0a38 
GAS55 


OA7TO 


OAB7T 


0488 


0488 


OADT 


§ 


53 
54 
55 
5é 
57? 
58 
59 
60 
6} 
62 
&3 
64 
65 
6é 
67 
66 
69 
7 
Vi 
72 
73 
74 
t4& 
Té& 
74 
% 
i) 
TS 
75 
76 
76 
7 
7 
7& 
79 
60 
62 
62 
83 
84 
&5 
86 
87? 
88 
Bg 
90 
91 


SOURCE STATERENT 


SRESSSESGKLAASERSSESRSSKSABSE ROUTINE | 


PART NOo 42482413. 
PAGE 2) 


CSELALASRERSRAEESHLETLSSSESSESSED 


KKERREKSSSERLAECSSSEVEBSE SLRHKSSE SESE SERS THLE SECS SLLVRKSSEAGHES ST VARLAVSESESTLR 


& 
RTK1 oc 


pc 


oc 


* 


& * 

ELE LE ¢ ROUTINE 6 * 
XLL°Ge % FLAG . 
AL2(RTN24 * NEXY ROUTINE =. 
*% x: 


EEKRSLERRECSSERERARESRS SSKASARSE SESE REL AAKTRESKASERFESRLSESTCSLH SE SEREEBLSESTEEDe 
KLEKARSESKKKECAASK ESSE RRVSKLSFSSKESSKS SGA SSKSSEKERKSSLSESSSTHEKSE CLAS SEKSERKH SESS 


8 
oc 
oc 
MVE 
8 
oC 
BC 
oc 
& 
oc 
J 
EQU 
oC 


OSKH32 


oc 


DOSKE33 


MODELG 


ONE 


aH ae 


AVC 


* 


RVC 


MVC 
Sic 
Jz 
TBF 
BF 
RTN1LOZ RVC 
MYC 
MVC 
Stic 
BNZ 
s 
RINLOS EQU 
RVC 
SVI 
RTN1O4 L 
MVC 
S8F 
cil 
JE 
cil 
Jt 


PRINT 

XLit 436 
XLS*FFOC® 
OSKDRV ,X*AB 
PRINT PRINT : 
KL1L°O7! MESSAGE 
AL1(DSKM33-DSKH32) TO : 
AL 2¢(DSKM33} LOAD 
HALT ORIVE 2 
XL2*& FEFF ® THEN START ‘ 
DSKM33e1 JUMP DCTS ; 
Raw F ' 
CL2S° MAKE SYSTEM PATK CONTAINING * 


PRINT SSH 


CL27*ERROR INFGRMATION READY ON * 


CL23*DRIVE 2. DEPRESS START.° 

* 
be XR2 SYRC PT 2 
&-} : 
SYNNOV 

SCAN 


PRINT HEADERS OF OBR TABLE 
SET UP COLUMN TABS 
READ FIRST HALF OF OBR IN DBUF | 
TURN OFF SFLG 
MOVE FIRST HALE 
READ SECCND HALF INTO DBUF 


DBUF~1(256!) ,DBUFE255 


SCAN 
PBUF+95{(96)ePRTBUF495 SAVE PRIBUF 
ROTATE TABLE COWN UNTIL LAST ENTRY IS AT BOTTOM 


TEMP, OBR) PLACE X*OlFF' IN TEMP 

TEMP ,DBUFt+1~256 COMPUTE SHIFT COUNT 

RTN103 TEMP CONTAIN THE # OF BYTE TO. 
TEMP .X*O7? i 
ERMSG 


SHIFT DOWN. 


{ 
DBUF4+7-256(8),OBUF#255 SHIFT OBR TABLE DOWwM 2 ENTRY | 
DBUF+255(256-8), DBUF 4255-8 (EIGHT BYTES- ONE ENTRY? | 
DBUF+7( 256} »OBUF-2 
TEMP, EIGHT 
RTN1O2 


© WORK FROM BOTTOM UP TO FIND OLDEST ENTRY 
OBRNT| (2) ,OBRNDS 


DBUF~256.0 
OBRNTS, XR1i 
TEMPE (13 .00,2R2) 
TEMP oX* OF * 
TEMP, X*008 
RT™N166 FOUND STR OF TABLE 
TEMP .X*A0* CHECK FOR DISK ENTRY . 
LABEL 
‘PROG 10 
PAGE 2 


& 





€: 
IBM MAINTENAMCE OIFAGNOSTIC PROGRAM PARE NO. 4248261 
co PAGE 2a 
FE7L DISK ERROR RECORDING ANALYSIS PROGRAM 
A ERR LOC CBSECT CODE ADOR STMT SGURCE STATEMENT 
ss PAFC 3D DO 2523 2113 CLI TEMP,X*DO® 
. OB0O F2 G4 14 114 UNH RTNLOS 
0803 3C Ce 23A0 115 LABEL MY¥I <OB8RTYP.6 NOT OISK ENTRY 
“e OB07 CE O7 2522 2522 116 ALC €ENTADO,ENTACD 
: Of0D OF O01 251A 23AD L17 RTN109 SLC SOBRNTAa,OBRTY? 
0813 CO 8 GAEL Lis 8 RTHLOS 
pe OB17 219 RTNIOS EQU *& 
- 0817 OC O1 2514 2380 120 CLC OBRNTAa-OBRST2 CHECK FOR HALE ERTRY 
OBID F2 82 12 121 Jf HALENT 
0820 3C 16 23Aa0 122 MVI OBERT YP 516 SISK ENTRY 
08624 CE 67 2522 2522 123 ALC ERTADD-ERTADD 
OBZ2A 3A OL 2522 12% SBN  ERTADDe2 
OB2E CO B87 OBOD 125 & RTNLOS 
Cr 0832 126 HALFNT EQU * 
0832 227 RTN106 EQU ¢& 
0832 0& O1 251A 23aD 128 ALC OBRNTS,OBRTYP 
We 129 * OBRNI2 NOK CONTAIN THE ADDRESS 6 SYTES 
130 ¢ GE OLOEST ENTRY 
ae 08328 OD 01 251A 238F 131 CLC OB8RNTS,daRNDda 
‘ CB3E CO 84 OD10 432 5H EXPTY CHECK FOR EMPTY TABLE 
133 * COMPUTE ADDRESS IH BRIBE 
- 0B42 Of G1 OCOS 2397 134 MVC BYTES, ENTAODS 
$ OB48 3C 01 OCD3 135 MY1 MASK. X*O2® 
GB4C 136 RTN1IOE EQU *# 
ue OBSC GC SF OSDF 24F8 437 HVC PRT SUF 495196} - PBUF SSS 
. 0852 OC O01 2513 23A1 4138 RYO TEMP,ZERO TO BRANCH OF 
0858 35 O1 251A 133 L OBRNTS,XR1 
es OB5C 18 O62 2513 00 140 MNZ TEMP,O(exXRE? 
L O86 OE OY 2513 25:3 141 ALC TEMP, TERP 
O867 C2 92 ODSS 142 LA BRTBL-2¢XR2 
ie O668 36 02 2513 £43 A TEMP ARE 
‘— OBSF 85 02 00 144 i Of -XR2} oXR2 a; 
OB72 34 02 0889 145 ST BRa+3,XRZ 
146 ¢ MOVE OEVICE & INTO HISTORY TEALE 
€ — opze o& 01 2513 2513 147 ALC TERP,TEMP 
OB7C C2 02 0D83 148 LA OVTSL—1,XR2 
r OBBO 36 62 2513 1465 & TEMP ,XR2 
‘ 0884 78 8&9 00 150 YBN Of ,XR23,x°S9* CHECK FOR DA ENTRY 
OBST F2 90 04 251 JF a47 nO 
o OB8A C2 02 ODD4E 152 L&é DACON,XR2 YES 
& OB8E 2C 03 G88S CO 153 MVC = PRTBUF45 (43,00 eER2? 
0893 3C 01 2388 154 HVI  TASBIOXol 
o O89? 34 01 2387 155 ST CNTOFS,XRE COMPUTE COUNT OFFSET 
. OB96 GF O1 236? 1354 156 SLC CNTOFS,DBUFa COULD SE NEGATIVE 
157 # «SAVE OeReSNSSYTES O02 
-.  OBAL 1C 03 24FC 03 158 MVC ORSNS€3(4)53E oXR2? 
i OBA6 CO 87 1273 159 8 HEXHEX G BYTE 
OBAA CO 87 1273 160 B HE XHEX R BYTE 
r CBAE CO 87 12AF 161 8 CVTBIN SENSE BYTE O 
.. OBB2 CO B87 L2AF 162 6 CVTSI SENSE BYTE 2 
O8B6 CO 87 C000 163 BRA 5 os 
o 164 
164 
164 
164 
& OBBA 165 Q80 EQU 2 BSCA 
CBBA 3A 20 0190 166 SBN OVFLG—-2.X"20° 
-. O8BE CO 87 1273 167 8 HE XHE X CCRPLETION CODE | 
CoosC2 3c 02 2388 168 MVI - TABIDXe2 BACKUP | 
169 © AND 
.  §8C6 C2 02 2623 170 La DBUF »XR2 RECONVERT 
C OSCA 36 02 2387 171 A CNTOFS eXR2 BYTE 2 (RETRY COUNT? 
OBCE 8C 00 00 24FA 172 MVC Of1eXRZFSQRSHS4E 10 
: 06803 CO 87 11C2 173 8 HEXDEC DECIMAL 
C.  Bo? Co 87 CCA2 174 B RINLO7 
. 175 # 
O8DB 176 010 FQU 8 
Cognos 3a 80 ops0 “4397 SBN DVFLG-2.X*80° 5471 — CONSOLE-KEYSOARD 
C pate 29AUG75 OTHOV7S PROG 10 FFI} 
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TB" MAINTENANCE DIAGNOSTIC PROGRAM —. NO. ee | IBM MAINTENANCE DIAGNOSTIC PROGRAM cance ‘WO. seereee 
| & 
FFT DISK ERRGR RECORDING ANALYSIS PROGRAM | FFT71 DISK ERROR RECORDING ANALYSIS PROGRAM 
2 f . ‘3 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT | s. ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT : 
OBDF 35 01 238F 178 t pennoeexna, CHECK Q FOR PRINTER Ie are 2 eset 251A as ae oe CHECK FOR END 
{ 4F9 i79 ; 
Beet re 3 Sea 180 SF RT™N107 | OCBF OF 00 0CD3 OCD3 248 ALC MASK » MASK 
0 87 1273 181 8 HEXHEX : OCCS F2 01 OA 249 JINZ TBN 
Geer eS 87 OCA2 182 8 RTN107 | ‘ OCC8 OF 01 OCDS OASB 250 SLC BYTE »ONE 
OBF3 133 Q50 EQU 2 1442 | OCCE 3C 01 OCD3 251 MVI MASK »X*018 
5 . #40? a. oco3 52 MASK EQU ++) 
Oar? co 87 ocaz 18s " auion ” re 0CO2 38 00 000G os3 TBN TSN «= #-#, 4-2 
186 | ocoée . OCD5 254 BYTEa oS OaL2 
i OBFB 187 GEO EQU * 5203 he OCD6 F2 90 66 255 JF RTN1IX 
. OBFB 3A 04 OD90 168 SBN DVFLG-1,X*04? re OCO9 OE O01 251A 2398 256 ALC OBRNTa, EIGHT 
OBFF 38 20 OA0E 189 TBN = FLG14,X"208 TEST FOR 31403 ATTACHED | OCDF CO 87 084C 257 RTN11X 8B RTN108 
O0COS F2 90 O08. 190 JF P1403 | OCE3 C509D906D940C8C9 OD00 258 MSGX oc CL3O*ERROR HISTORY TABLE IS INVALID® 
OCO6 3C Fl 0882 191 MVS PRIBUF42,C*1° OCEB E2E3D6D9E840E3C1 258 
: OCOA 3C F4& 0883 192 MYVI PRIBUF43,C'4Qt | OCF3 C2D3C540C9E240C9 258 
OCCE 38 04 24FB 193 F1403 TEN QRSNS4+2.X*04? CHECK FOR HAMMER ECHO CHECK | OCFB D5E5C103C9C4 258 
0C12 CO 90 OCA2 194 BF RT™N107 0001 40C4C140 0004 259 DACON OC Cie* DA ¢ 
OC16 OF 01 2387 OAsS 195 ALC CNTOFS,GNE LOOK AT LOW BYTE GF LOPAR i 0005 260 Q20 EQU) ts 
OCciIc C2 02 2623 196 LA OBUF , XR2 CONVERT LDPAR TO A DECIMAL | 0005 261 Q30 EQu * 
OC20 36 02 2387 197 , A CNTOFS.XR2 HAPMER # ; & 0005 262 Q40 EQU * 
0C24 BD 7C 00 198 CLE = OL» XR2V9X*7C* | OD05 263 060 EQU ss 
: 0C27 F2 82 65 199 Jt INVALO | e ODOS 264 Q70 EQU * 
\ OC2A 38 20 GAGE 200 TBN FLG614,X*20° TEST FOR 1403 ATTACHED OD05 265 Q90 EQU * 
OC2E F2 10 39 201 JT PT1403 OD05 266 QA0 EQU * 
‘ 0C31 8F 00 00 238C 202 SLC 0(.XR2),1123 | & OD0S 267 OBO . EQU * 
! 0C36 BD 18 00 203 cul ag toes oe ao aH : 
O0C39 F2 84 22 204 JH 21 
i OC3€ BD 10 oO 205 CLI Mee ee c. Sues pes 87 O21A aes : ERNSG ae erat ns 
5 OC3F F2 84 14 206 JH 07 A 
0C42 8D OC oo 207 CLI Gy XR2IDQ12 | ona iE oD0A 272 o¢ oe 
OC45 F2 84 06 208 JR A119 | gu, On 2 A 
a OC46 BD 05 00 209 cul 0 .XR2),45 | c OD0D F2 87 IF 274 J RTNMLXX 
| 0C4e~FF 02 08 mine Saag te ia. Alb? | S016” 255 EMEYY equ * 
OC4E BE 00 00 23B8E 212 ALLO ALC Of ,XR2),1119 , & 0D10 C2 02 0003 277 LA 3eXR2 SYNC PT 3 
i 0C53 F2 87 OD 213 J BIVBY4 0D14 3A 10 OFFS 278 S8N SCNFLG,SFLG 
' 0€56 8E 00 OO 238D 214 A107 ALC See ¢ 0018 CO 87 OEFS 279 8 oe ae 
, OCSB F2 87 O5 215 J IVBY4 fa OD1C C2 02 0004 280 RTNLX LA 4oXR2 SYN T 4 
OCSE BF 00 00 2300 286 §21 Sie 90 -XR2),122 OD20 3A 10 OEFS 281 SBN SCNFLG,SFLG 
t CC6é3 €O &7 3199 217 Divey4 8 RSHIFT | G 0026 CO 87 OCEF6 282 8 SCAN ges ‘ Fak 
: OC67 F2 87 1£ 218 J BOTH ; ‘ 283 * END NT OUI GF OBR TB 
{ OCGA 219 PT1403 EQU * 284 + CHECK SSW20 TO RE-INITIALIZE OBR TEL 
; OC6A F2 81 OF 220 JE Adds yet. OD28 39 80 020C 285 TE SBYTE4,SSu20 
i OC6D 8D 7E 00 221 cul Ol oXR2) 2X" 7E* c > OD2C F2 90 2E 286 JF RTN1X1 
i OC70 F2 84 KO 222 . JH $UBi26 OO2F 287 RTNIXX EQU * 
, OC73 BE 00 GO OCe9 223 ALC 0(1XR2) 415 ADD 5 go OD2F 3X 00 2722 268 MV DBUF+255,xX*00* 
i OC78 F2 87 OD 224 J SOTH Hm 0033 OC FE 2721 2722 289 MVC DBUF +254 (255) , OBUF4¢255 
OC7B BE 00 60 2398 225 adds ALC 0(1,.XR2) ,EIGHT ane CO 87 1333 iin Sac eS SLitoe ‘ 
: OC8O F2 87 O65 - 226 J 8OTH -. OoD3D 02 oD3 91 XL1*o2¢ WRITE 
0€83 8F 00 OO 238F 227 $8126 SLC O01,XR2)351126 Co OD3SE 3C 1C 134F 292 ioe Sears 
: 228 0D42 OC 03 2626 0D95 293 MV DBUF+3(4) ,OBR1 
i OC88 CO 387 11C2. 229 @OTH 8 HEXDEC ; on 0D48 CO 87 1333 294 8 DISKIO 
OCceC F2 87 13 230 J RT™N107 i wy OD4€C 02 GD4C 295 OC XL1*o2¢ WRITE 
OCaF 23% HWVALD EQU t ; 296 SSSSSSSTERSSEESES EOD DSSS SESE EESONSEEEEEREESSERSONESESECOECS 
OCBF CO 87 L2F4 232 8 PRTPOS ; 297 * IF 3340 ATTACHED, REMIND CE THAT OBR,SOR PRINTED LATER *# 
ce “C 06 00 2307 233 vc O17 eXR1), INV INVALID HAMMER @ & 298 SORSRLSEHARESESES SES SESSONSSO499090990080000900000008000800808 
ocsé F2 87 07 234 J RINLOT ‘ 299 
235 1 ge, 0040 CO 87 0214 300 RTN334 B PRINT ; PRINT -——— 3340 --- 
698 236 OFC fou + 5426 | © ps1 2 0051 301 DC XL. "028 
0€98 34 08 ODS0 237 See OVFLG~1,X"*08* i OD52 14 OD52 302 pc AL 1(MSG3-—NSG638) 
OCSF F2 87 OD 238. J RTN1LOT ; Ss 0853 13A2 GD54 303 DC AL2(MSG3) 
239 1 304 
SCA2 240 atN107 EQU s ODS5 CO 87 021A 305 8 PRINT PRINT 3340 DONE IN LATER ROUTINE 
OCA2 CO 87 O21a 241 : 8 PRINT PRINT CINE OD59 06 QD59 306 oC XL1'06* 
OCA6 21 COAG 242 oc *L1°21° G ODSA 50 OD5A 307 DC AL1(MSG4—MNSG4B) 
OCA7 OD 01 238F 2514 243 cic GBRNDS,OBRNTA CHECK FOR END O0D58 13F2 OD5C 308 oc AL2(4S64) 
OCAD F2 €1 6C 244 JE RINIX i OD50 309 RTNLX1 EQU + 
OCBO OF 01 251a 2398 245 AL OBRNTa 2EIGHT | © 310 * PRINT OUT MEANINGS OF ENTRIES THAT WERE IN OBR TBL 
| | | 
DATE 29AUGTS OFNONTS PROG ID FFT): pate 29AUG75 - OTNOV7TS PROG ID FFT—1 
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18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4268241; La MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4246241 
PAGE PAGE 
FFT DISK ERROR RECORDING ANALYSIS PROGRAM FF71 DISK ERROR RECORDING ANALYSIS PROGRAM 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT & €RR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ’ 
OD5D OC O1 23AF 2384 311 MVC - SYNC # FIVE SYNC PT 5 Cn 323 * OBR DEVICE FLAGS 
0063 3C 10 2514 312 MYT CNT,16 «DSO BODO 0091 32% DVFLG DC XL2°08 
O0D67 CE 61 0092 OD91 313 RTNiLL ALC OVFLG eDVFLG OD92 GLEFOLFF 6095 325 OBR1 OC XL4*OLFFOLFFS 
Op6D F2 20 oC 314 JNCL RTN112 : 326 ® DEVICE BIT SYTE SYNC PT 
COTO 35 02 23AF 315 L SYNCH» XR2 & 327 * 5472 0 h 5 
OD74 3A 10 OEFS 316 SBN  SCNFLGeSFLG 328 * 1442 i i 6 
OD78 CO 87 OEF6 317 8 SCAN 329 % BSCA 2 1 7 
OD7C OE O1 23AF UABB 318 RTN112 ALC SYNC#,ONE & 330 * . 3 1 8 
OD82 OF 00 2514 OABB 319 SLC CNT,ONE 331 4 5424 4 i 3 
ODBB CO O01 OD67 320 BNZ RTR11L 332 % 5203/1403 5 1 10 
opse CO 87 0216 321 8 LINK END ROUTINE 1 € 333 & é i il 
I 334 * 7 1 12 
| é 335 * 8 2 13 
336 % 9 2 14 
| 337 * 10 2 15 
io 338 * 11 2 16 
c= @D96 ~OBDB OD97 339 BRTBL oC AL2(Q10} 5471s KEYBOARD 
j 0098 0005 GD99 340 pc —- AL2(.Q20) N/A 
[= oD9A ODDS oD98 «341 «oc AL2(030} N/A 
Poe ODSC 0005 OD9D 342 DC AL2(Q40) Nsa 
} OD9E OBF3 OD9F 343 DC AL2(Q50) 1442 
| ~.  ODAO opo5 ODAl 344 DC AL2(Q60) N/A 
i ODA2 OD0S ODA3 345 DC AL2(Q70) NSA 
| ODAS GBBA ODAS 346 oC AL2(Q80) BSCA 
|, O0DA6 ODOS ODAT 347 DC &L2090? N/A 
| SODAS OD0S ODAS 348 pC = AL 21 QAO) N/A 
} ODAA ODOS ODAB 349 DC AL2(080) N/A 
|p. ODAC OD05 ODAD 350 DC AL2(QCO) N/A 
A. ODAE OD05 UDAF 353 DC AL2(QD0) N/A 
| ODBO OBFB ODBi 352 Dc AL2(QE0) 5203/1403 
| «, ODB2 OC58 0083 353 oC AL2( 360) $424 
Sa? ODB4 354 OVTBL EQU ot ata aati 
ODB4 FS5F4F7F1 GDB? 355 DC CL4*S471° 5471 
| ~,  ODBS 40404040 o0B8 356 oC cL4t ‘ N/A 
|G O0DB8 357 BLANK EQU0 1 
i GCDBC 40464040 ODBF 358 DC CL4? * MTA 
| 2. ODCO 40404040 o0c3 359 pc OCC ' N/A 
&* ODC4 FLFSF4F2 ODCT 360 oC CL4*2442° 1442 
| ODCH 40404040 ODCB 361 DC CL4* ‘ N/A 
Le ODCC 40404040 ODCF 362 pc CL4? e N/A 
pS oppo C2E2C3C1 CDD3 363 oc CL4*BSCAS ‘SSCA 
ODDS 40404040 ODD7 364 oC CL4* ® WsA 
i ODDS 40404040 DDS 365 pc cL4t ‘ N/A 
1k. ODDC 40404040 ODDF 366 DC CL4° 6 wea 
| ODEO 40404040 ODE3 367 oC cla? ‘ RIA 
| c ODES 40404040 QDE7 368 pcoOti«éCL ' NIA 
{ & ODES FSFZFOr3 ODER 369 DC CL4*5203° 5203 
ODEC FSF4F2F4 ODEF 370 pc CL4*5424! 5424 
@ 
| 
ie 
i 
| © 
| @ 
| 
i 
| 
|e 
| 
: | @ 
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iaG € PART NO. 4248241 IBM MAINTENANCE DIAGNOSTIC PROGRAK PART NOe 4248243 
IBM MAINTENANCE DIAGNOSTIC PROGRAR pace PAGE 5A 
FETL DISK ERROR RECORDING ANALYSIS PROGRAM FF72 DESK ERROR RECORDING ANALYSIS PROGRAK 
ERR LOC GRYECT COCE ADDR STHT SQURCE STATEMERT ERR LOC OBJECT CODE ADDR STHT SQURCE STATEMENT 
a72 SREIKSRARSESRESSSRLSESTO SWS ROUTINE 2 RELPSRAKRSRAHSRSSSE SASHRSESSSRSESSSESHESE : CEG2 TCG BT SEFS 40 a STAN 
273 SRKSKARSRCERSKAARASSSISRES LE SSEGSAASE KY SAAS ASSESS SSELSPSESKSSSSTSESEVSHSSSSLBS ; GEB6 3C Gi 23288 &&} BYE TASIOR,23 
374 @ * e OEBA OF 00 23a2 OE26 &&2 SiC = CC NT THO CHECK FOR LAST LINE 
ODFO 02 ODFGO 375 RENZ oc KLLE2" ROUTINE € . OECO 30 16 23A2 443 Cll CCNT,48~26 
OneL 00 ODF1 376 oc XL1°O8 # FLAG & OFC% CO OL OF98 by BNE SORBS 
O5F2 1770 ODF3 377 De AL2(S8RTH3} * HEAT ROUTINE &. CECB 445 SORS EQU & 
378 % 8 OECS 39 80 O20C 446 TBF S6YTES,$S$¥20 
378 SSABELARERSSEREKASES ERRATEARSKE SKSS SEKSEKSRKLK SIH SS SS SS EESLSS SESE SES -SSRB- SECC FF 90 O05 647 Jt SOR] 
380 HRRSAEAKACSSRATSGKRMVSE SKS VRACSCKLS SSPRSSSLESSKSKTSERKSESRSPFSRRHALSRSSKS HBSS SVRLSSSSR OfCFE CO 87 1333 4&8 8 C1SKIG 
CDF4 CO 87 O21A 383 8 PRINT PRINT SSbi : £03 02 CED3 449 oc KL1°02° WRITE 
ODFB 41 ODF& 3&2 oc XLiteie : OEDS OF O01 23AF OABB 450 SORL ALC  SYNC#,ONE 
ODFS OOOD0OFFCO ODFD 383 DC XLS °FFOO® CEDA OF 01 2518 OA8B 451 ALC  SDRIDX,ONE 
ODFE 38 20 OAGE 386 TBR FLG14,x'20° 1403 ATTACHED? : OEEO OF CO 2514 OASB 452 SLC CNT, ONE 
OED2 F2 90 0% 385 JF 27 NG DEES CO 01 OF38 453 BXZ  SOR6 
OE0S 3C £1 OEFO 386 MVE El,X*E1* YES OEEA CO 6? 0216 454% 8 LINK 
OF09 39 20 0A14 387 TBF 051-12X°268 51 PRESENT? im 455 
OEOD F2 10 04 388 Jv 47 NO : 455 
GOE10 3C 51 OEEF 389 HVT _DD519X*52° YES &55 
O£14 38 20 OAL 390 TBH FLGDA,x*20° DA ATTACHED? a OEEE 456 SDRTBL EQU 2 SYNC 8 
CE18 F2 90 04 391 JF ae? NG . GEEE 10 GEEE 457 pc XLLP 108 5472 
OEi8 3C 89 OFFS 392 HVE DABS, X*S9* YES OEEF 51 OEEF 458 DDS5i DC ALLS51° 1442 
OELF 3C AB 134C 393 MVI OSKDRY,X*A8e ; OEFO EO CEFS 459 £1 oC XLL°EO* 520371463 
0€23 C2 02 0002 394 LA 2eXR2 : OEFI FO CEF1 450 oc KLiseoe 5424 
OE26 395 THO equ #2 CEF2 80 OEF2 461 cc XL1*808 BSCA 
0€27 CO 87 1312 396 8 SYNMOV SYNC PT £2 Z BEES 88 -  GEF3) «6462 BABO DC KLi'se* 8SCA 2708 
0£2B 397 SORNXT EQU = = OEFS 40 OCEF4 463 pe XL1° 408 3742 
OF28 3C 07 2514 398 MVI CNT,SORLEN-SORTBL NUMBER GF DEVICES IN SOR TABLE 464 
OE2F 3C 03 23AF 399 BVI «= SYNC E23 OEFS 465 SORLEN EQU 4 THIS EQU HUST AT END OF SORTAB 
E33 C2 02 OEEE 400 LA SORTBL »XR2 . & 466 
CE37 34 02 2518 601 87 SDRIOX oXR2 467 ¢ END ROUTINE 2 
OE3B 35 01 2518 402 SOR6 b SORIDX ¢XR1 
oe OE3F C2 02 0232 403 LAs UDT » XR Cc eee ass 
0£F43 6D OO 00 00 404 SDR2 CLE GL 1g MRLD 00 e RRP? SEARCH DT FOR CODE | 
O47 F2 81 OD 405 JE SOREND — 
OE4A BB 10 O1 406 TBM =-1.0 e KR2DeX*ROF CHECK FOR END CS 
OEAD F2 10 84 407 JT SOR1 
O£50 E2 02 03 408 LA 3 eXR2} oXR2 
E53 CO 87 0£43 409 8 SDR2 CS 
410 © 
OE57 411 SDRFND eEQU *# is 
OE57 35 02 23AF 412 t SYNCH XR2 © 
OE58 3A 10 OEFS 413 SBN SCNFLG»SFLG 
OESF CO 87 OEFE 414 8 SCAN 
0£63 38 02 OEFS 415 S8F = SCNFLG,BSFLG © 
O£67 35 O1 2518 416 L SDRIDXyXRL 
OE6B 7D 80 00 417 CLI 00 a XR1D»X" BO" CHECK FOR BSCA 
OE6E F2 81 26 418 JE SDRBSC '@ 
OE71 7D 886 00 419 CLE O(,XR1),X?88* 
O£74 F2 81 20 420 JE SDRBSC 
0E77 7D 89 00 421 CLI Ol pXR192X*89* CHECK FOR DA '¢ 
OETA F2 81 1A 422 JE SORBSC 
OE70 423 SORS equ * 
O£7D CO 87 11C2 424 SOR3 B HEXDEC © 
O€81 OF 00 2428 OASB 425 SLC TABTBL(1),0NE 
0€87 CO 01 OET7D 426 8NZ SDR3 i. 
OE88 CO 87 O21A 427 8 PRINT ie & 
OEeF 21 OFSF 428 DC xLie2.9 
0£90 CO 87 OEFS 429 8 SCAN ip 
O£94 F2 87 31 430 J SDR4 G 
431 8 
QE97 432 SDRBSC EQU * 
OE97 3C 30 23a2 433 MYT «CCNT» 48 Cc 
O£98 CO 87 11C2 434 SORBS 8 HEXDEC 
OE9F 3C 02 2389 435 MVI- CNTLNG22 
OEA3 OE 01 2387 2302 436 ALC CNTGFS.CCNT , 9 
OEAS CO B7 11C2 437 8 HEXDEC 
OEAD CO 87 021A 438 B PRINT 
O£B1 21 0&81 439 oc xL¢22¢ G 
DATE Z29AUGTS O7NOVTS PROG ID eev—1 © pate 294UG75 O7NOV7S PROG 10 FFT~1 
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1BM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248241 | IBM RAINTERANCE DEAGNOSTIC SROGRAR PART MQ. 4248261 
PACE . 6 | ey PAGE oA 
FF71 DISK ERROR RECORDING ANALYSIS PROGRAM | FET1L DISK ERROR RECORDING ANALYSIS PROGRAM 
1 on, 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | \. ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
469 qgeaanatsecetessesteseteeteneseesenetseseeeesneetSsOSeSEFEsees sea sseeees Q. OFSBE 35 02 2802 $35 . CSTRGeRR2 
&70 * SCAN * oA, GF92 BD DO 60 53€ NXT2 CLE O€ -XR2},X*OO* 
SIL Seeesset S OF95 F2 81 83 §37 JE “S6 
672 @ CONTROL CHAR | OF98 BD 4C 00 538 CLE Of eXR29—T*<* 
473 3 { PRINT LINE 2-BLANKS pEXCM-ASTERISK e OFOS F2 B81 <C 535 JE OSK 
74 * < DISK INF. © OFSE BD 4A 00 540 CLE O€ eXR2P0C*® * 
&75 @ CENT COUNTER INF e OFAL £2 81 63 541 JE CNTR 
476 # > TAB INF. e& OFA BDO 6E 00 542 CLE Gf oXR29eC°>* 
&77 * z RETURN * OFA? F2 81 28 543 JE TAS 
&78 % + LINE SPACE Foe OFAA BD 6C 00 544 CLI Of yXR2P-C PSS 
47S cenaeeetattGeeSSeeshEsEStSEGEEheStSSELLEETERELS SE SELES ES FOOSE SEI SE SESS qe OFAD F2 BL 24 545 JE RETURN 
CEES 80 OFFS 480 SCNFLG OC xL1'808 : GFBO BD £E 00 546 CLI Ol oXR2HeT8+® 
&B1 # eBITe *MEANING ei - OFB3 F2 81 47 547 JE LINE 
0080 £82 FFLS equ = x*so* oO FIRST FLAG 2 OFBS D2 OL OL 548 LA LG gXRLP ARR uP PBUF ADDRe 
483 * EQU = KX" 40" 1 CEBe 6C CO OO 00 549 MYC «- OL gp XRLB Ol eXR2I MOVE CHAR 
0020 484 NFLG equ x'20* 2 NON-STANDARD PACK co OFBD E2 02 O1 550 La 1(eXRZP_XRZ UP PTR TO DATA CARD CHARS 
6016 485 SFLG equ x*10° 3 SYNC FLAG J Se" GFCO CC 8&7 OFTS 551 8 NXT 
oces 486 ZFLG EQU ss xx* OB & ZERS FLAG 552 ~ 
0004 487 UFLG EQU K*O4* § USED FLAG ry OFCS S53 RETURN EQU * 
00G2 488 BSFLG equ = x*d2° 6 PRINTER FOR SOR TABLES <= OFC4& CE O2 2502 OASS 554 ALC CSTPS,ORE UP PTR TO DATA CARS CHAR. 
489 © EQuU x*olt ? | OFCA 38 10 OEFS §55 SBF  SCNFLGsSFLG TURN OFF SYNC FLAG 
GEF6 490 SCAN eOU ? OFCE CO 87 0005 556 8 we sCae EXIT 
OEF6 34 08 OFDL 491 ST SCNEXT ARR | ie OFD1 557 SCNEXT ECU =f 
OEFA C2 01 232 492 LA SYNTBL~6eXR1 ' 5568 
CEFE 36 O1 23A6 493 SCL A SixeXRI 1m CFD2 $59 TAS ecu st 
CFOZ 26 O02 23AA 434 A FEFF gXR2 |<" oFD2 CO 87 1160 560 8 PACK 
CFOs CO 01 OEFE &95 @anz sci 1 OFD6 OC 10 2438 2449 S61 MVC TABTBL416(173 » PBUFS16 
GEOA 38 10 OEFS 496 TBN SCNFLGsSFLG TEST SYNC FLAG ON MS soe OFDC 3C O01 23868 562 - MVI TABIOXs? 
OFCE F2 92 60 497 JF SC3 ms GFEO OF 01 2562 O&88 $63 INC ALC CSTYRa, ORE 
OF11 38 80 OEFS 498 7TBN SCNFLG.FFLG ; OFES CO G7 OFT 564 B NEXT 
OF1S F2 10 08 495 JT $c2 mm 565 
Print ae, OF1B 10 03 2498 03 500 SYN1 CLC CRONMB (4) 23% eXRL} | &2 OFER 566 CSK equ ¢ eae 
OFID F2 81 OB §02 JE SYN2 OFEA CO 87 LL6D 567 a PACK 
OF20 F2 84 20 §02 JH RELGAD I OFEE CC 00 134F 2499 568 HVC DSKSEC(1) -P BUF 
OF23 503 SC2 ecu +¢ jae OFF CO 87 1333 569 6 DISKIG 
OF23 CO 8&7 10A9 504 B READ OFFS O2 OFFER 570 pe XL1°OL® REAC 
OF27 CO 87 OF18 505 B SYN DS a OFFS CO 87 GFED 571 5 INC 
OF2B8 £8 01 05 04 506 SYN2 MZN 5S€_XRL3e4(eXR1} © $72 
OF2F 1C OO 2381 OS S07 MVC H26€13.25¢9XR1} BRING OFFSET TOGETHER | CFFD $73 LINE equ) * ‘ 
OF36 35 02 2361 508 L H24eXR2 fo OFFD 08 03 107D 2499 574 MNN || OUSPCNT./P8UF 
OF38 36 02 2391 509 A CBUFAe XR2 Dae 1003 CO 87 OFEO ; §15 8 INC 
OF3C 34 02 2502 $10 ST CSTRGeXRZ SET UP COLUMN START ADDRESS 1007 576 CNTR equ + 
OF40 F2 B87 2E 511 J NEXT os 1097 CO 87 1160 577 8 PACK 
OF43 512 RELOAD EQU * bs 1008 OC 00 2387 2499 578 MVC CNTOFS(1),PSUF SET CNTOFS 
0F43 3D Cl 0232 513 CLI X*232*,x*C1* TEST FOR OISK DCP ; 1012 OC 00 2389 249A 579 MYC  CNTLNG(13,P8UF42 SET CNTLNG | 
OF47 F2 81 OE 514 JE SC4 i es 1017 CO 87 GFEO 580 8 INC | 
OF4a CO &7 021A 515 8 PRINT { Ca . 581 
OFSE 87 OF4E 516 pc XL1°87° | 1018 582 MSG equ) * 
OF4F 11 OF4F 517 oc TL1°1T* — 1018 C2 01 o88e0 583 LA PRTBUF sXRI 
OFSO0 OFTO OFSi 518 pc ALZ¢ERLOMSG) if. LOLE 7 40 SF 584 MVI 950 —eXR192C*® * 
GF52 CO B87 0222 519 8 HALT | 1022 5C SE SE SF 585 HVC - 94.959 XR1) OSC ORALLY 
OF56 OOEA OFS57 520 pc XL2*OOEA* RELOAD DATA CARDS — 1026 C2 02 2499 586 LA PBUF eXR2 
of58 521 SC4& equ | i 102A 587 HSG2 equ * 
OFS6 3A 80 OEFS 522 SBN SCNFLG.FFLG | 1024 8D 6F CO. 588 cil O01 ,XR2P-C*?° 
OFSC CO 87 OF23  -§23 8 sc2 7; 1020 F2 81 68 589 JE SPACE 
OF60 DICSD3D6C1C440C4 OFTO 524 RLDHSG OC CLIT*RELOAD DATA CARDS* poh 1030 8D 5A 00 590 CLE O€ eXRZPVC* * 
OF68 CLE3C140C32C109C4 $24 1033 F2 81 4C 591 JE ASTER 
OFT70 E2 524 oo 1036 6C 00 00 00 592 MVC «OF o@ XRL9 900 2 XR2I MOVE CHAR YO PRTBUF 
OF71 525 SC3 equ @ Ce 103A 02 62 O01 593 LA 1€eXR1I_XR1 INCRe PTR TO PRIBUF 
OFT] 526 NEXT EQUuU# 1030 £2 02 91 594 La L€ eXR2) eXR2 INCRe PTR TO PBUF 
OFT71 C2 O1 2498 §27 LA PBUF=1_XR1 yt 1040 34 02 25090 595 4SGCK ST PSTROsXR2 
OFT75 35 02 2502 528 L CSTR eXR2 oe 1044 0D 01 2500 24FE 596 CLE PSTRE,PENDS 
OFT9 34 O1 24FE §29 WXT1l ST  PENDS,XR1 104A CO 04 102A 597 @NH MSG1 
OF7TD 34 02 2502 530 st CSTRB,XR2 be 104E O£ 01 2502 CASE 598 ALC CSTRA,ONE END OF COMMENT 
OF8i OD O01 2502 2393 531 CLC. . CSTR@,»CENDS NLS 1054 GD O1 2502 2393 599 CLO CSTR&,CENDS CHECK FOR RETURN CHAR 
OF88 532 CHKSH EQU = +1 \ 1058 600 CHKSWI EQU = *+t 
OF87 F2 82 08 533 JL NXT2 : 105A CO 82 106 601 BL MSG2 
OFSA CO 87 1OA9 534 8 READ c 105E OC SF 24F8 OSDF 602 RVC  PBUFt9S( 96) »PRIBUF+IS 
DATE 29auG75 OTNOYTS PROG ID FFT-1. €° pate 29RUGTS OTNOVTS . PROG ID FET-2 
EC NO. 827804 827805 PAGE 6 | €C 80. 827804 827805 ne PAGE oh 
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TBM MAINTENANCE DIAGHOSTIC PROGRAM sae NGOs Fae a RAINTERANCE OLACNOSTIC PROGRAR oe ad. Neen eee 
FE71  OISK ERROR RECORDING ANALYSIS PROGRAR «FFT7L «DESK ERROR RECORDING ANALYSIS PROGRAR 
' os 
ERR LOC GBJECT COBE ADDR STKT SOURCE STATEMERT ES ERR LOC GBVECT CODE ADDR STMT SOURCE STATEMENT ’ 
A 603 8 READ j 626 StPSESSSESRESESERSSSSSSSSLSSESLS SOOT HTESESOSSSSESEIES HOSTESS ELIIIMELSSVSTS 
tons oc pane 24F8 604 MYC PRIBUF495( 96) » PBUFS9S & 627 @ READ = le READS OATA CARDS INTO PRISUF . 
1G6E 35 92 2502 605 MSG2 L CSTRS_KRZ i 628 teeesee% 2. CHECK SEQUENCE CF DATA CARDS 
1072 BD 6C 00 606 CLI Ol, XR2),C°S* i Q 629 & 4. MOVES DATA CARD FRCM PRYBUF TO CaurF * 
1075 CO 81 OF71 607 BE = NEXT ; 630 ¢ Se RESETS CSTR . 
1079 CO 87 021A 606 3 PRINT | 631 2 Ge PROVIDE A MESSAGE AMD MALT TO USER IF DATA CARDS ARE 
107D 20 iG7D 609 SPCHT oc XL1° 20° et 632 ¢ NOY IN ORDER : 
LOTE CO 87 OFT1 $10 8 NEXT 633 # 
3082 611 ASTER EQU * \ 34 SHEER SLOSSRETSSESNS HS SLPVOTSHELSH SSH SSOCEESSVSSESESSCT FESEARSLSIESS SOSH LS CES 
1082 &B O1 02 O21 612 MZN 20 9XR209265XR25 a 1GA9 635 READ EQu * 
21086 7C SC 00 613 aSTi evi Ol gXRLP,CeR? ‘ LOAD 34 O68 1112 $36 ST REXTS eARR 
1089 Dz 01 01 614 La Le XRD EARA 10a 38 80 OEFS 637 RST TBN SCNFLG.FFLE 
108C SF 00 O02 JABB 625 SLE 2U2¢XR23 pQHE oe 1G82 Fe 30 25 &3& JF ROi 
1091 CO O1 1086 $16 BNZ AST] ok 633 @ READ HEALER CARD 
1095 F2 87 GA 617 J SP1 198% 04 320 2498 239C¢ 40 ZAZ CRONHB(4!?,CZERO SET CRORES TO 0 
618 208A 3D Ci 0232 64% cul X*232° -K*CL* TEST FOR DISK OCF 
21098 619 SPACE €Ou s LOBE F2 02 OA 642 JE RDdDZ 
1098 AB 01 02 C2 620 BIN 20 ¢XR2be1L4eRR2} 20Ci CO &7 G22A 643 5 LOAD 
109 BC 90 G1 621 MYT if ,XR23-eX*O08 7 19C5 20 4005 646 oC KLESZOS 
109F BS O1 02 622 & 2f pXR25 RRL : 10C6 OCC 1GC7 645 cc XL2°DOCE? POSITION OISK HE&ad 
LOAZ EZ O02 03 623 SPL LA BE gXR2}_gXRZ 10C8 F2 87 O95 646 J ROS 
LOAS CO 87 1049 624 8 MSGCK 1608 CO B87 G22 647 RODZ 3 LGAD 
AOCF i060 IGlF 645 ot ¥LE82 GS 
2006 0D 23 O&8C0F 2499 640 BBG cit PRISUF SS S14), CRONME FEST FOR MEADER CARD 
- 39D6 F2 Gi Os 656 SRE £O3 
x i609 652 KDI EGU Ot 
iGDS C6 87 S22A $52 8 20a5 
va 2600 i060 i0Dd5 653 oC RLESLSE 
AL LOCE 654 ROE Eu * 
iCBbE CO 87 O2LE 655 & UnP ACE 
oo 2OEZ 2 idE2 656 DC RLitGae 
ee : iSE3 GAOL 19E& 657 bc ALZCEID? bite tenia tka ae 
30f5 1158 iGEé 8588 Gc ALZILEVEL? 
= 30E7 OD OO O8DR £158 659 cic PRIQGUFCS LC LP.L EVEL CHECK LEVEL OS OCF IGAT& CARDS} 
; istD Fz Gi 58 660 ANE WSLEY 
LOFD Os 30 2498 239D 663 &Z CRONKBIS9 «DORE 
1O0FS OG 03 2498 OB8DF 662 cic CROMMS (4? -PRIBUFESS 
ELOFC F2 01 14 6&3 JHE UNDRD 
LOFF OC SF 2498 C&8OF £84 MYC COUF*S5 196) pPRISUFSCSS 
1105 Oc 01 25602 2391 665 R¥C CSTR -CBUFS 
£108 368 86 OEFS : &66 SBF SCNFLESFFLG 
LEOF CO 87 o0GG 667? 8 Gee 
Lil2 668 REXT2 eQu sf 
: 1i13 CO S87 G2ia 6639 UNGRD B PRINT 
LiiY 37 Lid? 676 ot MLi*S7? 
R188 23 2118 6712 oC GLE°3S* 
Lii9 1147 ALLA 6872 oc aL ZERNSG? 
i118 CO B87 G2z2 &73 6 MALT 
Q 222 OOEC 3120 6674 Dc XL2Z* GOEL ® DATA CARDS NOT IN OROER 
: 1121 CO 87 1113 675 & UNORD 
1125 C4CLESTISGC3CID9 1147 676 RSG oC CL3S*DATA CARDS NOT IN GROEK,RE~RUN ERRPS 
1120 C4E240D05D6E540CS 676 
1135 05400609C%C50968 676 
14130 O9CS&EGD9E4N540C5 676 
1145 O9€107 676 
1148 CO 87 O214 677 NSLEV 8 PRINT 
114t 87 114C 678 oC XLi?sT* 
2 i14D 12 114D 6679 oc i£1°287 
.. 1i4— 116C 114F 680 Dt AL2Z(LYLRSG} 
11560 CO 87 G2z2 681 B HALT 
om 1154 OCEE 4155 682 oC XL2*OGEE* 
Me 1156 CO &7 1040 683 B RST 
115A 0000 1158 664 LEVEL oc XL2*Ga* 
- 115C 60D7B9D6D7C5D940 126C 685 LVLASG oc CLiz*-PRGPER LEVEL OCF 
Kw 1164 O3CSE5C50340F0C3 $85 
216C C6 685 
DATE 2SAUG75 OTNOVTS PROG iD FFT-1 C pate 29AUGTS Omnayv7s ~. ; PROG iD FRG~L 
EC NO. 827804 &27a8es PAGE 7 EC NO 827804 $278C5 Pace 7a 
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FFTI DISK ERROR RECGRDING ANALYSIS PROGRAM | ‘FET CISK ERROR RECGROIKG ANALYSIS PRCSRAN 


ERR LOC OBJECT CODE ADDR STHY SGURCE STATEMENT .. ERR LOC GBJECT CODE ADOR STME SOURCE STATEMENT 
&87 RRERESRACSEREKERKSASSREPESLTRE LESSEE LES EHLERLSERELES EERE SEEHESESESSSOESESS | 725 ERSSSSSSSESSRLSESSSSGEAKSSSSS EASE SHS SSERSSESSESOSSHSSEREASSSLSEVIVSSSESRASSSESTES 
688 * PACK # PACKS DATA IN PBUF SACK INTO PBUF FROM LEFT TO RIGHT #! & 726 & HEXDEC @ CONVERTS A HEX @ TO A PRINTABLE DECIMAL @ IN PRTBUF ®& 
689 teeeeere s| 727 Sesssesesssesss WITH LEADING ZEROS SUPPRESSED 2 
696 @ 6 728 ¢ s 
692 BRHSRKASETRAFRSESLGRES SE GREKSSSLHSKEFTASELSEKSS SERS LSESEKS SSE SSEVSLLSRSESS | G 72S & LENGTK OF HEX € IS CONTAINED IN CNILNG = 
692 730 * LOCATION OF RIGHT BYTE PCSITIGN OF THE HEX # IS Ea 
116D 34 08 1198 693 PACK ST PEXTH sARR 731 * @(DBUFD<CNTPOS4+CNTLAG=1 e 
L172 35 01 2395 © ao% ot PBUFJ,XR2 | 732 @ LOCATION GE PRINT POSITIONC(RIGHT MOST) IS & 
1175 35 G2 2395 695 L PBUF Ae XR2 733 ¢ @UPRIBUF-L) © YTABTSL(TASIDR) * 
1179 98 01 06 00 696 PCK} MZN Of eXR2}-OCeXR1? Fa 734 # OW EXIT ¢ 
1170 98 03 00 02 697 MNN Of oXR2beL% XRD? & 735 3 HEX @ WILL BE ZERO % 
1161 D2 01 02 6398 LA 2 eXRLIXRE 736 © CNTOFS IS INCREASED BY {CNTLNG} e 
1184 E2 62 01 639 La Ll 9XR2) pXR2 — 737 3 TABIDX ES INCREASED BY 2 * 
12187 34 G1 2513 FOO Sf TEMP yXR1i ‘ & 738 SKSCSSESEMSKECSSESSESSHSALSSSESSESESSERKSSSSSEVSESKSLE SSS SSSELVSEELSESESSRSTESEEIG 
L18B OD O1 2513 24FE 7Ol CLC TEMP,PENDa 11C2. 739 HEXDEC EQU *® 
E191 CO 82 1179 702 BL PCKi on 1202 34 08 12F3 740 ST CYTXasARR SAVE RETURN @ 
1195 Cl 87 0000 703 8 + \. Bb2C6 C2 02 1266 741 LA LNGTBL<L 9 XR2 
1198 %6% PEXTa EQU 2 RICA 36 02 2389 742 A CNTLNG,XR2 
705 «RACE 2C 00 1252 00 743 MYC = MVCL(19,002XR2} SET tNG OF DEC 6 
705 Ci The @ SET LOGP COUNT ¢CNTLNG?B) 
705 E2D3 C2 OL 2385 145 LA CVTCNT eXRi 
Tas 1107 4C O01 00 2389 746 MVC 0f25XR19 sCNTLNG 
705 ee 110C SE 02 00 00 747 ALC 0(29XR1),00,xXRi? 
765 Li€O SE OL 09 00 748 ALC O642,XR1)501exR1} 
705 - oy.  21E4 SE 02 00 00 749 ALC O€2eXR1)sO0eXRL) | : . 
705 . Ug 750 ¢ SEY LENGTH OF HEX @ INSTR. 
705 LIES OC OL 2513 2389 751 HVC YEMP,CNTLNG 
705 2 get LIEE OF 02 2513 OAS8B 752 SLC TEMP, ONE 
FOG SSSRAKRARAASSSRASSLSRSAKEESRESLAESHIRSS HELSSSTLKSESERERKSRASKSEKLERSSSSESS | 11F4 OC 00 1221 25:3 752 “VvC ALCLUL}, TEMP 
107 ® RSHIFT * SHIFTS A BYTE 2 BINARY PLACES TG THE RIGHT * LIFA OC 00 1213 2513 754 MVC CLOLO(L}, TEMP : 
TOS SeeeSsaesee END OFF s. 755 @ SEY KRZ TG RGHT POS OF HEX @ 
peeneparoe se 7 2 709 # *. & 1200 C2 02 2623 756 24 OBUF »XR2 : sess 
FLO CkSRESSSTESEEERESS ESS SSESTSSOESES US SEEELERGESS EES ESESTESHESESSEESEOSESE 1204 36 02 2387 757 & CNTOFS eXR2 
1199 7L1 RSHIFT EQU) = ; 4. 1208 36 02 25313 758 a TEMP oXR2 
1199 34 08 11€1 712 st RSHFXS,ARR i &  420€ 04 £0 2513 239¢ 759 ZAZ OEC,DZERO ZERO DEC @ 
119D C2 02 2623 713 LA DOBUF XRZ 760 © 
LIAL 36 02 2367 714 4 CNTOFS »XR2 fr: 1213 761 CLCL EQU = #41 
L1A5 C2 O1 0006 715 LA 6oXR1 % 2212 8D 00 CO 1272 762 CLC Of 19XR2)2SZERO YEST FOR ZERO 
1LAS AE 66 00 O06 716 RSHFL ALC OO1,XR25,00,XRZ 3 1287 £2 81 45 763 JE HEXDO : 
LLAD F2 20 03 717 JNOL RSHE2 — 121A 06 OE 2511 2511 764 HEXD1 AZ DEC ,DEC DOUBLE DEC ¢ 
11B0 BA 02 00 718 SBN Ol p KR2P2X*01° €: 1221 765 ALCL EQU S41 
1163 36 01 23AA 719 RSHF2 A FRFF XRi 1220 AE 00 00 00 766 ALC Of 1eXR2P 20 eXRZE SHIFY HEX NUM 
1187 CO O1 1149 720 BNZ  RSHFL _ 1224 £2 20 06 767 JNOL NEXD2 TEST FOR OVERFLOW 
11BB8 B88 CO 00 tai SEF OL eXR2eX*CO? 1227 06 £0 2511 239D 768 Al DEC »DONE aOD 1 TO DEC & 
IEE CO B7 0000 722 8 2 122D OF 01 2385 OA8B 769 HEXD2 SLC CVTCNT,ONE TEST FOR END 
LICL 723 RSHFX@ EQU =} . wd 1233 CO O01 121A 770 BNZ HEXDL 
{ 1237 08 OE 2503 ODeB 771 HEXD5S ITC «= DEC- 24015) BLANK 
1230 38 08 OEFS 772 TBN SCNFLG,ZFLG 
r 1241 CO 90 1249 773 BF HEXO3 
ks 125 3C FO 2512 774 MVI DEC ,C*0* 
1249 3B 08 OEFS 775 HEXD3 SBF SCNFLG,ZFLG 
i p> 716 © SET XR2 TO RIGHT POS OF PRINT POS. 
iC: 124D CO 87 12F4 717 8 PRTPOS : 
| 1252 778 MVCL EQU tel 
ie 1251 4C 00 00 2511 779 MVC =.041,XR1L9 DEC MOVE DEC @ TO PRTBUF 
| {2 1256 O£ 01 2387 2389 780 ALC CNTOFS,CNTLNG & Biges - soa 
| 125C F2 87 6B 782 3 C¥TX 
| ~, 125F 3A 08 OFFS 782 HEXDO SBN SCNFLG.ZFLG. 
\ C1263 CO 87 1237 783 8 HEXDS 
{ 1267 78@ LNGTBSL EQU * CRTELNG 
1267 02 1267 785 pe 8 saL 82° 2 
| & 1268 04 1268 786 Dc ILisee 2 
1269 07 1269 787 pc «Li *7* 3 
. | gx, 126A 09 126A 788 oc 1Litse & 
| C1268 oc 1268 789 OC 8s EL #228 5 
126C OE 126C 790 pc 83—sELAL 248 & 
| g. 2260 000600000000 1272 791 $ZERO oc XL6*00* 
! Gy 792 
DaTE 29AUGT5 OINGVTS PROG ID ene pate 29AuUGT5 OTNOV75 a PROG ID FFT=-1. 
EC NG. 827804 827805 PAGE 8 EC NQ. 827804 827865 PAGE — BA 
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$04460000400022000902000900009009000SSSSSSSSOFSSSTESSSESO SSS SSEFSSESES SS 


2 CVYTBIN % CONVERTS A HEX BYTE TG PRINTAE!.-. BINARY NUMBER IN * 
SLSRAPSSSTHSVSLE PRISUF s 
3s 2 
* LOCATION OF HEX BYTE 1S atOBUF) « CNTOFS * 
2 s 
* LOCATION OF PRINT POSITION (LEFT FOST Positiaqn) 13 * 
= @(PRTBUFI-1 ¢ TABTSLAITABIDX) - 7 
2 s 
* ON EXIT e 
2 HEX BYTE WILL SE ZERO * 
* CNIOFS iS INCREASED BY 1 * 
* TABIOX {S INCREASED BY i * 
GbbO9996494044499898008S889S28 498 F9TSESRESLESESESETS ESSE BSS SESIESSFOSSS 
CvTBin EcQU & 

ST C¥TX9 ARR SAVE EXIT @ 

La DOBUF » XR2 COMPUTE POSITIGN GF HEX BYTS 

A CNTOFS eXR2 
* CCMPUTE POSITION OF PAINT POS. 

8 PRITPGS 

A NEGT oe XR1 
s 

MVI CVTCNT.S8 SET LOOP CHT 
CcvT82 MVE Ot eXR172C*O* SET PRINT CHAR O-BY DEFAULT 

ALC 0 _%R2),06oXR2). ant noe 

JNOL CVTB1 TEST FGR BIT ON 

avi Of eXR17-C*1* BIT GN,SET PRINT CHAR 2 
CviBsl LA 1¢9XR1) -XR2 

SLC 3=—- CV TCNT ONE 

BNZ cCv¥B2 
CVTXE EQU 

MvI Of »XR2),0 

ALC CNTOFS,QME 
+ 
CVTX equ *& 

ALC TABIOX ONE 

8 es 
CVTXa equ) ti ae. 
PrTPos EQqu * Ne aa os : 

st PRIKSs ARR 

LA TABTOL -XR1 

A TABIDK.XR1 

MYC H24119-00,xXR2) 

LA PRIBUF=1 sXR1 

A H24eXR1 

8 3—8 
PRIXxa €Qu ei 
SYNMOV E—QU # 
s LOAD SYNC PTS FOR ATNX 

ST SYNMX@ »ARR 
SYmR EQU  *#'° De c 

MYI CHKSW1.X*82* 
PvI CHKSW.X*B2° 

SBN SCNFLG.SFLG 

8 SCAN 

MvC SYNTBL#124¢83(84) ,CBUF+¢S4 

8 READ 

8 t— 
SYNMX@ EQU %-1 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM ppl NO. SEARS 18M HAINTENANCE OLAGNOSTIC PROGRAK 
(& 
FFTL DISK ERROR RECORDING ANALYSIS PROGRAM | FFT71 DISK ERRGR RECORDING ANALYSIS PROGRAM 
ERR LGC CBJECT CODE AODR STMT SOURCE STATEMENT i C err 1L0C OBJECT CODE ADOR ST&T 
793 senerocsonsennenesseesshexteshenescSesessSss ECR SOS OES2EGeRGOOSGOSSEEES . 817 
79% * HEXHEX # CONVERT HEX BYTE TO A PRINTABLE HEX NUMBER 2 © 818 
795 SGSsee3Ss 7 819 
796 * : 820 
797 * paccgscsensensenesesenssenssentsessheereesseesessecsesese sees eeeeeees | c $21 
1273 798 HEXHEX equ ®& ' 822 
1273 34 08 12F3 799 ST CVTX9- ARR get 8223 
1277 C2 92 2623 got LA OBUFeXR2 iC? 32% 
1278 36 O2 2387 e01 A CNTOFS,XR2 825 
L27F CO 87 12F4 8602 B PRTPOS 1 826 
1283 36 O1 23AA BC3 A FFFF,xXR1 ' a 827 
1287 38 01 128C 804 SBF 0 - SWETCHeX*01* FGRN NZ | 828 
- 128C 805 SWITCH €QU +1 1 ‘ 829 
1288 68 02 00 GO 806 HEX2 HNZ O00 eXR1} 901 9XR2) 1 & 830 
128F 7A FO 00 807 SBN 049XR1).X"FO* 12AF 831 
1292 TD F9 00 808 cui O( »XR13 X* F9* 9 12Af 34 08 12F3 832 
4295 Fc 04 O5 809 JNH HEXS ‘ 1283 C2 02 2623 933 
3298 4F 60 00 12A0 Bid sic 0(1eXR13,X39 1287 36 02 2387 $34 
129D D2 01 O1 811 HEX3 LA 1(9XR19sXR1 om 835 
1280 39 01 128C 812 X3¢ TBF SWITCHeX*01* ‘ 1288 CG 87 12F4 836 
1244 F2 90 3A 813 JF CVTXi 128F 36 O01 23A8 e37 
W2A7 3A O1 128C 814 — SBN SwiTChH,X*0i* FROM ZZ 838 
128 CO 87 1286 815 8 HEX2 f —_ 42e3 3c 08 2385 839 
12C7 7c FO OG 840 
12CA AE 0O OC GG 841 
22CE F2 20 O03 842 
1201 7C £1 GO 843 
= 1204 02 O01 Of 844 
12D7 OF O1 2385 OAGB 845 
12D0D CO O1 12C7 846 
Cc 12E2 847 
—_ = 12£1 BC 00 00 848 
12E4 OE 01 2387 OCASB 849 
C. 850 
= 12EA 851 
12£a OF O01 2388 OASB 852 
120 CO 87 OCCO 853 
he 12F3 854 
12F4& 655 
a 12F4 34 08 1310 856 
on 12F8 C2 01 2428 857 
12*C 36 01 2388 858 
- 1300 1¢C 00 2381 00 859 
. 1305 C2 O01 OS7F 860 
1309 36 01 2381 861 
: 1300 CO 87 0oO0cO 862 
C: 1310 863 
864 
ws 864 
© 8646 
864 
So 864 
G 1311 865 
; 866 
os fie Be 131% 34 08 1332 867 
C: 1315 868 
1315 3C 82 1058 86S 
1319 3¢ 82 OFS8 870 
{ - 4310 3A 10 OEFS 871i 
132% CO B67 OEFE 872 
: 1325 0C 53 2427 2480 873 
/€: 4328 CO 87 109 87% 
: 132€ Co 87 9060 875 
- ' 1332 876 
. © 
i 
\ 
= 
DATE 29AUGT5S O7NOV75S PROG 10 FFT=-1' C pate 29AUGT5 OTNOV7S 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248241. IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. £248262 
PaGE 10 PAGE 10A 
FFT7L DISK ERROR RECORDING ANALYSIS PROGRAR FFT71 DISK ERROR RECORDING ANALYSIS PROGRAM 
ERR LOC OBJECT CODE ADDR STMT SGURCE STATEMENT © ERR LOC OBJECT CODE ADOR STMT SOURCE STATEKENT 
878 13AB 40C5D9D9D60940C8 937 
$879 SHESSSSRSESSSASESEVKTISS ARETE SLE SHSESCSSESSRESS SESE SRAESKESTECTECRASSSSKSFELSEVES 1383 C9EZE3D6ED9EB4CT? 937 
8860 * DISKIO * CALLING SEQUENCE 1388 O05C464006E3C8C50S 937 
881 = 8 DISKIO e. . 13C3 40C5D9D9D6D940C4 937 
682 * BC = KLEE XX! ae - peaD : : 13CB C1LE3Ci40E6C9D0303 13F2 938 MSG4 DC CLE0°ATA WILL BE PRINTED SY LATER ROUTINES. * 
883 * =02 - W 1303 40C2C5400709C905 938 
884 + DESKIC SREAD OR WRITE A SECTOR OR CYL O GF DRIVE THAT IS s . 1308 €&3C5C440C2E840D3 938 
885 * CONTAINED IN DSKORV, THE SECTOR NUMBER IS CONTAINED * § 13E3 Ci€3C5D940D9D6E4 S38 
886 ¢ IN DSKSEC. * 13EB E3C905C5E24B4040 938 
87 * @A FX (X=1-G} HALT WILL OCCUR IF DISK IS NOT KEADY OR ERRORS. 00021 939 CROP XR1 
888 + OCCURS ON A READ OR WRITE. TEN RETRYS ARE MACE BEFORE ¢ © 
889 * A HALT IS GIVEN. A RESET HALT WILL RETRY THE FUNCTION. &: 
890 * 
891 * « © 
892 SHBSRIS SSKESKSERKSLSKECS SSE SSE SLSSEGRVES SFTEKSSRELKSKCSSHSCSASLSESREESSE SVSESSSE 
1333 693 DISKIO EQu . 
1333 C2 O01 1333 89% LA  —- DISKIO,XR1 6 
1333 895 USING DISKIO,XRL 
1337 T& O08 26 896 ST DISKX2(eXRL}e ARR STORE ARR ADDRESS INTO DISKX@ *GCe 
133A 75 02 16 897 t DISKXS( XRT} g XRZ LAOD ARR VALUE INTO XR2 ecce’ G 
133D 6C GO 13 00 898 HVC OSKFCTC1sXR}}e0CyXRZ} MOVE (READ/WRITE} FUN M BITS SGC! 
1341 CO 87 13F3 899 B DISK33 BRANCH TO 3340 SECTION FOR TEST sect 
1346 900 OSKFCT EQU *1 © 
1345 F3 00 00 901 $102 SIO 050 READ OR WRITE OATA | 
1348 0000 1349 902 DISKXa OC AL2(#-©) SAVE CALLERS ARR VALUE © 
903 
904 SISSESSSKSESEKSASSRECESESSESSESLSSESHERSETRELSSRS STEAKS SSE SHOKTESESE SSS BEASTS LOSOS | 
905 = DISK FLAG IN SEEK 
206 * BIT G = 0 HEAD 0 UPPER SURFACE ' 8 
907 * = 1 HEAD 1 LOWER SURFACE 
908 * BIT 1 - 6 MOT USED 
ieee sees ee 909 * BIT 7 = 0 SELECT OIRECTION TOWARD DECREASING CYL | & eae 
910 @ = } SELECT DIRECTION TOWARD INCREASING CYL #@ | 
911 *® DISK FLAG FOR ALL OTHER OPERATIONS | 
912 ® BIT O- 5 HOLD THE BINARY REPRESENTATION OF THE SECTOR é 
913 * ID NUMBER | 
914 @ BIT 6.7 NOT USED se MUST BE 00 *¢ | 
9i5 EESKEKRERESEEKSSESKSESESSESKKESS SECS SHES SSEESKEHKSLE LE SESBISEESCSESESSSEVSESSHEVESTLE 
1344 0000 1348 916 STATUS DC XL2*0* | 
134C 917 DSKORV EQU | 
134C as 134C 918 DC XLI°ABS DA & M BIT FOR DISK 3 
134) 00 134D 919 DSKFLG 0C xL1°0° FLAG SHSELSSEESSESELESLERERESTSOOS | 
134E OC 134E 920 DSKCYL OC XL1°O* CYLINDER # DISK CONTROL FIELD * | 
134F 00 134F 922 OSKSEC OC XL1*O* SECTOR * * | eS 
1250 00 1350 922 DSKNUM DC XL1i*0* # TC MOVE et2eeeCeseseeceereseesetEeS 
1351 1340 1352 923 OCR oc AL2(OSKFLG} DISK CONTROL ADORESS REG FOR RD/WRT | 
1353 2623 1354 924 DBUFa oc AL2(08UF) START ADDRESS OF DATA BUFFER l @ 
1354 925 DAR EQU  _e1 
926 * | 
1355 927 HLTTBL EQU ¢ HALT CODE VOLUME DEVICE ADDR. | @ 
1355 F2 1355 928 pc XLI‘F2¢ 2 ao 
1356 FL 1356 929 oc MLLEFLS i As | 
1357 F4 1357 930 pC Os «XL Fae 4 B80 l © 
1358 F3 1358 931 DC XL1°F3° 3 88 
1359 40C8C1D03E34060C6 138A 932 oC CL50* HALT ~FX- X=1-4» VOL X IS NOT READY OR ERROR ON vV*| 
1361 ET6040E77EF1E0F4 932 | e 
1369 6B40E5D60340E740 932 
L371 C9E240D5D6E340D9 932 
1379 €5C1C4E840060940 932 
1381 C5D909060940D6D5 932 
2389 40€5 932 
1386 D6D340ET7 138E 933 OSKMSG OC CLO4*OGL xt 
138E 934 MSG38 equ = *-1 
138F 404060606040F3F3 1342 935 MSG3 pc CL20* --- 3340 --- ¢ 
1397 F4FC406060604040 935 
139F 404040406 935 
13A2 936 MSG48 equ #-1 
13A3 40404040F3F3F4FO 13CA 937 oc cL40* 3340 ERROR HISTORY AND GTHER ERROR O° 
DATE 29 AUG75 O7NOVTS PROG 1D . FFT<1 € pate 2SAUG75 OTNOV7TS an: PROG 1D FETH=1. 
EC NG. 827804 827865 PAGE 10 €C NOW 827864 8273805 PaGE - —=4Ga 
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IBM MAINTENANCE DIAGNOSTIC PROGRAR =i HO. aaheest 18M MAINTENANCE DIAGNOSTIC PROGRAR PART NO. 4268241 
| cs PAGE ila 
FF71 DISK ERROR RECORDING ANALYSIS PROGRAR 1 FF7. DISK ERROR RECGROING ANALYSIS PROGRAM 
ERR LOC OBJECT CODE ADDR STMT SGURCE STATEMENT | ic ERR LOC OBJECT CODE ADOR STHT SOURCE STATEMENT 
941 SECHKISRAASEASARESRIASESSSOSCRALSSLSKASSSESLSERSHGH ILS SESES SSVESISLGS esce| se 140C $96 USING TABLES XR2 , 
942 Saeee TITLE * DISK TYPE 3340 1/0 ROUTINE SHESRETESES *Gce! © 1472 C2 02 140C 997 LA TABLE : <7 
: SeXR2 LOAD REG 2 UiTei AOORESS OF TABLE 
. SESBEKESESEKHSASSSRSVRSSESIOSTHKE THTRSSERSSSESRLSVHETSHSESSEKERBISE a 1475 78 10 03 998 TBN IOBCHN( eXAQ1l) »X* 10° @ CCLE FGR SPIRCLE 1? 
on gs 1479 F2 90 93 999 JF CKFIXD JUMP IF REG 2 IS OK 
a : 147C E€2 02 04 1000 LA 44 oXR2I gXR2 BUMP TQ POINT TO SECOND HALF 
- 147& 78 08 03 4001 CKFIXD TSN IOBCHN(sXR1}sX*08* QQ CCDE FOR FIXEC DRIVE? 
ie xnee ee 1” o3 1902 3T NEWDRY JUMP IF FOR £1 GR F2 
13F3 OC 09 1704 1725 945 DISK33 MVC DDCFE(10),DOCFB INITIAL OOCF FIELD *cce! eee : ane Ehy ehathetente CEES Sener’ 
13f9 30 CO 1348 946 SNS STATUSeX*CD® RESET HISTORY UNIT CHECK BITS #6C* | 1004 
13FD Cli C8 15A4F 947 TIO OKNR,X*CS* NOT READYSUNIT CHECK ERROR TEST s6C%| &: 1004 
2401 3C OG 1L6FS a. MYI DDCE sx? 00° CLEAR FLAG BYTE eee 1005 ® eee ee etcee see seevreseseseeesee esse ses es Ste & 
os oO 1006 ¢ REGISTER z NOW POINTS TO THE TABLE ENTRY COORESPONDING TO THE ® 
99 | . 1007 © REQUESTED 5444 DRIVE. + 
950 SERRESRERSEESESEEDEEEGEERES4OS2E9499S2RBAGCESSIESSEHSSENETSSESES999SRETS | -~ tes Str MPG Se eRe Te eee ey es Ee a ye ea pie ee eee 
eee HS SES a tages 
a71 oe ee our ne 2 ea Peo Be acs ‘ 1488 2C 00 149E£ 01 ahd NEWORV MVC CYSTRT(1$e24XR2) SET MOVE INSTRUCTION TG PICKUP START 
CYLISDER OF SIBULATED AREA 
SGFHSHS b 
nth 7 SS993S2 ceDESEReseeSeEDeEsenesssessEsessseTeseneensssssseessesessee co - 1480 68 00 06 00 1012 ZZ TFOBGBLsXRL)eOEeKR2} MOVE IN THE ZCNE OF GPERATION CODE 
oats Sciste: oh eeny x5. ads tn 1451 88 68 00 1013 TEN O€ eXR22.X* 08" FOR 3340 CRIVE 2 OR 4? 
ad DSO ot ones _ 1494 7A CB 04 1014 SBM  IGBQB84,xXR1},xX*08" ASSUME 3346 DRIVE 2 OR & 
ao Boer ened ae vat - 03 HA a CVICTH GC START THE CONVERSION 
: . BE 108081 sXRL}.xX*08* CORRECT A BAC ASSUMPTION 
& ys ic 
nee : GUTPUT: DOCF FIELD CYLINOERSHEAD, RECORD NUMBER FOR 3340 SYSTEM - 1490 76 00 00 mee a oyiets MYE IQBCHN-34.5XR1?,C MOVE IM START OF SIMULATION AREA 
; - 4 O16 CYSTRY EQU 2 , 
re a ae ee ee ee ee 2 * ake EYL € 
961 * THE FOLLOWING AREA IS SET ASIDE FOR USE AS CONSTANTS IN THE 54464 * Fee aes se aa GET SUES ROSARIO Cera oe Grr On hee Oh 3 
Bee ee puueeeion ecdirec. . 1£A3 F2 82 26 1020 JL CKCYLO if tGw GO CHECK FOR CYL O 
Se i ake eae ee eae ee eae 1446 70 C8 O21 1023 CLE I0BCHN-2(,XR1),K°CB’? CHECK FOR CYLINDER 2037 
ara 14a9 CO 62 1414 1022 BNL ERRMSG CYLINDER 203 GR GREATER IS INVALID 
seins ae eet aes = : pore ! 14AaD &F 00 01 2408 102? : SLC IGBCHN-~2CieXR2PeSYNTEN SUBTR ARUMBER OF 4% TRACKS 
4 FOSSIBLE GN FIRST 3340 CYLENDER 
_ 3408 20 1408 966 HEX20 DC ¢ 20° .C 
aao6. Bs Woot cet ROOK: be SL ivoas . Ses 1482 F2 82 29 21028 J ADDSAK JUMP TF 46 CYLINDER IS ON FIRST =e 
en a aoe eo LoeTeOne eae aes 2 1026 # SIMULATED 3346 CYLINDER iced 
ees ee ee eu nten ee Se ueiae c 1485 7D 00 01 1027 CKZERO CLI JOBCHN<—2{2XRE},X?00" SEE IF CYLINDER WENT ZERO 
eee pee eee cay 76 the 1488 #2 61 18 pera JE UPCYLN IF ZERO CONVERSION GF CYL IS 
140C COA9 140D 971 pC XLZ*COAS* A . oer Se oounr = 
oe ence yee Be oe vue py . ; eeruets Us 1488 4& 00 00 OA8B 1030 ALC <IGBCHH-301,X¥R1},-CNE ADD CPE TO 3340 CYLINDER 
oo iecce Peas oe ete eeeae Tet ee ee cs eeaueey ss 14C0 46F 00 O1 140A is3i SLC I1O08CHN-2€19XRL}<FCRTEN SUBTRACT AUMEER OF 44 CYLINDERS 
1412 C8B3 1413 976 oc XL2°*CeB3e TABLE ENTRY FOR A R2 REQUEST 14C5 F2 one pee ee ecg Gche MccAe ie 
fae 66 Tia. seen EMOURC Oe ago are) Vo 82 16 1033 Jn ADDBAK JUMP IF RESULY WENT NEGATIVE 
Reece CRARTN CEG pe 14C8 CO 87 1485 1034 8 CKZERO LCOP BACK ANC CHECK @GAIN 
oe pepeouee 1418 977 IOBSCHN DC XL4*0G° BUFFER AREA FOR SUB-ROUTINE ae 
1419 978 10898 OC XL1°00# UFFER #OR ee 
ass BUFFER WORK AREA mee, 14CC 7D OC 61 1036 CKCYLC CLI YOBCHN—-Zi,XR1}.K°O0*® 1S TE REQUEST FOR CYLINDER ZERO? 
980 RESSKEISAHEHSVRELKSESKETRILFESSTLVSSSSEAAAESLRARSE KOBE SRASSSSHSESSESLESESRLS Taos re a; ace 103% One ERRNO Tf NCT FOR ZEGGs ERROR 
141A CO 87 O21A 981 ERRMSG B PRINT PRINT THAT KOUTINE UNABLE TO CGNVERT 1 €3 ‘ vaa6 st COVES COMVERD SECIS TOCRECORY 
aie Al Aste eee Be Are THE 544% ADDRESS INTO A 3340 ADORESS hee: 1039 
Litsie 
Poo ache Tots ene se Aree eaets bs 14D6 4E OC OO OAsB 1040 UPCYLN ALC IGSCHN-342,XR2?,0NE UPDATE TO NEXT 3340 CYLINDER 
yess ea er noee oe : rte i 1408 F2 87 05 aoe J CVTSTR GO CONVERT SECTOR TO RECORD 
1426 FFOF 1427 986 oc KL2*FFOF® 
Tone 6 eeCORie hes : a crag ce 14DE 4E 00 O01 140A 1043 ACDBAK ALC IGSCHN-2{1,eXR1),FORTEN ACD BACK FOURTEEN WHEN RESULT 
ae eae eet ece rose 145E $88 ERRMSL DC CLS1*UNABLE TO CCNVYERT 5444 ADORESS INTO A 3340 ADDRESS.* ; dese ° or 
988 
OLar EeLOLetaracaecci ioe f 14€3 3C 01 1414 1046 CVTSTR MVI HEADWA,X*O2° INITIALIZE WORK AREA WETH A 1 
Tica CLeADGCEESEO NOES —. . 24E7 7D 00 O2 1047 CLi «- TOBCHN=-11,KRid_,X*00" RECLEST FOR A 5444 SECTOR 2ERD? 
Sac LELSDeOCLLGLaES oe 24EA F2 81 21 1048 Je EXIT CONVERSION IS DONE 
Oke ELERAGECEACADSES cc f 14ED 78 80 G2 1049 TBN IGBCHN—-14eXR19,X°80" TRACK 2 CF 5446 REQUESTED? 
ce vEoesae ae - 14FO F2 90 65 1050 3F BUMP JUMP IF TRACK 1 WAS REQUESTED 
ao 14F3 4F 00 02 1408 ace SLC LOBRCHN-167,XR2).HEXZ20 MAKE TRACK 2 AND 2 CONTIGIOUS 
oe 52 
$89 f 
Si 14F8 70 FC 02 1053 BUMP CLI IGCBCHN=-1¢eXRRI2X*FC* DID = 
1ASF 990 GPCS EQU ° * ID SECTOR NUNECR GO MINUS? 
sale: O51 Oeics: <akincnbh 14FB CO 84 141A 1054 BH ERRMSG ERROR IF SECTOR 15 MINUS 
jee eo Wi wate oe ne oT aRa ani c 14FF OF 00 1414 OABB 1055 ALC WHEADWAC1),O0NE ACD CNE TO RECORD NUMBER 
tei a OC 1 aay 458 os Buc’ — 1HRcCNcE Cota bckeee ‘, 1505 %F 00 02 1409 1056 SLC ICBCHN-1(1,—XR2}2FGUR CECREMEMT SECTOR COUNT 
1469 4C 00 04 134C 994 MVC IGBQBE1»XRLI,DSKORV SAVE THE 5444 Q@ CODE iia cided Mean eee enn ee SORE eee ae ere 
146£ 5C 00 03 04 995 MVC TOBCHN(1,XR1),2C8CB(,XR1} SAVE THE 544% Q CODE ¢S rose 
DATE 29AUGT5 O7NOV75 e7-1 £° ‘ 
Pe NOs Go 7aae Boyace ccee 10 ee " DATE 29AUG75 O7nOV7Z5S PROG 10 FEF~)] 
EC NO. 827804 827805 PAGE ALA 
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18M MAINTENANCE DIAGNOSTIC PROGREM PART NO. 6248241 EBM MAINTENANCE DIAGNOSTIC PROGRAM PART NG. 4248241 
PAGE he c PAGE 12a 
FF71 DISK ERROR RECORDING ANALYSIS PROSRAM FF71 DISK ERROR RECORDING ANALYSIS PROGRAH 
ERR LOC GBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATERENT 
ISQE 4€ G0 02 1414 1059 EXIT MVC IOBCHN-L(LeXRILPeHEADKA MOVE RECORD COUNT fo ia08 | 25C0D OC 23 16A0 LOFO 1218 OKERA SVC P031620),PD4e # MOVE AFTER RE&D DIAG CKO S6C% 
1513 0C 00 16FD 1415 £060 MYC = DDCF4¢211), EOBCHN-3 MOVE CYCLINGER NURGER u 2L19 
1519 OC OO L6FF 1416 1061 MVC ODCE4+4¢1),ICBCHR<2 MOVE HEAD NUMBER Li1¢ 
L15LF OC 00 1700 1417 1062 MVC DDCF+541), IOBCHN-1 MOVE RECORD NUMBER 1503 CO 87 O2Z%A Li20 PRINR 8 PGRENT © PRINT THAT UNIT e6Ce 
1063 #¢ # eee eee tee ese eee ee eeee eee See ee & EE 1507 87 LSD? 1121 DC XLLSa7e ® NCT READY ¢ URET CHECK occuRREes @6Ce 
1064 * END OF 5444 TO 3340 SIMULATION CONVERSION ROUTIKE * ESDSE 3A 1SD8 i122 OC ALL(PD31~PD3CI & ORIVE *6Ce 
1065 @% 828 * €e && & & SF eS & EG SG * tee OC eee Fees e ee Fe SSE A | ; 150¢ ¥6AC £504 £123 BC AL2¢PD31 } & gS eocs 
1066 | 15D8 3C 40 1640 Li24 HVE PD31L,xt408 * PLACE © & e6C¢ 
1066 \ iSDF OC 22 169F 1680 1125 MVC PD31-1619}ePD31 * BLANK PO3i WORK AREA SE6Ce 
1066 | 1£E5 30 CD 1348 1226 SNS STATUSsX*CD® SENSE STATUS BYTES O53 e6Ce 
1525 OC 00 157B 1346 1067 KVC RDOWRESICL),OSKFCT MOVE DISK FUNCTION READ/ERITE INTO S20%GC#! 15E9 CO BT O21E 2127 S  UNPACK * UNPACK secs 
1522 OF CO 1578 17:8 1068 ALC RDWRT+1(17,0RV32 INSERT ORIVE NUMBER INTO SIO aGCS ESED 02 1SED 1128 OC XLLFOZF s STATUS SGCe 
1531 Ci CA 1531 106¢ TIO #,X*CAt ATTACHHENT BUSY (WAIT? *GCe; ISEE 1348 ISEF 2129 CC AL2(STATUS} & BYTES *GCs 
1535 32 CE 16F2 1070 LIQ LOCE»xX*CE® LOAD DDCR WITH ADORESS GF ODCE *6C#) LSFO 1649 15F2 4130 DC ALZUSTATOT} % O51 *6Cs 
1539 32 CC 16F4 LO71 LIO LODF.xX*CC® LOAD DDDOR WITH ADDRESS OF DDDE *6Cs 15F2 CO 87 0228 2231 B PRIRT © PRINT *G6Ce 
1530 ©€3 C8 00 1072 SIO 9,x*CB? SEEK COMMAND PRIMARY TRACK *6Ce| re 15F& 82 LSFG 1132 DC xXLE*E28 + STATUS *6Ce 
1540 C1 69 1646 1073 TIG eX*C9F SEEK BUSY {WAIT} *GCe) ¢ iSET 1A 1SF7 1133 DC ALLEISTATOT=STATST: ¢ BYTES *6Ce 
1544 CL CA 1546 1074 TIO ®.X*CAS ATTACHMENT BUSY (WAIT) $GCS I5FE 2649 15E9 1134 DC ALZESTATOT) % Col SGCe 
1548 Ci C8 15C4 1075 TIiG OKERS,X*C8t NOT READY / UNITY CHECK AFTER SEEK CMD sGCe! _ 1SFA Cl CA 1SFA 2135 TIG SoK°CAe ATTACHMENT BUSY (WAIT? *6Ce 
154C OC 09 L716 L704 1076 RVC 00C2(10),DDCFE e6C* ISFE 31 CC isa £136 LIO &LSNS,X*CC* LOAD ODDR WETH ADDRESS OF OSNS SECS 
1552 OC OL 1717 171A 1077 MVC =DDCZ—162) ,DDZL *6Ce, 1602 F3 CS OT 1137 SIO 7eX*C9* RO DIAG BYTES eG6Ce 
1558 31 CE 16F6 1078 LIO LOCXsX*CE® LOAD DDCR WITH ADDRESS OF ODCK CDDCE? *G6Ce: £605 Cl CA 1605 2138 TID ©, x°CAt ATTACHMERY BUSY {WRIT} 2GCe 
155 33 CC 16F4 1079 LIG LODF,X*CC® LOAD DOOR KITH ADORESS GF DDDF *6C8) | 1608 C1 CB 15CD 1139 TIG DKERAsX*C8* NOT REACY / UNIT CHECK AFTER READ DIAG CRD ecce 
1560 £3 C9 O1 1080 S1033 SIO X*G1*,X*C9® RD HA & RO EVEN COMMAND *6Ce, 1600 CO BT OZLE 1140 B UNPACK * UNPACK *GCe 
1563 Cl CA 1563 1081 TIG #,X*Cat ATTACHMENT BUSY (WAITH *G6C#: . 161i 18 L6LL 124) DC iLEezes = READ DIAG SG6Ce 
1567 Ci C8 1582 ioez TIO CKER2,X*"C8* NOT READY/UNIT CHECK 722 *6Ce! | 1612 173F 1613 1142 DC ALZIDSNSE} ¢ BYTES SG6Ce 
1083 1614 176F 1615 1243 OC AL2{(PSNS} ¢ 0-23 SECe 
1083 be as 1616 CO 87 O214 1144 6 PRINT © PRINT HEADING FOR *6ce 
1566 38 02 1705 1084 TBN ODOF,X*O2° CHECK FOR DEFECTIVE PRIBARY TRACK #G6Cti « L6LA &3 I6iA E145 DC xXLEf Sse * READ OFAG *6Ce 
I56F F2 10 1A 1085 ST PRIDEE JUMP TO ALTERNATE TRACK GC. 16168 1D L616 1146 BDC ALLIRDOGE-RDNGS? =¢ BYTES S6Ce 
1086 ; 162C 1666 161D 1147 OC AL2(RDOGE} € 0-22 #6Ce 
1086 161E CO 87 O2EA 1146 B PRINT * PRINE *6C% 
Fi ae 1572 1087 L1033 EQU = *GCe. 1622 62 1622 1149 oc xXLi*s2e * READ OIAG *6Ce Ls 
1572 31 CE 16F2 1088 LIO LDOCFsX*CE® LOAD DDCR WITH ADORESS OF DDCE *G6C* .. 1623 36 1623 1150 DC {£148 & BYTES sECe 
1576 31 CC 16F8 1089 LIG LBUFeX*CC® LOAD DODR WITH ADORESS GF oBUF *26ce (. 1624 176F 4625 1151 DC AL2(PSNS? + 0-23 *6C% 
1S7A F3 C9 00 1090 ROWRT SIO O.x'C98 RO/WRT KEY CATA (C9/CA} *6Ce 1626 CO 87 0222 1252 8 HALT eG6Ce 
1570 Cl CA 157D 1091 TIO #,X*Cat ATTACHMENT BUSY (HaAIT} *cce 162A FFOF 1628 1153 OC XL2°*FFOF* sEC* 
1581 Cl CS 1588 1092 TYO OKER4S,X*CB8* NOT READY/UNIT CHECK aGCe & 162C CO 87 O216 1154 BLINK 
1585 35 G2 1349 1093 L OISKXa@eXR2 SET-UP XR2 FOR RETURN TC CALLER *6C* 1155 . 
3589 £0 87 O1 1094 B  2€—XR2) RETURN TC CALLER *G6C* 1155 
1095 Cc 162F 1156 STATST EQU *-1 s6ce 
158C 1096 PRIDEF EQU * *6Ce 1630 GOE2ZE3CLE3E4E240 1649 1157 STATOF OC CL26*° STATUS BYTES 0,1 ARE XXKX* *G6C® 
158C 3C 03 1705 1097 MVI ODOF,xX*Ol*® SET-UP FLAG BYTE FOR ALTERNATE e6Ce 5. 1638 C2E8E3C5E240F06B 1157 
1590 3C OL 16F8 1098 MVI DDOCFeX*O1* SET-UP FLAG BYTE FOR ALTERNATE *GCe .. 1640 F140C 1D9CS60ETET 1157 
1594 Ci CA 1594 1099 TIO #ex*CAe ATTACHMENT BUSY (HAITI *G6Ce 1648 ETE? 1157 
1598 31 CE 16F4 1160 LIO LODFsx*CE* LOAD DOCR WITH ADDRESS OF DODF +cC* 1649 1158 RDDGS EQU e] *6Ce 
159C F3 C8 00 1101 SIG Ox*CB* SEEK COMMAND ON ALTERNATE *Gc# | 164A 4£009C5C1C440C4C9 1666 1159 RDDGE OC CL29* READ DIAG STATUS BYTES aRE *° *6ce 
iS9F C1 C9 159F 1102 TIG #,xX*C98 SEEK BUSY 2772 (WAIT) *GCe 1652 C1C740E2E3C1E3E4 1159 
1543 Ci CA 1543 1103 TIO &.X°CAe ATTACHMENT BUSY (HAIT} *Gce 165A E240C 2E 8E3C5E 240 1159 
LSAT C1 CB 15C4 1104 TEO DKER9,X*C8* NOT READY / UNIT CHECK AFTER SEEK CMD *GC* i. 1662 ©109C54040 1159 
15AB CO 87 1560 1105 B $1033 GO TO ROD HA & RO ALTERNATE *GC* . 1666 1160 PD30 EQU %—-2 *cce 
1206 : 1667 40C4C9E2D240C4D9 1674 1161 DC CLI4* DISK DRIVE 2° *G6Ce 
; 1106 166F CIE5SC54040F2 2161 
15AF F2 87 21 1107 OKNR J = PRINR # PRINT NOT READY / UNIT CHECK *G6C* 1675 4ODSD6E34S0D9C5C1 168L 1162 OC CL24* NOT READY / UNEY CHECK ¢ *G6Ce 
- 1108 167D C4E8406140E4D5C9 1162 
1108 1685 €340C3C8C5C3D240 1162 
1582 OC 13 16A0 1684 1109 OKER2 MVC PD31{(20),PD35 * MOVE AFTER READ HA £& RO *GC* 168D 4040404040404040 16A0 1183 PD31 OC CL20° ® *6Ce 
1588 F2 87 18 1110 ~ J = PRTN® * NCT READY / UNI¥® CHECK *GC* 1695 4040404040604040 2163 
Lil 169D 40404046 1163 
Lilt 16A1l 40C1C6E3C5094009 1684 116% PD35 OC CL20" AFTER READ HA E RO. ¢ *G6C* 
1585 OC 13 1680 16C8 1112 OKER4 MVC PD31620),°D43 * MOVE AFTER READ RO/WRT CHD *GC# 16A9 €5C1C440C8C1i4050 1164 
15C1 F2 67 OF 1113 J - PRTWR * NOT READY / UNIT CHECK *G6C* < 1681 4009F048 1164 
1114 16B5 40C1C6E3C5D94009 26C8 1165 PD43 DC CL20* AFTER RD/WRT DATA o°* *6Cse 
1114 e 168D C461E609E340C46C1 1165 
15C4 0C 13 16480 160C LLIS DKERO AVC PO31(20).PD46 * MOVE AFTER SEEK COMMAKD *6c*e © 16C5 £302404B 1165 
L5SCA F2 87 06 1116 J - PRTNR * NOT READY / UNIT CHECK *GCe 16C9 4OCICGE3SCSD940E2 16DC 1166 PD46 DC CL20* AFTER SEEK COMMAND. * *6Ce 
1117 fe 1601 C5C5D240C306D406 1166 
1117 wr 1609 €105C44B 1166 
DATE 29AUG75 O7NOV7S PROS ID Fet-1 C“pate 29AUGTS OTNOV7?S) lt PROG 10 FFT<1 
EC NO. 827804 827805 PAGE 12 EC NO. 827804 627805 PAGE 12a. 
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IBM MAINTENANCE DIAGNOSTIC PROGRAR PaRT NOe 4248241) 184 MAINTENANCE OLAGNOSTIC PROGRAR PART NO. 62708241 
PAGE 13 | Cc 7 PAGE 134 
FF71 DISK ERROR RECORDING ANALYSIS PROGRAM |  FET2 DESK ERRGR RECORDING ANALYSIS PROGRAR 
fs 
ERR LOC CBSECT CODE ADOR STMT SOURCE STATEMENT | ’. €RR LOC OBJECT Cope ADOR STMT SOURCE STATEMENT 7 
2600 40C1CGE3CSD94009 16FO 1167 PB48 BC CiL20* AFTER READ DIAG CHRD?e #603) “, 3211 SSOCLASHECSS SSHRESSISESSSSSSKSSHKLSSSSE TECHS VSVT SHOEI VHVVSCOVSNVVGVESASELES 
16ES C5C1C440C4C9C1C7 1167 | e 1212 ° ¢ 
16ED 40C3D4C4 aie? a * ROUTINE 3 - PRINT 3340 USAGE AND ERROR SUMMARY TABLE . 
116 * 
1266 & 12iS PISSCLRSEVSSKFSSLSSSS SHS SCRE SSFSSSS SHES SRTRSOROSTESSSS EAS CLSESSRLSEKS ITER AE LLG 
L6F1l 16F6 16F2 1169 LDOCF oC AL2(00CF} ADDRESS LEFT-MOST BYTE GF DDCF 36C% 1216 * 
16F3 1705 16F4 1270 LDDF 0c AL2(DDOF? ADDRESS LEFT-MOST SYTE OF DOCF eGCs 1217 * ROUTINE PREFACE 
iéF5 170F 16F6 i172 LDOCX oC AL2(DDCX) ADORESS LEFT-NOST BYTE OF DOCK ioDce) scce, © 1218 © 
L6FT 2623 16F3 1272 ULBUF ec AL2(OBUF) ADDRESS LEFI-MOST SYTE OF OBUF *6CF i770 03 1770 1219 $R™N3 OC XL L038 ROUTIAE NUMBER 
16FS 1726 AéFR 2272 LSNS oc ALZ(OSNS) ADDRESS LEFT~-HGST BYTE OF OSHS *6Ce) i772 co L777 1220 oc XL1°00? ROUTINE FLAGS 
LLZH SESSRSSSPESESESHSSAREAD/WRITE KEY-DATASSSEasecesaseesesasessseeEssseGCe, (| i772 1B0E 1773 1221 pc ALZ(SRING) ADDRESS GF NEXT ROUTINE 
L175 ® ODCF *F *CC * HH *®R * KL * DL &N ¢ 8 DISK DRIVE *6C%: 1222 
LLIG CHHVSESKALSSRESKELSEASSRESSSRKRSESLROSFSVSLSKTAKSSSTSSR CONTROL FIELD SGC i UZ 23 mmm mn ee er rer eee cn een eneerene enemas memeeranenenanteeinabt saercrweamuieeaee 
16FB LIT? ODCF GUS ue a ae Secale 1224 * ROUTINE INITIALIZATION 
16FB 00 16FB 1178 DC x 1225 @ 
16FC 0000 16FD 1179 DC XL2*008 STL ANOEN ce | , eee ro LTTS 36 00 2188 1226 MVI SEND,O RESET ALL PRGGRAM ENDICTORS 
16FE 0000 I6FF 1186 DC XL2°00 Gece, { io7 s 
1700 00 1700 1181 oc eek. RECORD o re eae 1778 CO 87 1D2D L226 $R5 8 SREGIN PERFORM COMMON INITIALIZATION 
I i 
1701 60 170k 2182 pc XL1+0 : KEY LENGTH EO! oe 1229 ; 
1702 0000 1703 1283 BC XL2'G0 DATA LENGTH CONTROL ce ¢ 277C CC O1 218C 21A9 1230 HVC 830 SC YL0.295$?209 INITIALIZE 3340 CYLINDER ADDRESS 
1704 06 1706 1186 dc XLitOt COUNT FIELO *6C* 1782 OC Cl 218E 2146 1231 “VC $HDI2).SP1 INITIALIZE 3340 HEAD ADDRESS 
1704 L185 DDCFE EQU #-1 *6C4 ssi 788 3C 06 218F 1232 MVE SPTRYG INITIALIZE LOG RECORD POINTER 
LIBS SVSESHAOSSRLVSESASSELHAZOVOSR READ HA & RO SRSSSASELSELESSSESITEASESBRISBSSR GCS ft 1233 2 
1705 1287 DDDF Eau ¢ *6C# ifec CO 87 1005 1234 a $i9 READ FIRST LOG RECORD FROM 3360 
1705 9000000000000000 170E 1188 DC XL1076* * DISK DRIVE DATA FIELD FOR READ HAE RO SGCe 1225 2 
170D coco 1188 TES 1790 C2 G1 2203 1236 La $PBUF » $XR1 PRINT BUFFER ADDRESS TO INDEX REG 2 
PLES BSN CSSSEBSSVSESRE AAS STASIS TREC OSS SA OREASE CES 1237 2 
i70F 1190 DDCX EgU #2 # DISK ORIVE #6C%i 1238 €-—----~. eae ee ie 
A20E oc ao Sp ee ee oe Sr nea *. ns a 1239 2 PRINT SUMMARY TABLE TITLE AND INPUT ORIVE IDENTIFIER 
1710 0000 1246 # 
i712 9000 i723 1193 oC %L2* G08 HEAD ADBRESS x F *6C* _ =: 179% 4€ 23 23 2002 1241 HYC =. 351.36 + SXR19,$NOGN BUILD 
1714 00 L714 1id4 oc MLEtOS RECORD , i *6C* §_ 1799 4 25 39 20EE 1242 MYC $7122 9$KR1) o SHOGH ViTLe | 
1715 00 L715 1195 oc XLLSO® KEY LENGTH R E *GE* 179E 4€ 00 39 2189 1243 MVC = - 5701) $XR1) 6 SDRVID LINE 
171é 0000 177 1296 GC xXL2°O08 DATA LENGTH 0 & seCe 1244 ¢ 
1718 00 i7i8 1197 oc XL1¢Q# COURT t D e6CH © 17A3 CO 8? 6214 1245 5 SPRINT PRINT 
i718 12198 ODCZ EQU — 1 * FOR READ HA & RG *6C% LTAT 42 LTA?T 1246 ne KLL*HzZeE VITLE 
171i$ 9005 17iA 2199 DOZL oc RLZ*C00Rs F5DATA LENGTH®® FOR READ HA & RO s6Ce L7AGB 3A 17AB 1247 pc IL1'Se* 2 INE 
1208 SELSELSSKASSEAESELS LHSSSARORIS LSE ASH S VHFHASCKESLSLIGSSREIKGS 4 O4HSOF HSEHOGCS tS 37A9 2238 L7AA 1248 DC AL2Z(SPS8UF45S73 : 
i71B Ca 1718 1203 DRV32 TC xXLI'CEe? * DISK ORIVE ADORESS BITS ORIVE 2 460% 1728 FFOG 17aC 1249 oC AL2($Hi,T00) 
L7IC OCOOCGOOGOGCOOO! 1725 1202 ODCFR OC XLIO*O000000C0000N0001NDNDN* * INITIAL VALUE FOR DOCE 260% C 1250 * 
1724 0000 2202 i 1251 © ste ae aan neetenen ncmneeenae Sorceress eceinastr apr tne tte 
1726 i708 1727 1203 AREC# OC ALZIDDDF4S) % ADORESS FOR ALTERNATE RECORD #@ USED.*G6C¢ ; 1252 PRINT SUNMARY TABLE MEASDING LINES 
12646 FERETREISESRERSE SEL HS SHEGCHALTS SESFES SSS ISSVOCSLSAEAFHVLGSESSSELESEKGSHTAGSIGCE | c 1253 3 
1205 -£ "  47ap 7e SC 68 1254 MVi =: 104 1g SXR1LG OC tRE BUILD FIRST 
tone 1780 SC 67 67 68 1255 MYC =»: 103410%,5XR1),304%s$XR1) LINE OF SUMMARY TABLE 
i gt. 1256 3 
1728 1206 SSNS equ ¢ scce| C  7Bq CO 87 OZ1A 1257 8 SPRINT PRINT FIRST 
alee ace ion ence Be ee Secs! 1788 01 1788 1258 oo = xLASQ1° LINE OF SUNRARY TABLE 
7 ) ~. 1789 69 1789 1259 oc ILI¢105¢ 
1209 *#ereereeoas4% END OF O1SK 2/60 FER 3340 soaeasesesacessseseceeeseesegcs| ko 178A 2269 27BB 1260 DC AL2(SPBUFS1063 
1261 # 
c.  2BC TC 40 67 1262 MVI =: 1031,$XR13-C*® * CLEAR 
~~"  -17BF SC 65 66 67 1263 HVE =: 102(2024xXR1921030,SxRi} PRINT BUFFER 
. 1264 ¢ : 
‘= 1703 70 SC 08 i265 MYVI 61 2SKRED2C 888 BUILD 
(Le 2906 PO 5C GF 1266 BVI =154,S5KR19 Cee? SECOND 
1769 7C 5C 18 1267 MVI = -240.$XR19 C884 LINE OF 
oa 1WCC FC SC 32 1268 MVI SOC »SXRLD QC PME SUMMARY 
i y7eF 70 SC 3 2269 HVi 634, SERLP Cees TABLE 
1702 7C SC 52 1270 BVI «= GZ2L SXRLE Chee 
. 17DS 7C 5C 5C 1271 HVI —- O20, SXRiD Cee 
es 1708 4C 64 15 20F3 1272 MVC =. 2105 9 SXRLD CSNGTH 
17DD 4 OF 2C 2103 1273 MYC 44116 58XR1} pSHOSN 
: #2 17E2 4C 03 3A 2107 1274 HVC = 5 8 4 oe SXR1E p SMO9ES 
> «LVET 4 03 4A 210C 1275 HVC =—- 744 4e SXAL} 9 SMLON 
17EC 4C 04 59 2112 1276 MVC = 8915 53XR1) o$H21N 
. gm  42TF1 &€ 0% 6@ 2112 1277 MYC =: 100155 3XR1) 9 $118 : 
| eS 1278 2 
DATE 29AUG75  OTNOVT7S PR06 19 FF7-1 Cpate  20aus75 so ?nnv7s PROG 1D FET<1 . 
EC NO. 827804 827805 PAGE 12. €C NO. 827806 827805 PAGE LBA 
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PAGE 14 | c PAGE a ©) 
FF71 CISK ERROR RECORDING ANALYSIS PROGRAM FFL OFSK ERROR RECORDING ANALYSIS PROGRAM 
€RR LOC GBJECT CODE ADDR STMT SGURCE STATEMENT —. €RR LOC OBJECT CODE ADDR STHT SOURCE STATEMENT 
17&6 CO BY 0214 1279 8 SPRINT PRINT SECOND f~ 1347 2 
L7FA O01 17FA 1280 oc XL1¢*OL° LINE OF SUMMARY TABLE - 18Ai 3D F2 2193 1348 CLI SDRV.C*2* CONTINUE PRINTOUT IF DRIVE ¢ 
17FB 69 17FB 1282 oc IL1°305¢ 18A5 F2 04 10 1349 JNH $R58 SURMARY HAS NUT YET BEEN PRINTED 
L7FC 2269 i7FD 1282 oc AL2($PBUFS104) - 1350 ¢ 
1283 @ 8 28A8 SC 66 67 66 1351 AVC 1£031103,$KR1)¢1041,$XR1) SUILD LAST LINE OF SUMMARY TBL 
LTFE 4C 02 04 2114 1284 MVC = @ 13 SXRD SRL2ZN BUILD 1352 ¢ 
1803 4C 05 0D 211A 1285 MVC =: 13 (6 9$XR1)-SML3N THIRD a.  ESAC CO 87 O21A 4353 8 SPRINT PRINT LAST LENE 
1808 4C 05 16 2120 1286 MVC =. 22 (6 gp SXR1) gp SM14ON LINE OF \.7 «ABBO 06 1860 1354 oc XL1°G6* GF SUMMARY TASLE 
1800 4C 16 30 2137 1287 MVC 48(235$XR1)>.$M25N SUMMARY 1881 69 1881 1355 oc ILi*105° 
1812 4C 05 38 2103 1288 M¥C 5916 $XR1),$HOBN TABLE 1882 2269 1883 1356 pt AL2( SPBUFELOG) 
1817 4C 05 48 2103 1289 MVC 3 =—s- 75 (6 » $XR1) - SMOEN oes 1357 % 
181C 4C 04 59 2108 1290 HVC 89(5¢$XR1),SHOON 1884 CO 87 1778 1358 8 SRS GO CHECK FOR MORE INPUT ORIVES 
1821 4C 08 66 2140 1291 MVC =—«-: 10219 9 S$XR1),SH16N ai 1359 ¢ 
1292 3# | SF 3360 @-~——.— LE LET I I 
1826 CO 87 021A 1293 B SPRINT PRINT THIRO 1361 ¢ LOCATE AN UNUSED LOG ENTRY FIELD 
1824 OL 182A 1294 oc XL1°01° LINE OF SUMMARY TABLE ro 1362 ¢ 
1828 69 1828 1295 oc 1L2°105¢ S 188s 3¢ 00 2186F 1363 $R5B MVE §PTRLO POINT TO FIRST LOG ENTRY FIELD 
182C 2265 182D 1296 oc AL2($PBUF4104) ; 1364 ¢ 
1297 * ~.  18BC CO 87 1005 1365 $RSBL 5 $18 READ LOG EXTaY 
182E 5C 02 04 05 1298 MVC = 403 $XR1) 950 eSXR1) BUILD Se: 1366 © 
1832 5C 05 OD OE 1299 MYC 836, $XR199 140 eSXR2) FOURTH 28CO 3D 00 21C€2: 1367 CLE S$REC,O BRANCH IF 
1836 &C 95 16 2146 1300 MVC = 226, $XR1L) » S$HLIN LINE OF oh 18C4 F2 81 12 1368 JE SRSc ENTRY ES UNUSED 
1838 4C 09 23 21546 1302 MVC 35(109$XRi}eS$MIBN SUPBARY (2 1369 % 
1840 4C 09 30 2156 1302 MYC 48(105$XR1}5SMLEN TABLE 18C7 OF 00 21L8F 22A6 1370 ALC $PTRE1} »$P2 ADVANCE LOG ENTRY POENTER 
1845 4C 09 3D 2156 1303 MYC 51(10¢$XR1L)¢$HISN c 1371 2 _ 
184A 4C OF 50 2156 1304 BY¥C 800169$XR1)5SH16BN 7 28CO 3D BF 218eF 1372 CLL $PTR,IOL BRANCH If MOT 
184F 4C 06 SA 2150 1305 MYC 9017 eSXRi} oe SMIGN 1801 CO 82 188¢ 1373 gt $25Bi YET END OF LOG AREA 
1854 SC 08 66 67 1306 MYC 10269¢$XR1}_,1036,$XR1} 1374 * 
1658 46C 03 63 2161 1307 MYC «=: 99.14 yp $XR1) eo SHZON c 1805 3C G& 21aF 1375 HUI $PTRed ASSUME LOG AREA ES FULL . 
1308 ¢ 1376 ¢ 
i185D CO 87 O21A 3309 8 SPRINT PRINT FOURTH = 1377 %——~---- I RD 
seek 186i 01 1861 1310 pe XL1°OL? LINE GF SUMMARY TABLE wai 1378 ¢ LOCATE OLDEST LOG ENTRY 
1862 69 1862 1311 oc rL1°105° 1379 & os 
1863 2269 1864 1312 oc AL2($PBUF4104) cS: 1809 3¢ 90 2198 1380 $R85C RYE &sCTReC INITIALEZE LOG ENTRY COUNTER 
1313 © é 138i * 
1865 5C 66 67 62 4314 MVC 203€103¢$XR1}2106(s$KR1} BUILD LAST HEADING LINE 18DD CO 8? 1905 1382 SRSCL 8B $10 READ LOG ENTRY 
1315 2 : 1383 @ . 
1869 CO B87 O21A 1316 - 8B SPRINT PRINT LAST LINE 6: 18E1 36 OO 21C1 - 1384 CLE S$REC2O BRANCH IF 
186D 01 1860 1317 oc XL1*°O1° OF SUMMARY TABLE HEADING 18E5 F2 01 30 1385 JNE $R5C3 ENTRY ES USED 
186E 69 186E 1318 oc IL1°105° rc 1386 © 
186F 2269 1870 1319 - oc AL2(S$PBUF4104) ed 18E8 OF 06 21i8F 21A6 1387 ALC $PTRC1L).SP1 ADVANCE LOS ENTRY POINTER 
1320 # 18EE CE GO 2198 2146 1388 ALC SCTRI1)-S$Pi ADVANGE LOG ENTRY COUNTER 
1871 3C Fl 2193 1322 MVI =: SORV, CG INITIALIZE ORIVE IDENTIFIER we 1389 2 
1322 © {- 184 3D BF 216F 1390 CLI $PTR,192 BRANCH IF NOT 
1323 #----—--~— meen ae n-ne eee woe manne nnn 18FB F2 82 04 1392 Jt S$R5C2 YET END OF LOG AREA 
1324 @ PRINT SUMMARY TABLE SPACE LINES at 1392 % 
1325 ¢ Pe 18FB 3C 00 216F 1393 mY! SPTR>O0 WRAP BACK TO FIRST LCG ENTRY 
1675 TC 40 67 1326 $RSA MVE 1030 ¢$XR1},C* * CLEAR 1394 @ 
1878 5C 65 66 67 1327 MVC 1026102 9$XR1),103{ »$XR1} PRINT BUFFER es 18FFE 3D BF 2198 1395 $RSC2 CLI $CTR,192 GO YO CHECK NEXT LOG IF ALL 
1328 * € 1903 Co 82 18DD 1396 BL $eR’ i ENTRIES HAVE NCT YET BEEN CHECKED 
187C 7C SC 06 1329 MVE = 6 (p $SXR1) CAS? POSITION 1397 * - 
187F 7C SC OF 1330 MVE «—s- 154 pe SXRLPAC HSE ASTERISKS : 1907 4C 05 OD 2167 1398 MVC =—«-: 13 1p $XR19SHZIN BUILD *NO LOGS MESSAGE 
1882 7C SC 18 1331 HVI 244,$XR1},C%e! IN PRINT ; @ 1399 @ 
1885 7C SC 25 1332 HVE «=- B70 eSRRLEC OS! BUFFER 1S0C CO 87 O21A 1400 8 SPRINT PRINT "NO LOG* 
1688 7C SC 32 1333 MVE 50(s$KR1),CtS* 1910 01 i910 1401 pc xLLtOL¢ MESSAGE IN TABLE 
1888 7C SC 3F 1334 MVI 63¢9$XR1),C te? , . €3 ei. 69 1911 1402 pc 112°105* | WM ae Se 
188E 7C SC 52 1335 MVE 62¢,$XR1},C%#* 1912 2269 1913 1403 oc ALZ(SPBUFCLO4) ei 
1691 7C SC 5C 1336 © MVI 920,$XR1),C°%H? 1404 2 
1337 2 \ C1914 CO 87 LAFS 1405 B SRSN GO TO PROCESS DATA FOR NEXT OREVE 
189% CO 87 O21A 1338 8 SPRINT PRINT SPACE LINE | 1406 @ 
1898 01 1698 1339 Doc XL1°O28 1918 OC 00 2194 218F 1407 $R5C2 MVC S$PTRFC 1) 2SPTR SAVE POINTER TO OLDEST LOG ENTRY 
1899 69 1899 1340 oc IL1*105° 1 G 1408 * 
189A 2269 18SB 1341 oc AL2($PBUF41 06) | 1409 @-—----- “= a aaa aS 
1342 % 1410 * CHECK FOR NEW VOLURE IDENTIFIER 
1343 ¢------. ~ - - © 1411 % 
op * BEGIN / END SUMMARY PRINTOUTS . 191E OC 00 2195 218F 1412 $R5D HVC SPTRX(LDSPTR SAVE CURRENT LOG ENTRY POINTER 
= 1413 
189C 4C 00 03 2193 1346 MYC 3%15$XR1)-SORV MOVE ORIVE 10 TO PRINT BUFFER ie a) 1926 4C 05.0D 21C6 : 1414 MVC  1346,$XR1)eSRECOS HOVE VOLUME ID TO PRINT BUFFER 
{ 
i 
DATE  29AUG7TS  O7NOVTS ° -  pROG 10 cer-1; Cpave 29075 ——OTNOVTS . PROS ID FF7~1 
—€C NO. 827804 827805 PAGE 16 EC NO. 827804 827805 PaGE . 214A- 
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PAGE ic : PAGE 15A 
FF71 DISK ERROR RECORDING ANALYSIS PROGRAM | FF7L DISK ERRGR RECORDING ANALYSIS PROGRAM 
& 
ERR LOC GBJECT CODE ADDR STMT SOURCE STATEMENT |< ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT : 
1415 * | - 1483 * 
1929 OC 00 218F 2194 1416 MVC ss SPTR(.1) e SPTRE POINT TO GLDEST LOG ENTRY | €° ype 38 80 2102 1484 $R5E3 TEN $REC+17,$B81TO CHECKED LOGGED SNS BYTE 1 
1417 * | 19DD F2 90 03 1485 JF $RSE4 BRANCH IF NOT PERMANENT ERROR 
192F OD 00 218F 2195 1418 $R5DI CLC = $PTR(.1),$PTRX BRANCH IF ae 1486 * 
1935 F2 81 23 419 . JE $R5E NEW VOLUME ID | &  -19EO E2 02 06 1487 LA 6 $XRZ) 9 SXRZ_ ADVANCE POINTER TO ®PERM® COUNTER 
1488 * 
1938 CO 87 1005 zazt . B $19 READ LOG ENTRY 1c ISEB 86 30 GO 21AD 1489 $R5E4 AZ O(4-$XR22,$D111) INCREMENT ERROR COUNTER 
a 1490 * 
193C 4D 05 OD 21C6 1423 CLC =: 13 fy $XR1),$RECHS BRANCH IF VOLUME | 19E8 OF 00 218F 21A6 1491 $R5E5 ALC $PTR(1),$P1 ADVANCE LOG ENTRY POINTER 
1941 CO 81 1ABB 1424 BE  3R5F WAS PREVIOUSLY PROCESSED lo 1492 # | 
1425 * {..  19EE 3D BF 218F 1493 CLI $PTRe191 BRANCH IF NOT 
1645 O£ 00 218F 21A6 1426 ALC SPTRO1)9SP2 ADVANCE LOG ENTRY POINTER | 19F2 F2 82 04 1494 JL SRSE6 YET END OF LOG AREA ; 
1427 * : 1495 # 
a3 20 oF 210% 1428 cur sPTRs192 BRANCH IF NOT : €" 19F5 3c 00 218F 1496 MVI —- $PTR+0 WRAP BACK TO FIRST LOG ENTRY 
2 L $R5D1 YET END OF LOS AREA 1497 * 
1430 * | = 19F9 OD 00 218F 2194 1498 $R5E6 CLC $PTR(1)s$PTRF BRANCH IF ALL LOG 
1953 3C 0) 218F 1431 MVI - $PTR»O WRAP BACK TO FIRST LOG ENTRY \. 19FF F2 81 19 1499 JE  - SRSET ENTRIES HAVE BEEN CHSCKED 
1957 CO 87 192F 1432 B $R5D1 GO TO CHECK NEXT LOG ENTRY | 1500 * 
1433 * .  1A02 CO 87 1DD5 1501 8 $10 READ NEXT LOG ENTRY 
1434 Ba aga i ee fe 1502 * 
1435 * COMPILE AND PRINT SUMMARY DATA LINE | 1A06 3D 00 21C1 1503 CLI $REC.0 BRANCH IF 
1436 * | ¢-  1A0A CO 81 1968 1504 BE  $R5E5 UNUSED ENTRY 
195B 7C FO 64 1437 $RSE MVE 100(,$XR1).C'OS INITIALIZE i> 1505 * 
195€ 5C 03 63 64 1438 MVC 990 49$XR1)91000e$XR1} = ALL. SUMMARY | 1AGE 4D 05 OD 21C6 1506 CLC 13 069 $XR1) pSRECHS BRANCH IF ENTRY CONTAINS 
1962 SC 04 59 64 1439 MVC = 8959 $XR1) 51004 o$XR1) LINE COUNTERS |g, 2413 co 02 19E8 1507 BNE  $RSE5 A DIFFERENT VOLUME ID 
1966 5C 03 50 64 1440 MVC 8014, $XR1),100(¢$XR1) TO ZEROS C2 1508 * 
aes 7 03 4a 50 1441 MVC 7414 ¢$XR1) 9801 5$XR1) | 1A17 CO 87 1992 1509 B $R5E1 GO TO UPDATE SUMMARY COUNTERS 
6c SC 03 44 50 1442 MVC = 68 (44 $XR1) 9800 SXRD) 1510 * 
1972 5C 69 30 50 1443 MVC 61 (109 $XR1)48049$XR1) | is , 1A1B 1511 $RSE7 EQU # 
1976 SC 16 30 4A 1444 MVC = 481 234$XR19 9741 9 $XRLI | 1A1B 3C OF 2428 1512 MVI- TABTBL»15 SETUP TABLE FOR OUTPUT 
197A 5C 03 15 50 1445 MVC 2149 5$XR1) 9606 e$SXR1) |,  JALF OC 02 2388 2341 1513 MVC - TABIDX(2)» ZERO : 
SE ae ances re? ‘ ee sear ondedeartaiy | \ = -1a25 3C 04 2389 1514 MMVI CNTLNG,X*04! SEEK COUNT IS 4 HEX SYTES LONG 
1A29 OC 01 2387 23A1 1515 MVC = CNTOFS(22,ZERO 
1982 3C 00 219€ 1448 MVE $RDCNT»0 CLEAR | p-  LA2F 34 01 1A6A 1516 ST  $SAVR1+3,XR1 SAVE XR1 
1986 OC 04 219D 219£ 1449 MVC SRDCNT-1(5), SRDCNT READ AND SEEK | aed 1433 34 02 1A6E 1517 ST SSAVR24+3_XR2 SAVE XR2 
198C OC 03 21A2 219£ 1450 MVC SSKCNT(4),$RDCNT USAGE COUNTERS 1A37 OC 03 2626 21A2 1518 MVC —- DBUF 434) 5 SSKCNT PUT SEEK COUNT INTO BUFFER 
1992 of 05 219E 22€C 1452 $RSEL ALC $ROCNT(6),SREC#21 UPDATE READ AND ee econ teas ieze ‘ Ouse piles cee caune AK dood 
9 | 19E 21 9 S$REC+ \..  -1A41 OC 04 1808 0888 1520 MVC SAVSEK(5),PRTBUF+11 DIVIDE SEEK COUNT BY 1000 
1998 O£ 03 21A2 2100 1453 ALC  SSKCNT(41,$REC415 SEEK USAGE COUNTERS | 1521 : 
1454 * ~.  1&&7 3C 06 2389 1522 MVI- CNTLNG»X*06° READ COUNT IS 6 HEX BYTES LONG 
199E 38 OF 2108 1455 SBF $REC+23—X"0F* CLEAR MSG BITS IN SNS BYTE 7 \- LA&B OC 01 2388 23A1 1523 MVC = TABIDX(2) 5 ZERO 
1456 * | 1451 OC 01 2387 23A1l 1524 MVC CNTOFS(2) eZERO 
19a2 D2 02 15 1457 LA = s-. 21 0p $XR1) 9 $XR2 POINT TO *FMT O* COUNTER |. 1457 OC OS 2628 219E 1525 MVC DBUF +5 (6)  $RDCNT READ COUNT IS NOW CONVERTED TO DEC 
1458 * \ —-1A50 CO 87 11C2 1526 B HE XDEC 
ie > = ence ees CLI apec eee =0 18: CHECK LOGGED SENSE BYTE 7 | 1A61 OC 04 180D 0888 1527 MVC -SAVRD(5) -PRTBUF 48 DIVIDE READ COUNT BY 1000000 
oa' : 460 JL SR5E4 BRANCH IF SNS FORMAT O ee 1528 
X9AC F2 64 10 1461 SH  SRSE2 BRANCH IF NOT SNS FORMAT | €& 167 €2 0 ¢ s—& 
ie | GMs ee ob Bete ey tava tk she seine Ms 
2QAF D2 02 2A 1463 LA —- 420 9 $XR1L) 9 $XR2 POINT TO ‘EQUIP CK* COUNTER | ¢_ ASF AC 04 59 1808 1531 MVC 8915, XR1) »SAVSEK PUT THE SEEK COUNT IN MSG BUFFER 
eae eeecaie 1464 * Sag) ta aee eee iM BATS 4 04 64 180D 1532 MVC =: 100(5,XR1)»¢SAVRD PUT THE READ COUNT IN MSG BUFFER 
4 ’ 1A79 7D 40 59 1533 CLI 8949 XR19 9X" 408 IF THERE IS A BLANK 
1986 F2 90 20 ae : JSF $RSE3 SEEK CHECK | C 1A7C F2 01 03 1534 JNE +6 IN THE SEEK COUNT» 
* ATF 70 FO 59 1535 MVI 8904 XRL) »X" FO? PUT A ZERO THERE 
1989 D2 02 37 1468 LA $5 p SXR1) o $XR2 POINT TO "SEEK CK* COUNTER | 1536 * ; : ; 
198C F2 87 1A 1469 J SRSE3 GO TO INCREMENT COUNTER | ~  1A82 7D 40 64 1537 CLI 1000 4XR1)9X*40" CHECK THE READ FIELD FOR BLANKS ALSO 
1470 # € 1485 F2 01 03 1538 JNE #46 
19BF D2 02 44 1471 SRSEZ LA 681 5$XR1)9SXR2Z POINT TO *CORR DATA CK" COUNTER 1488 7C FO 64 1539 MVI 100 4XR1) -X*FO° 
1472 * 1540 * 
‘ g ~ . ® e } 
Sone Bi Jag! gees Cie ay ce one 
U9C9 F2 84 IC 1475 JH = $RSES BRANCH IF SNS FORMAT 6 | 1543 * NOTE THAT THE FIRST 15 LECATIONS OF PRTBUF FIRST CONTAIN DECIMAL 
a 1476 * i ¢ 1544 ¢ VALUE FOR THE SEEK COUNT AND THEN IT WILL CONTAIN THE READ 
19CC 02 G2 10D ne : LA =—--29( g SXR1) » SXRZ POINT TO "EQUIP CK* COUNTER 1545 * VALUE--THUS THE MVC INSTRUCTIONS MAY BE USED FOR THE DIVIDE. 
47 - | 1546 # 
IGCF 3D 40 2108 «1479 CLE = SREC4#234X"40! CHECK LOGGED SNS BYTE 7 ' @ 1547 * 
2903 F2 01 03 . mass é JNE  $RSE3 BRANCH IF NOT SNS FORMAT 4 | 1A8B CO 87 1Az: 1548 8 $RSES SKIP THIS FOR DEBUG 
s es. | 1A8F OF 03 21A2 2182 1549 SLC SSKCNT(4) »$KILO “CONVERT SEEK 
‘ ; e . 
4906 02 02 “A 1482 LA —-_- P40 SXRD 9 SXRZ POINT TO "DATA CK* COUNTER | \ 1895 F2 82 09 1550 JM $RSEB : USAGE COUNT TO . 
bs | 
—@aTE 29AUGTS  O7NOWTS . , PROG ID rev-i. Coate 29AUG75 —-« OTNOV7S PROG ID FFT-1. 
‘CMO. 827804 = 827805 PAGE 15 | €C NO. 327804 827805 
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18M MAINTENANCE DIAGNOSTIC PROGRAM 
PAGE 16... ¥ PAGE 16A 
& ; 
FFT71 DISK ERROR RECORDING ANALYSIS PROGRAM FF71 DISK ERRGR RECORDING ANALYSIS PROGRAM 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT © err Loc GBJECT CODE ADDR STMT SGURCE STATEMENT , 
YA98 46 40 59 21A0 1551 Az 8915 .$XR1L) .$D2 (2) DECIMAL AND BOVE ; 5 1600 SREKERSSSSKSEKSELKSKKKSSSEKASHEESKKSES VS SES SKS STROSS SSSSSSKESCEARSS SKE SSVSSESES 
1A9D CO 87 laleB 1552 8 $RS5E7 TO PRINT SUFFER © 1601 * : . 
1553 * 1602 * ROUTINE 4 - PRINT 3340 ERROR HISTORY TABLE * 
LAAl OF 05 219E 2188 1554 $R5EB SLC S$RDCNT(6),$MEG CONVERT READ . 1603 * . > 
LAAT F2 82 O9 1555S JM SRSES USAGE CGUNT TG ‘ ! €: Y60G SERAESSKSSKARKESKKERSCSEESSTETKSKKESVE RSESNSTSRSKSSSKSTS SSSESSESISRESRSESHSLSESSCESS 
LAAA 46 40 64 21aD 1556 Az 100(5,$XR1) ,$D1(1) DECIMAL AND MOVE 1605 * 
YAAF CO 87 LAAL 1557 8 $RSES TO PRINT BUFFER ue 1606 * ROUTINE PREFACE 
1558 * & 1607 * | 
1483 CO 87 021A 1559 $R5E9 B SPRINT PRINT 1BOE 04 1BOE 1608 $RTN4 OC XL1°04! ROUTINE NUMBER 
LAB7 61 1A87 1560 DC XLL*O1* SUMMARY LINE ee 1BOF 00 1BOF 1609 oc XL1*°00* ROUTINE FLAGS 
1aBB 69 1A88 1561 oC 1L1°105° % —-«1B10 FFFF 1B11 1610 Dc XL2°FEFFE LAST ROUTINE 
LAB? 2269 LABA 1562 DC AL2($PBUF +4104) 1611 * 
1563 * ae 1612 #-—--—-——. —— 
1564 ¢---~~.-~~ ee + ——--—-: &) 1613 * ROUTINE INITIALIZATION 
1565 * SEARCH FOR NEXT VOLUME ID TO BE PROCESSED 1614 * 
1566 * > ue 1812 3C 00 2188 1615 Mvi $IND,O : RESET ALL PROGRAM INDICTORS 
IABB OC 00 218F 2195 1567 $R5F MVC OSPTR(1),$PTRX RESTORE LOG ENTRY POINTER < 1616 * 
i568 + 1B16 CO 87 1LD2D 1617 $R6 8 $BEGIN PERFORM COMMON INITEALIZATION 
1ACL O€ OO 218F 216 1569 $R5Fl ALC $PTR(1),$P1 ADVANCE LOG ENTRY POINTER 1618 + 
1570 * Ee 1B1A OC 01 218C 21a9 1619 MVC = SC YL (2) » $P209 INITIALIZE 3340 CYLINDER ADDRESS 
LACT 3D SF 216F 1571 CLE $PTR»i191 BRANCH IF NOT 1820 OC O01 218E 2146 1620 MVC «© $HD(23,$P1 INITIALIZE 3340 HEAD ADDRESS 
1ACB F2 82 04 1572 Jt $RSF2 YET END OF LOG AREA : 1B26 3C 00 218F 1621 MVI = $PTR,O INITIALIZE LOG RECORD POINTER 
1573 *« a. 1622 # 
1ACE 3C OO 21eF 1574 MVI $PTR.O WRAP BACK TO FIRST LOG ENTRY ! 1B2A CO 87 1DD5 1623 8 $10 _ READ FIRST LOG RECORD FROM 3340 
1575 * tee 1624 * 
LADZ2 CD CO 218F 2194 1576 S$RSFZ CLC $PTRI1),$PTRE BRANCH IF ALL LOG 1 €° aaze c2 01 2201 1625. LA SPBUF »$XR1 PRINT BUFFER ADDRESS TG INDEX REG 1 
1AD6 F2 81 19 1877 JE SRSN ENTRIES HAVE BEEN CHECKED | 1626 * 
1578 * | 1627 *-—~~-----———_-__-.. -—-- 
_ 1808 CO 87 1055 2579 5 $10 READ NEXT LOG ENTR? © 1628 * PRINT HISTORY TABLE TITLE AND INPUT ORIVE IDENTIFIER 
1580 * 1629 * 
LADF 30 60 21C1 1581 CLI =SREC+0 BRANCH IF i. 1832 4€ 15 15 2008 1630 MVC =. 21224 $XR195SMOSN BUILD 
_ TAE3 CO 82 1ACi 1382 BE $R5F 1 UNUSED ENTRY fee 1837 4C 15 28 20EE 1631 MVC 43(225$XR1}_,SMO6N TITLE crane aeaccsegact 
1583 * | 1B83C 4C 00 28 2189 1632 MVC 4311,$XR1).$ORVID LINE 
LAET 4D 065 OD 21C6 1584 CLO 1346,$XR1),$REC+S BRANCH IF ENTRY i 1633 * ; 
LAEC €O 81 Lath 1585 BE SRSF1 CONTAINS SAME VOLUME ID E apaa CO 87 O21A 1634 8 SPRINT | PRINT 
1686 * | 1845 42 1B45 1635 oC XL1¢42¢ TITLE 
tAFG CO 87 ISLE 1587 8 SRSD GO TG CHECK IF NEW VOLUME ID | 1846 2C 1B46 1636 DC IL1°44¢ LINE 
1588 ¢ | €& ps7 222¢ 1B48 1637 DC — AL2( $PBUF +43) 
1589 »----— a ee 1B49 FFOS 1B4A 1638 oc AL2($HLTOO) 
1600 * PREPARE TO PRINT SUMMARY FOR NEXT DRIVE ID 1639 * 
apya 5 & 1640 #--—-—----——— 
LAF4 CE 00 218E 2146 1592 SRSN ALC  5H011).$P1 ADVANCE HEAD ADDRESS | 1641 * PRINT HISTORY TABLE HEADING LINES 
_1LAFA 06 00 2193 21aD 1593 Az SORVIL) »$D1 01) ADVANCE DRIVE IDENTIFIER | 1642 * 
1594 # | €> 1p4B 7 5c 5D 1643 MVI - 9309 $SXR1),COe? BUILD FIRST 
1808 €O 87 1875 aoa 8 SRSA GO TO COMPLETE SUMMARY TABLE ? 1B4E SC SC SC 5D 1644 MVC = 92(93_$XR1)993leSXR1) LINE OF HISTORY TABLE 
Ss! 1645 * 
1804 of00000000 1808 1597 SAVSEK DC xL5*00! Me 1852 CO 87 021A 1646 B SPRINT PRINT FIRST 
1869 0660000000 186D 1596 SAVRO DC XL5*CO0* | 1B56 O1 1856 1647 oc XL1°O1* LINE OF HISTORY TABLE 
is 1BS7 SE 1857 1648 OC IL1*°94¢ 
: co lpse 225E 1859 1649 DC AL 2( $PBUF+93) 
. 1650 * 
hoe. 165A 7C 40 SC 1651 MVI 9204$XR19,C* * CLEAR 
| C. 185D 5C 5A 5B SC 1652 MVC =—«- 9.1.91 4$XR1) 4924 eSXR1) PRINT BUFFER 
1653 * 
br ee 1B61 7C SC 06 1654 MMVI —s- 6 Uy SXR17,C 8H? BUILD 
| t 1864 7C 5C OF 1655 MVI 15(e$XR1),C%&*! SECOND 
1B67 7C SC 1A 1656 MVI = 260.5$XR1) C8? LINE OF 
| c 186A 7C 5C 25 1657 MVI =—- 3709 SXR1),C°#* HISTORY TABLE 
ir 1656 * 
| 1B6D CO 87 021A 1659 8 SPRINT PRINT SECOND 
| 1871 O1 1B71 1660 oc XL1¢°Q1° LINE OF HESTORY TABLE 
C:sos72 se 1B72 1661 DC IL1*94¢ 
| 1873 225€. 1874 1662 oc AL 2($PBUF+93) 
~ C: 1663 * 
~  1B75 4C 02 04 2114 1664 MVC «= 43s $XR1L} -SM1LZN BUILD 
187A 4C 05 OD 21.4 1665 MVC =: 1316 $XR19 4 SM13N THIRD 
res IB7F 4C 03 16 2168 1666 MVE =—«s- 22 (49 $SKR1) e SMZ2N LINE OF 
| &- 1884 4€ 03 21 2326F 1667 MVC =: 33.45 $XR1) 9 SM23N HISTORY 
{ , 
DATE 29RNGTS STNOVTS ? 3 PROS ID Fev-1| [pate —- 20aus75 = s OTNOTS 3 PROG ID. FFT-1, 
EC #0. 827806 S27605 . PAGE . 16,  §C NO. 827804 827805 PAGE 16A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART WO. 4248241 18M MAINTENANCE DIAGNOSTIC PROGRAM PART NOw 4268261 
PAGE Fo ee PAGE iva 
FF? DISK ERROR RECORDING ANALYSIS PROGRAM FFT71 CISK ERROR RECORDING ANALYSIS PROGRAM 
ERR LOC OBJECT CODE ADDR STMT SGURCE STATEMENT %. ERR LOC O8JECT CODE ADDR STMT SQURCE STATEMENT 5 
1889 4C 1A 4E 2069 1668 AVC T8627 5SXR13_4$MO2N TABLE a 1C08 F2 61 12 1736 JE S$REC ENTRY IS UNUSED 
1669 * q 1737 # 
1B8E CO 87 O21a 1670 B SPRINT PRINT THIRD iCOB OF OO Z218F 2186 1738 ALC SPTRELD eo SPL ADVANCE LOG ENTRY POINTER 
1892 O1 1892 1671 DC XL1*O1¢ LINE GF HISTORY TABLE . 1739 * 
1893 SE 1893 14672 oC IL2°945 k. 1ClLi 3D BF 218F 1740 CiI $PTR,191 BRANCH IF NOT 
1894 225E 1B95 1673 DC AL2($PBUF+93} 1Ci5 CO 82 1C00 L741 BL $ROB1 YET END OF LOG AREA 
1674 * ite 1742 * 
1896 5C 02 04 05 1675 MVC 43 9$KR19 550 9$XR1) BUILD iGo 1C1$ 3C 00 218F 1743 MVE = $PTR,O ASSUME LOG AREA IS FULL 
1B9A SC 05 OD OF 1676 MVC 13065$XR1) 5140 ,$XR1) FOURTH ; 1744 3 
1B9E 4C 07 18 217F 1677 MVC 24(85$XR1)_e$M25N LINE CF i 1745 #-~~~-~-~~----- ek. - a ee 
1BA3 4C O07 23 2187 i678 MVC 35(8s$XR1),$M26N HISTORY | c: 1746 *% LOCATE OLDEST LOG ENTRY 
1BAB 4C 34 55 209E 1679 MVC 91(535$XR1),$MO3BN TABLE 1747 #* 
1680 * Me we iC1iD 3C oO 2198 1748 $R6C MVE $CTRO INITIALIZE LOS ENTRY COUNTER 
2BAD CO 87 0214 1681 8 SPRINT PRINT FOURTH f. 1749 * 
1881 Oi 18B1 1682 Doc XL1"0O)° LINE GF HISTORY TABLE 1021 CO 87 1DDS 1750 $R6C1 8B $10 READ LOG ENTRY 
1862 SE iBB2 1683 DC 1L1*#94! a 1751 ¢ 
1883 225€ 1BB4 1684 oc AL 2($PBUF+93) 4 1625 3D CO 21C1 1752 CLI S$REC.O BRANCH IF 
1685 * iC29 F2 01 30 i753 INE $R6C3 ENTRY IS USED 
1885 SC 5B SC 5D 1686 AVC = 92192 9 $XR1),930-$XR1} BUILD LAST HEADING LINE — 1754 2 
1687 * ; 1C2C OF 00 218F 2146 1755 ALC SPFROL), SPL ADVANCE LOG ENTRY POINTER 
1889 CO 87 021A 1688 B SPRINT PRINT LAST LINE iC32 OF O00 2198 2146 1756 ALC $CTROL} »$P1 ADVANCE LOG EMTRY COUNTER 
188D O21 188D 1689 DC XLitols OF HISTORY TABLE HEADING es 1757 * 
IBBE SE i8BE 1690 oc IL1°94* NM 1038 320 8F 218F 1758 CLI $PTR,191 BRANCH IF NOT 
1BBF 225€ i8CO 1691 DBC AL2($PBUFE93) 1C3C F2 82 04 1759 Jk $RECZ YEY END OF LOG AREA 
1692 «* g 1760 2 
18C1 3C Fl 2193 1693 wAYI SORV>C*1* INITIALIZE GRIVE IDENTIFIER . 1C3F 32C 00 218F 176i MVI $PTR=O WRAP BACK TO FIRST LOG ENTRY 
1694 * L762 * 
1695 *----——-—~-~ re mane am ane ae om cm ee na mann ac cam eg a ee ee en os 1043 3D BE 2198 1763 $R6C2 CLI $CTReiSl GO fG@ CHECK NEXT LOG IF ALL 
1696 + PRINT HISTORY TABLE SPACE LINES LL iC47 CO 82 iC2i 1764 BL $REC1 ENTRIES HAVE NOT YET BEER CHECKED 
1697 «= 1765 *& 
1BCS 7C 40 5C 1698 SRSA MVE S20 e$XR19,C* 8 CLEAR 1C48 4C 05 CD 2167 1766 HVC 13(S.$KXR1} o$RZIN BUILO *NO LOG* #ESSAGE 
See 16.8 5C SA 5B SC 1699 MYC =. $2. £91,$XR1}.920,$8XR1} PRINT SUFFER & 1767 * 
i?oo « 1C5G CO 87 OZ21A 1768 8 SPRINT PRINT "NG LOG® 
1B8CC 7C SC 06 270i MVI 6 o$KR1D Coxe POSITION ies 1C654 02 1054 1769 DC XL1°aze MESSAGE IN TASLE 
18CF FC SC OF 1702 MYI 15¢o$XR1),Cts? ASTERISKS oes 1055 5E 1055 1776 DC ILL#94? 
iBD2 TC SC IA 1703 MVE 26¢,$XR11,C°%s! IN PRINT 1056 225€ iC57 L771 DC AL2($PBUF+93) 
1805 7C SC 25 1704 MVI 37(o$XR1} COKE BUFFER ee 1772 *# 
1765 « Ee 1€58 CO 87 lDOD 1773 B REN CO TS SPNCESS DATA FOR NEYY ©. AWE 
1808 CO 87 021A 1706 8 SPRINT PRINT SPACE LINE L774 *# 
i80C 01 1BDC 1707 DC xL1°018 A 1€5C OC OC 2194 218F 1775 $R6C3 MVC SPTRF(1L},$PTR SAVE POINTER TO OLDEST LCG ENTRY 
18DD SE EBDD 1708 oc IL1°S4t ee 1776 *® 
2710 * 1778 * FORMAT AND PRINT LOG ENTRY 
Lill s——-—-—~~---—-—-- -—---- TO nw ra annem arae canes acer eae nen ae eam | & 1779 * 
ivlz * BEGIN / END HISTGRY PRINTOUTS 1C62 3D 60 2108 1780 $R6D CLI $REC¥23,x*60! BRANCH IF ONLY 
i713 * os 1066 CO 81 1CE3 178i BE SREE USAGE DATA IN LOG ENTRY 
18> 4C 00 03 2193 1714 MVC =—«-: 31 16$XR1)5$DRV MOVE ORIVE ID TO PRINT BUFFER qs 1782 * 
1715 * 1C6A 4C 05 OD 21C6 1783 MVC 13(65$XR1}) »SRECHS MOVE VOLUME ID YO PRINT BUFFER 
“sES 3D F2 2193 17te CLI sDRV,Ce2e CONTINUE PRINTOLT IF DRIVE 4 1784 * 
i8BEO F2 04 10 1717 JNH = =$R6B HISTORY HAS NOT YET BEEN PRINTED € 1C6F 4C OF 18 2177 1785 MYC 2448 4$XR1) »$M24N INITIALIZE OATE AND 
1718 2 1C74 4C 07 23 2177 1786 MVC 35(Be$XR1)9SM24N TIME FIELOS IN PRINT SUFFER 
IBEC SC SB SC SD 17g MVC = - 9292 4$XR13,934,$XR1) BUILD LAST LINE OF HISTORY TABLE ; i787 * 
1726 * € 1079 3D OO 21EA 1788 CLI $REC+41 50 BRANCH IF NO 
18FO CO 87 3214 1721 8 SPRINT PRINT LAST LINE 1C70 F2 81 OF 1789 JE $R6D2 DATE WAS RECGRDED 
1BF4 06 IBF4 1722 OC XL2*Q68 OF HISTORY TABLE é 1790 * 
18FS SE 1BFS 1723 DC 1L1°94° € 1iC8O 4C O21 12 2158 1791 MVC 1812,$XR1) p$REC +42 MOVE DATE 
18F6 225 1BF7 1726 DC AL2($PBUF+93) 1C85 4C 01 15 21ED 1792 MVC 21029$XR1} pe S$RECH44 TO PRINT 
1725 * ‘ 1C8A 4C 01 18 21EF 1793 MVC 24(26$XR1) 9$REC +46 BUFFER 
18Fe8 CO 87 1B16 1726 $RO GO CHECK FOR MORE INPUT DRIVES € 1794 * 
i727 ¢ 1C8F 3D 0O 21FO 1795 $R6DL CLI $RECH+4750 BRANCH IF NO 
i728 $-——~—~—--———-___-----_--.__ en emma an enna ae eee ee nn eee 1€93 €2 81 OF 1796 JE $REO2 TIME WAS RECORDED 
1729 « LOCATE AN UNUSED LOG ENTRY FIELD a 1797 * 
1730 1C96 4C O01 1D 21F1 1798 MVC 8 =—6. 290 25 $XR1) p$REC+4S MOVE TIME 
LBFC 3C O06 218F 1731 $R6B MYE SPTR»O POINT TO FIRST LOG ENTRY FIELD es 1C9B 4C 01 20 21F3 1799 MVC 32(29$XR1},$REC4+50 TO PRINT 
1732 + a ICAO 4C 01 23 2165 1800 MVC = 35(2.$XR15,$REC+52 SUFFER 
1€60 CO 87 1DD5 1733 $R6B1 6B $t0 READ LOG ENTRY 1801 2% 
1T34@ + . 1CA5 CO 87 O21E 1802 $R6D2 8B $UNPK UNPACK 
iC04 3D OO 2101 1735 CLI SREC+0 BRANCH IF C: 1CA9 04 1CAS 1803 OC ELitse FOUR SENSE 
DATE 29AUG7S O7NDVTS PROG ID FE7~1 €Spate  29aUG75. ss O7NOV7S5 PROG ID FFT-1 
EC NO. 827804 827805 PAGE 17 EC NO. 827804 827805 PAGE i7A 



































a” 

















€ 
{ 
IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248241; 
PAGE 18 
FFT] DISK ERROR RECORDING ANALYSIS PROGRAN 
‘ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | 
1CAA 21D4 1CAB 1804 oc AL2($REC419) BYTES TO | 
ICAC 222° 1CAD 1805 pc AL2($PBUF+46) PRINT BUFFER | 
1806 * 
1CAE CO 87 O21E 1807 8 SUNPK UNPACK | 
1C82 04 1CB2 1808 DC IL1%4e FOUR SENSE | 
1€B3 2108 1CB4 1809 DC AL2($REC#+23) BYTES TO 
1€B5 2238 1C86 1810 oC AL 2( $PBUF+55) PRINT BUFFER | 
1811 * 
1C87 CO 87 O21E 1812 8 SUNPK UNPACK 
1CBB 04 1CBB 1813" DC IL1¢4! FOUR SENSE 
1CBC 210C CBD 1814 pC AL 2($REC+27) BYTES TO 
CBE 2241 ICSF 1815 AL 2($PBUF+64) PRINT BUFFER 
1816 * 
1CCO CO 87 C21E 1817 B SUNPK UNPACK 
LCOS 04 . 1CC4 1618 oc IL1%4! FOUR SENSE 
1£€5 2160 1CC6 1819 DC AL2($REC#32) BYTES TO 
LCCT 2242 2CC8 1820 DC AL 2($PBUF+73) PRINT BUFFER | 
1821 * 
1CC9 CO 87 O21E 1822 8 SUNPK UNPACK 
iCCO 04 1CCD 1823 oc IL1*4# FOUR SENSE | 
ICCE 2164 1CCF 1824 oc AL2($REC+35) BYTES TO 
1CDO 2253 1CD1 1825 DC AL 2($PBUF+82) PRINT BUFFER | 
1826 * 
1CD2 CoO 87 O21E 1827 B SUNPK UNPACK 
1CD6 0% iCD6 1828 pc IL1*4* FOUR SENSE 
1CD7 21£8 1C08 1829 oc AL 2($REC+39) BYTES TO | 
1CD9 225C ICDA 1830 pc AL2($PBUFt91) PRINT BUFFER | 
1831 * | 
1CD5 €O 87 O21A 1832 8 SPRINT PRINT | 
1CDF C1 LCDF 1833 DC XL1i°O1* LOS ENTRY 
ICEC SE ICEO 1834 DC IL1°94¢ | 
ae 1CEl 22S€ 1CE2 1835 oc AL2($PBUF+93) | 
1836 * | 
1837 *------- - =~ - == --— 
1838 * SEARCH FOR NEXT LOG ENTRY TO BE PROCESSED | 
1839 * 
1CE3 OF 00 218F 2146 1640 $ROE ALC SPTRI1),$P2 ADVANCE LOG ENTRY POINTER : 
1841 ¢ 
1CE9 3D BF 218F 1842 CLI $PTR,191 BRANCH IF NOT 
ICED F2 82 04 1843 JL $REEL YET END OF LOG AREA ' 
1844 ¢€ 
1CFO 3C GO 228F 1845 “VI $PTR+O WRAP BACK TO FIRST LOG ENTRY | 
1846 * 
1EF4 GD 00 218F 2194 1847 S$R6EL CLC S$PTRI2).SPTRE BRANCH IF ALL LOG | 
1f=% F281 10 2848 JE SRK ENTRIES HAVE BEEN PROCESSED 
1849 * 
- 2CFD CO 87 1005 1850 8 $10 READ NEXT LOG ENTRY | 
1851 * 
1901 3D 00 21C1 1852 CLI $REC,0 BRANCH IF | 
1D05 CO 81 ICE3 1883 BE SROE UNUSED ENTRY 
1854 @ | 
1009 CO 87 1C62 1855 8 $RED GO TO FORMAT AND PRINT LOG ENTRY 
1856 * 
1857 @—---~-------_______ —— | 
1858 ¢ CLEAR LOG AREA IF RECUIRED 
1859 * 
.3D0D 3A 08 2188 E860 $RON SBN $IND,SCLEAR SET 'CLEAR LOG* INDICATOR | 
1861 * 
1D11 38 80 @26C 1862 TBN S$SBYT4,$SSH20 CLEAR LOG AREA IF | 
IDS CO 90 10D5 1863 BF $10 SENSE SWITCH 20 IS OFF | 
1864 « 
1D19 3B 08 2188 1865 SBE = $IND,SCLEAR RESET *CLEAR LOG* INDICATOR | 
1866 * | 
1867 *~ —_——~ ee 
1868 * PREPARE TO PRINT HISTORY FOR NEXT DRIVE ID : 
1869 © 
1D1D OE 00 218E 2146 1870 ALC $HD(1),.$P1 ADVANCE HEAD ADDRESS 
1023 06 00 2193 214D 1872 Az $ORVi1),$01(1) ADVANCE DRIVE IDENTIFIER 
DATE  20AUG7S  OTMDVTS. PROG 1D FFT=1: 
EC NO. a2780« a27805 PAGE . is | 
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FFT1 


ERR LOC OBJECT CODE 


ADDR STMT 


DISK ERRGR RECORDING ARALYSIS PROGRAM 


SGURCE STATEMENT 


; & 
‘ FF71 
f"< 
© ERR LOC GBJECT CODE 


DISK ERROR RECORDING ANALYSIS PROGRAR 


ADDR STAT SOURCE STATEMENT 


1876 $0S906090F8S94200F8TTETOEEEEEESSESESESESSSVSESSESSOSSSSSOSSAESSSSOSSSSSSE wo 10C9 3C OS 216A 1944 mvt SORVAD.X*D8* ORIVE ADDRESS. aNd ERROR 
1877 e 4% 10CD 3C 12 2192 1945 MVE SCKMSK,xX*11° SENSE BYTE MASK FOR ORIVE 4 
1878 @ ROUTINES 3 AND 4 - COMMON INITIALIZATION PROCEDURES * 1946 @ 
1879 3 . .. 10D1 CO 87 0000 1947 S8GNX 8 os RETURN TO CALLING ROUTINE 
1880 $O09990SE4SSESSSSNETTSETESESESSSSESSSSESCSESSSSSSRSESSSSLAES FVSSSS SSS SSSESESS C: 1948 6 ? 
1381 ¢ : 
102D 34 08 1DD4 2682 SB8EGIN ST SBGNX43 »SARR SAVE RETURN ADDRESS Cc 
1883 2? 
1031 3C 00 2273 1884 MVI «= SHENG CLEAR 
1035 OC 08 2272 2273 1885 MYC SNN-1(93_SNN CDCF AREA eC 
1886 * 
1038 C2 01 OA07 1887 LA SUDT—3,$%R1 POINT TO SECTION UDT 
1888 © 
1D03F 02 01 03 1889 $BGNO1 LA 3(.S$XR13 oSXR1 LOCATE i) 
1042 7D C1 00 1890 CLI O€»$XR195X°C1° 3340 uDT ENTRY 
1045 CO O01 103F 1891 8NE $8GNO1 : ; 
1892 2 © 
1049 78 20 01 1893 TEN 1(5$XR19,SH1T2 END ROUTINE IF 3340 
1D4C CO 90 0216 1896 SF SLINK NOT DEFINED If OCP UDT eo 
1895 + a 
1D50 39 78 020A 1896 SBGNOZ TBF SSBYT2eSSSH11¢SSSW1I2Z*SSSW134SSSH14 SKIP IF AMY SNS 
1054 F2 90 04 1897 JF $86N03 Sw 11 THRU 14 GN 
1898 © 
1057 3a 20 0204 21399 SBN S$SBYT2eSSSH12 SET SNS SH 12 “(DEFAULT TO DRY 23 
i300 3 
1D5B 38 40 020A 2901 S$BGNO3 TA8N <S$SBYT2.$SSwil BRANCH IF ORIVE 1 NOT © 
105F 39 80 2188 1902 T8F SIND,»SORVI SELECTED OR IF DATA FRON 
1063 F2 90 13 1903 JF SBGNO4S DRY 1 HAS ALREADY BEEN PRINTED C 
1904 * 
1065 3A 80 2188 1905 SBN SIND ,SDRV1 SET *DRV 1 USED? INDICATOR 
1906 * 
os 106A 3C Fl 2189 1907 “VI «- SDURVID.C*1 SETUP DRIVE IDENTIFIER. Cc 
106E 3C CO 218A 1908 MVI  SDRVAD,X*CO* DRIVE ADDRESS, AND ERROR SS 
1D72 3C 81 2192 1909 MV¥I 0 SCKMSK»K*Al* SENSE BYTE MASK FOR DRIVE i eG 
19lo 2 2 
iD76 F2 87 58 1911 J SBGNX RETURN TO CALLING ROUTINE 
1912 
1D79 38 20 020A 1913 $BGNOS TBN $SSBYT2.8SS$¥12 BRANCH If ORIVE 2 NOT G 
1072 39 40 2188 1914 TBF «6SINDsSDRVZ SELECTED OR IF DATA FROM 
1081 F2 90 13 1915 JF $BGNOS DRY 2 HAS ALREADY BEEN PRINTED CG 
1916 * : 
1084 3A 40 2168 1917 SQN SINDsSDRVZ SET "DRY 2 USED* INDICATGR 
1918 © - 
1088 3C F2 2189 1919 MMVI 4 =—- SORVID.C*2° SETUP DRIVE IDENTIFIER, & 
1D8C 3C C8 218A 1920 AVI 4 «= $DRVaAD.X*Ce* DRIVE ADDRESS. ANN ERROR : 
1090 3C 41 2192 1921 MV1 0 _- SCKMSK 9 X*42* SENSE BYTE MASK FOR ORIVE 2 e 
1922 * 7 
1094 F2 87 3A 1923 J SBGNX RETURN TO CALLING ROUTINE , 
1924 @ 
1097 36 10 O20A 1925 SBGNOS T8N S$SBYT2.$SSwi3 BRANCH IF ORIVE 3 NOT ; 
1098 39 20 2188 1926 T8F $1HD,.SORV3 SELECTED GR IF OATA FRON ; 
1D9F F2 90 123 1927 JF $BGNOS ORY 3 HAS ALREADY BEEN PRINTED 
1928 © ‘¢ 
1Da2 2A 20 2188 1929 SON SIND,SDRV3S SET *ORV 3 USED* INDICATOR ; 
1930 ¢ 
1DA6 3C 3 2189 1931 MyYI SDRVID.C*3* SETUP DRIVE IDENTIFIER, © 
IDAA 3C 00 2184 1932 | KVI SDRVAD,X*O0* ORIVE ADDRESS, AND ERROR : : 
1DAE 3C 21 2192 1933 MVI «= SCKNSK,X°22° SENSE BYTE MASK FOR DRIVE 3 C 
1934 @ ’ & 
1082 €2 87 1¢ he J SEGNX RETURN TO CALLING ROUTINE 
19 2 
1085 38 08 0264 1937 SB8GNOS TBN sSBYT2.8SSw14 END ROUTNE IF DRV 4 NGT : e 
2089 39 10 2188 1938 TBF SIND,SDRV4 SELECTED OR IF DATA FROM 
1080 CO 90 0216 1939 SF SLINK DRV 4 HAS ALREAOY BEEN PRINTED. 
1940 * ig 
1DCi 3A 10 2288 1941 S8N SIND,» SORVS SET "ORV 4 USED* INDICATOR i 
1942 ® 
10C5 3C Fe 2189 1943 AVI «= SORV1D.C * 4? SETUP DRIVE IDENTIFIER, © 
DATE 29AUGTS O7NOVTS ‘PROG ID FFI=1' C" oate 29AUG75 OTHOVTS PROG ID FFI-1 
EC NO. 827804 827805 PAGE 19 EC NO. 827804 8272805 PaGe _A9A . 
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IBM MAINTENANCE DIAGNOSTIC PROGRAN PART NOG. 4248241 IPM MAINTENANCE OLAGNOSTIC PROGRAM PART NO. 4248241 
PAGE ae C PAGE 20a 
FFT1 O1SK ERROR RECORDING ANALYSIS PROGRAM ' FETE OYSK ERRGR RECORDING ANALYSIS PROGRAN 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT + €RR LOC OBJECT CODE ADOR STHY SOURCE STATEMENT : 
1950 SSVSEERSESTSSSTS RSS ESSSHSESCRKSRESSE SEL SSESSESVESS SB LKSESSSERESSSESESEASSELRSTSEE rr 206 ¢ 
1951 ® @ 4 LES? C2 OL 2296 20k9 $R0r02 LA SOOO » SXRE LOCATE REQUIRED 
1952 ¢ ROUTINES 5 AND 6 - COMMON 3340 £/0 SUBROUTINES ¢ LESB 3C OO 232A23 2020 “V3  SROWK,O LOG ENTRY VIA OFFSET 
1953 % * |. LESF 36 OL 2184 2021 A SROWKS Ee SXRE DEVELOPED FROM LOG ENTRY POINTER 
YGS4 SESEKSSESSSRSSTESKKERESESAELE SKS SLELSSESEAKESLERESELSECESSLSSLERESVSL SESES SOLS G. 2022 @ 
1955 ¢ 1693 1C 3F 2200 3F 2023 MYC S$RECN(64)-631,$KR1} GET REQUIRED LOG ENTRY 
1956 © READ OR CLEAR 3340 LCG ENTRIES I 2024 ¢ 
1957 ®& € «JESS FZ BF 22 2025 é STOKE RETURN YO CALLING ROUT ERE 
1005 34 08 1ECé 1958 $10 ST SIOX+ 3, SARK SAYE RETURN ADDRESS 2026 ¢ 
1009 34 01 LECO 1959 ST S$IOX143,EXR1 SAVE INDEX REG 2 Doe 1£98 3C€ 01 226F 2027 SKRREP BVI = SRReL SETUP RR AND NM VALUES 
1960 © boa LEGS 3C 2F 2273 2028 MMVI 4 6&NN,47 IN ODCF TO WRITE RECORDS 1 FHRU 48 
1000 3C GA 2196 1961 MVE $RETRY,10 INITIALIZE ERRGR RETRY COUNT 2029 ¢ 
1962 * od 1EA3 3C OO 2388 2030 MVE $0DDF*¢255,0 CREAR 
1D0E1 Of 01 218C 226¢ 1983 CLC 3=—s SC YL (25 -$CC BRANCH If ACCESS & LEA? OC FE 2384 2388 2031 HVC 40—- SD DD F + 2544255), SODDF 4255 DODF AREA 
1DET F2 C1 05 1964 JHE S$RECAL NOT YET AT REQUIRED CYLINDER 2032 € 
1965 = ak LEAD 3C 02 2190 2033 MVE $Q,x*02* SETUP Q AND R BYTES 
LDEA OO ul 218E 226E 1966 CLO} = SHD 0. 2 op SHH BRANCH IF ACCESS \ REBL 3€ O03 229% 2034 MVE $ReX°OR* FOR WRITE REPEAT CORRAKD 
10FO F2 81 42 1967 JE SROWR ALREADY AY REQUIRED LOCATION 2035 ¢ 
1968 @ 1EB5 CO 87 1ECS 2036 & $XEQ GO TO EXECUTE WRITE REPEAT COMMAND 
1DF3 3C 00 226F 1969 M¥E = SRR DO RESET RECORD NUMBER =e 2037 @ 
1970 * LE89 3B O& 2188 2038 SBF SEND, SCLEAR RESET *CLEAR &OG* INDICATOR 
LDF? 3C 00 2190 i971 $RECAL MVE $0.0 SETUP Q AND R BYTES : 2039 $ 
10F6 3¢ 01 2192 1972 MVE 9 $Rei FOR RECALIGRATE COMMAND c L£BD C2 0% 9000 2040 SINXE LA €~%,SXR1 RESTORE INDEX REG 1 
1973 # 1ECi CO a7 OCCO 2341 $10x 8 SS RETURN TO CALLING ROUTINE 
LOFF CO 87 1ECS 1974 8 $XEQ GG TO EXECUTE RECALIBGRATE COMMAND (2042 % nu Be 
i975 & @ 2043 - -- 
1E03 OC 01 226C 218C 1976 HVC = $C £23 o SCYL MOVE CYLINDER AND 2044 * COMMON 2340 1/6 CGHMHAND EXECUTION SUBROUTIRE 
1£09 OC O1 226E 218E L977 MVC $KH(2),$HD HEAD VALUES TG DOCEF 2045 € 
i978 @ ae LCS 34 08 iF3Z3 2046 $XEQ ST SXEQN+ 3 eSARR SAYE RETURN ADDRESS 
1EOF 3C 00 2190 1979 $SEEK MVE $00 SETUP @ AND R 2047 2 : 
LE13 3c 00 2191 1980 MVE $820 BYTES FOR SEEK COMMAND Co RECS CO BF 0282 2048 6 STEST CHECK FOR USER INTERVENTION 
So ted 1981 & 1 ke 2045 © 
1€17 Co a7 1ECS 1982 8 SXEQ GO ¥G EXECUTE SEEK COMMAND 1ECD OC O00 LEFA 2184 2050 MYC $S1041€1) ¢SDRVAD SETUP 
1983 * . 16D3 GE OO LEFA 2190 2051 ALC $SI0+1423.8C Q AND R BYTES 
1E1B 3C O1 2190 1984 $RDHA MVE $0.1 SETUP Q@ AND R BYTES FOR C. LEDS GC OO LEFB 219% 2052 MVE $S10¢€2(1},SR IN SID ENSTRUCTION 
LELF 3C OL 2191 1985 MVE = $Reil READ HA (EVEN) COMMAND 2053 © 
1986 * ~  L&DE 30 CS 2275 2054 SNS S$SWS+icx*CSt SENSE ATTACHHENT STATUS 
1€23 CO 8&7 1EC5 1987 8 SXEC GO TO EXECUTE READ HA COMMAND &2 Sac 2055 * | 
i968 * 1EE3 OC OD LEEA 2192 2055 RVC 49-4 FELD» SCKMSK cO TO ERROR. = -- 
1E27 OC 03 226€ 2290 1989 MVC «= SHH (4) » SDOOF+4 MOVE RECORD O CCHH TO ODCF ie 1EES 39 OO 2274 2057 TBF $SNS,*—# HANDLING SUSROUTINE IF 
1990 * > ed LEED CO 90 LF24 2058 BF SERR ADAFTER OR UNET CRECK 
LE20 38 02 226A 1991 TEN S$FF,SBIT6 GO TO SEEK TG ASSIGNED 2059 @ 
LE31 CO 10 LEOF 1992 eT SSEEK ALTERNATE IF OEFECTIVE TRACK cr LEFL 31 C6 218C 2060 L110 $DDCR,»xX*C6® LCaD ODCR 
1993 # \-« LEFS 31 C4 218E 2061 LI 48 $ODDR.xX*C4* AND DODR 
1€35 OC O01 226C 218C 1994 $ROWR MVC $CC(25-SCYL MOVE CYLINDER AND 2062 ¢ . 
1E38 OC OL 226E 218E 1995 MVC SHH(2) SHS HEAD VALUES TO ODCF C: 1EFO &3 00 60 2063 SSIG sid Bot» -S EXECUTE 3240 1/0 CORNARD 
1996 * i hp 2064 % 
1E41 OC 02 2272 212aC 1997 MVC = $0L. (3 5 $256 MOVE KL AND Di TO DOCF LEFC OC GO LFOB 218A 2065 MYC eST1O4¢h (1, SORVAD BUILD "SEEK BUSY* 
1998 * Os 1FO2 3A O01 LFOS 2066 S6N $T10¢1,SBIT? TIO INSTRUCTION 
LES7 38 O08 2188 1999 TaN SIND, SCLEAR GO TO CLEAR LOG AREA G 2067 ¢ 
LE48 F2 10 4D 2000 JT SWRREP IF *CLEAR* INDICATOR IS ON 1FOS C1 C2 2°06 2068 TI1G 4 = @y R*C2¢ LOOP ON “ATTACHMENT SUSY * 
2001 * Bs ca 2669 ¢ 
LEGE 3¢ 04 2143 2002 $RDKD MMVI = $RDWKY4 DEVELOPE | oAFOA C1 00 1FOa 2070 $T10 TID #,e-8 LOOP OM *SEEK BUSY! 
1€52 OC CO 21A4 218F 2003 MVC = SRDWK 41013 ,SPTR RECORD NURBER 2071 ® 
1€58 OF 00 2144 21A7 2004 ALC SROWK+LI 1} 2SP5 FROM LOG AREA POINTER 53 LFCE 30 CS 2275 2072 SNS SSNS4¢1L,X*CS° SENSE ATTACHMENT STATUS 
LESE OF 01 214% 2144 2005 $ROKD1 ALC S$ROWKO1(2) » SADWK1 Cx. 2073 ¢ Lot weet 8 
1664 CO 20 1ES5E 2006 . BNOL S$RODKD2 1F12 OC OO IF1LG9 2152 2074 AVC} 84=—- $70.19 SCKMSK 60 7O ERROR 
2007 * ae 1FL8 39 00 2274 2075 TBF «= SSNS, 2 HANDLING SUBROUTENE IE 
1€68 OD OG 21A3 226F 2008 cic SROKK (1) 6 SRR BRANTH FF REQUIRED EAS FIC CO 90 1LF246 2076 BF SERR ADAPTER OR UNIT CHECK 
LEGE F2 81 16 2009 JE $ROKD2 RECORD IS ALREADY IN MAIN STORE: 2077 @ 
2010 * Ba sais 1F20 CO 87 0000 2078 $XEQX B Rae RETURN TO CALLING ROUTINE 
1ET1L OC 00 226F 2143 2011 MVC = SRR (13 6 SROWK MOVE RECORD NUMBER TO ODCF GG 2079 * 
LETT 3C 00 2273 2012 MVI  SNNN O SETUP NN WALUE TO READ ONE RECORD 2080 %-—--—~ = Ps 
2013 ® 208i ©& 3340 ERROR HANDLING SUBROUTINE 
1E768 3C O21 2190 2014 MYI S$Qex*OL® SETUP Q AND R BYTES © 2082 # 
LE7TE 3C 00 2191 2015 MYVI = $Ro X* 008 FOR READ KEY-DATA COMMAND 1F24 34 08 1FC3 2083 $ERR ST SERRK+ 3 SARK SAVE RETURN ADDRESS 
2016 * 20284 s 
1E83 CO 87 LECS 2017 6 S$XEQ GO TO EXECUTE READ KEY-DATA COMMAND 7 C r2e 38 01 2275 2085 TBN $SNS41,S81T7 BRANCH IF NOT 
DATE 29AUGTS GTNOVTS PROG ID FET=1. te DaTE 29aUG75 OTNOVTS PROG 19 FFI<-1. 
EC NO. 827804 827805 PAGE 20 | EC NC. 827804 €27805 PAGE 20a 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOe 4248241 —s TBH) MAIN ENANCE OLAGNOSTIC PROGRAM PART HG. 4248242 
PAGE 2k Cc PAGE 22a 
FFT2 DISK ERROR RECGROING ANALYSIS PROGRAM FFT7L DISK ERROR RECORDING ANALYSIS PROGRAR 
ERR LOC GBJECT CODE ADDR STMT SOURCE STATERENT © gar LGC OBSECT CODE ADDR STMT SOURCE STATEMENT eB 
1f2C F2 90 1A 2086 JF SUCK ADAPTER CHECK CONDITION se 1FDE 18 IFDE 2154 oc AL1(SMO2N~SHOZ413 
2087 % . LFOF 2069 1FEO 2155 pc AL24SMO2N} 
1f2F 3C OO 2288 2088 SACK avi *SNS423-0 BILD 2156 
1f33 OC 14 228A 2288 2089 HYC SSNS422421998SNS42Z3 FORMAT 3 o 1FEL CO 87 O21A 2157 8 SPRINT PRINT 
LF39 31 C7 21BA 2090 L160 $SNS23eK*C7® READ DIAG o 1fES 61 IFES 2158 cc XLitsi® SNS BYTE 
1€30 30 C7 2277 2091 SRS $SNSO3 pX°CT® SENSE BYTES 1FE6 35 1FEG 2159 oc AL1($HO3N-$M03413 HEADING 
1741 3C 30 2278 2092 AVI SSNS+T a X* 20° C 1FE? 20SE LFES a oc AL2¢SKO3N5 
2093 2 R 236 
1F45 CO 87 1FC4 2004 8 SERRP GO TO PRINT ERROR MESSAGE AND HALT LEES 3C 40 2237 2162 “vi SPBUFS54,C® CLEAR 
2095 # 1FED OC 35 2236 2237 2163 mvc SPBUFS5S 30543 oe SPBUF CSS PRINT SUFFER 
1f69 OC 0O 1F58 218A 2096 SUCK MYC SSNSIG41E1),SDRVAD BUILD "READ GIAG 2164 
1F4F 3A O1 F568 2037 SEN SSNSLO+1 s S$BIT7 SENSE DATA’ CONKAND 1fF3 CO 87 O2Z1E 2165 8 SUNPK URPACK 
2098 8 _ iff? 04 LFF? 2166 oc ¥L2948 FOUR SERSE 
1F53 32 C4& 21C0 2099 110 SSNSDR,X*C4!? iGad SddR : 1FFSE 2277 1FFO 2167 oc AL20SSNS*3) BYTES TO 
2160 * 1TFFA 2208 LFFE 2168 oC ALZ(SPRUFSCT I PRINT BUFFER 
2FS7 F3 00 OT 21021 SSNSiC SES RPT? ~F~% READ DIAGNOSTIC SENSE DATA oe 2169 
2102 * . 1fFt CO 87 O2LE 2278 8 SUNPR UNPACK 
265A CL C2 LFSA 2103 Tig B,x*C2* LOOP GN ATTACHMENT BUSY 2000 0% 2000 21721 oc ILE?4° FOUR SERSE 
210% @ < 2601 2278 2002 2iT2 oC ALZiSSNS47} BYTES Te 
LESE OF 00 2196 21A6 2105 Sic SRETRY{ 22 sSPL CECREPENT RETRY COUNTER ARD GG 7O \ 2003 221% 2006 2173 ac AL2(SPBUF4L6! PRINT BUFFER 
1F64 CO 6&2 1FC4 2108 Bz SERRP ERA PRIAT AND HALT IF LAST RETRY 274% 
2107 * a 2005 CO 87 O2ié 2175 B SUNPH unNPACK 
Feb 3a OF 2278 2108 SERP S3aF SSNSE7 Kt OFS RESET RSG BETS If SENSE BYTE F “ 2009 C4 : 20C9 2176 oC L224! FGUR SENSE 
2i09 * 2608 22TF 2008 2377 oc ALZ(SSHS*iLS BYTES FS 
1F6C 30 50 2278 2110 CLE SSNS#70R°SC* BRANCH IF oe 2000 221A 2600 2176 pc AL2Z(SPBUFSZ53 PRINT BUFFER 
1f70 CO 81 FSA 2211 SE gECec CORRECTABLE BATA CHECK & 2179 
2212 * 20CE CO 87 C2iE 2286 8 SUMPR UNE ACK 
LETS 3C 00 2273 2423 NVI $NNeO CLEAR r- 2012 04 2012 2181 oc TLitat FOUR SENSE 
4E78 GC O08 2272 2273 Z114 aye SNN-1(098 SNK COC AREA Se 2033 2283 ZOL& 2192 o¢ AL2{SSMS425? erYres Oo 
2215 # 2915 2223 2016 2183 oc ALZESPBUF S34? PRINY SUFFER 
LETE 3D 40 2278 2216 cil SSRSOT sg Xt408 BRANCH EF é 2184 
2 7 1#82 CO 81 1E35 24117 BE £R20NR Gata CHECK “as 2017 CG 87 O2Z21E 2185 ® SUNPR UMP aCe . Fin pee 
2228 * ZGiS 6+ 2018 2166 DC TLita? FOUR SENSE 
2F86 CO B87 LDF? 2119 8 SRECAL GG TG RECALZBRATE &GATH A 201f 2287 2010 2i&7 oc SL2ESSKNS0295 BYTES FO 
2220 ¢ *. 202E 2z2€ Z2OLF 21668 2 AL2¢SPEUFS4SZE PRINT BUFFER 
ZEA CE O1 2285 22BE 2121 SECC ALC $SNS*17(2),S0D0R DEVELOPE 23283 
1£90 OF QL 2285 2287 2122 SEC SSNSSL7F A256 SSMS419 ADDRESS OF : 202G CS 87 OZIE 2296 8 SURPK RP ATK 
1F9S 35 O1 2285 2123 tL SSNSELT oe SXRI FIRST ERRGR BYTE R 702% G4 - 2024 21912 oc 1Li°4? ; FOUR SENSE 
2124 * 2025 2288 2026 2192 oc AL21$SNS923} BYTES FO 
iFGA 3C 18 2197 2125 MVE «SBI TCTs24 INITIALIZE ERROR BIT COUNTER » 202% 2235 2028 2193 oC ALZ(SPBUFS52} PRINT BUFFER 
2126 + & 2194 
LFES9E CE 02 228A 2284 2127 $ECCOl ALC SSNS422 138 so SSNS422 EXCLUSIVE OF 202% CO 8T GZlA 2195 B SPRINT PRINT SENSE BYTES 
1fae F2 20 05 2126 SNOL SECCC2 ERROR PATTERA 2920 86 2020 2196 oc XLEP BE" 
1FA7 4E 00 O00 214E 2129 ALC O11, SHARE}, SX80 WITH ERRCE BYTES POZE 35 252E 2197 oc ¥LL°53° 
LFAC SE G2 02 O2 2130 S€CCO2 ALC ZEBeSKXRL},2 60 SRR 2G2F 2235 2G30 2198 of ALZ4 SPSUF *¢522 
FBO F2 20 03 2131 JNOL SECTOR ; 2199 
1f83 7A O01 02 2132 SBN 2UeSXR11,$81T7 x 253i CO BF O222 2209 8 SHALT CRROR HALT F4 
1FB6 OF OO 2197 21346 2133 #E—CCO3 Sac S$BLICT(1)6SP1 2035 FFFE6 2036 2201 BE ALZESHL TESS 
iFec CO 0) iF9E 2134 BNZ S$ETCOR ae 2202 
2135 * 2037 CO S&F LOBE 2203 8 $BGNX GO TH RESTART ROUTINE 
‘ 1FCO CO 87 0000 2136 SERRKX 8 Bo RETURN TO CALL ING ROUT INE 220¢ , 
i 2137 * 
; 2138 eo ee ee ae = EO eee, G 
Fi 2139 % UNRECCVERABLE 3340 ERROR —- PRINT ERR MESSAGE AND HALT 
: 2240 * 
1#04 CO BF O21A 2141 sERRP 8B SPRINT SPACE PRINTEA Z LINES C 
1FC8 $2 2€C8 2142 | oc RLi'92é 
2142 # ‘ 
LFC9 OC 00 203F 21389 2144 aye $H014+4(13 5 SDRVID HOVE ORIVE 70 TG ERROR %ESSAGE €3 
2145 
iE > ‘1"CF Co B87 0234 2146 8 SPRINT PRINT ERROR MESSAGE 
| 103 €2 LFD3 2147 pcs xL1°C 2° & 
foot 1FD4S 14 1FDS 248 oc AL1ISMOLN-$NO141? 
.. 1FDS 204€ LFD6 2149 oc AL2(SMO1N) 
LEG? FFFS ZFDS 2156 oc AL2(SHLTFS6} @ 
2152 2 : 
1FD9 CG S7 O2iA 21582 8 SPRINT PRINT 
YFDD B82 2FO0D 2153 o¢ RLI°S1* *READ OLAG SNS DATA® i CG 
DATE = 29AUGTS — CFNOVTS PROG ID revi © pare 29AUGTS  —- OTNDVTS PROG 10 FFI} 
EC NO. 827604 827805 PAGE 22 EC NG. 627804 E2780 Pace 21A 
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, FFT72 OISK ERROR RECORDING ANALYSIS PROGRAM 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


FFT71 DISK ERROR RECORDING ANALYSIS PROGRAM 


ea 
ERR LOU OBJECT CODE ADDR STMT SOURCE STATEMENT : * ERR LOC OBJECT CODE ADDR STMT SOURCE STATENENT 
2206 PREREECESLE CESS SESESEEEEESLS SS S40H5 24885 946O05458ESSSSSERRTOSEEETESESES: 2254 @ 
2207 © e © 2121 2255 $M15 EQU @ 
2208 * ROUTINES 5 AND 6 - PRINT MESSAGES * 2121 CLESE3C1C3CB804CS 2137 2256 SM1i5N OC CL23°ATTACHHENT © SUB-SYSTER? 
2209 © * 2129 DSE3405C40E2E4C2 2256 
22id FEORCLESSAASSSSOSSSAEEESLSEE OF OEE SHEE SESEESESSTSEEETERCESERSESEO CRESS EES : 2133 60EZESEZE3CSDO4 2256 
2211 * 2257 @ 
2038 2212 $M01 EGU #2 Pa 2136 2258 $M16 EQU ¢ 
2038 C4D9E540ET4005D6 204E 2213 $MOIN OC CL2C*ORV X HOT RDY OR ERRE “" 2238 D&CSCICICZESESCS 2140 2259 $KL6N OC CLS*MEGABYTES® 
2043 E340D9C4E840D6D9 2213 2240 £2 2289 
2048 40C5D9D9 2213 ‘ 2260 ¢ 
2214 « iO 2141 2261 $M17 EQU # 
204F 2215 $M02 EQU ; 2841 CSD9D9DEDSEZ 2146 2262 $HL7N DC CLE* ERRORS ® 
204F DSCSC1C440C4C29C1 2069 2216 $MOZ2N OC CL27*READ DIAGNOSTIC SENSE DATA® ey 2263 *& 
2057 C7DSD6E2E3C9C340 2216 . x 2147 2264 $416 EQU #£ 
205F E2CSDS5SE2C540C4C1 2216 2147 C3DEDID94040E3CS 2156 2265 SMLBN OF CLi6*CORR TEMP PERNS 
2067 £30140 2216 : 214F D4&07<040D7C5D9N6 2265 
2217 @ Le 2266 * 
206A 2218 $M03 EGU « 2157 2267 $P19 EQU « 
2064 FO: 360606060F0F3 2084 2219 pc CL27*Q0-~--03 O4---~07 08-—-~1] ¢ e-  @457 SCETFIFOFGFO6G 2150 2268 $HLOM OC CLT*=-x1000—2 
2072 SOF OF460606060F0 221¢ Aas 2269 % 
207A F740F0F 860606060 2219 215E 2270 $420 EQU + 
2682 FLFL40 2219 Z21i5E DICSCiCS 2161 2272 $MZ0R DC CL4&*READE 
2085 FIF260606060F LFS 209E 2220 $MO3N DE CL26*Lo--—-15 Lh~---19 20-2732 C- 2272 * 
208D 40F1F660606060F1 2220 22162 2273 $21 EQu # 
2095 FI4OF2F060606060 2220 . gv. 2162 05064003D6C7 2167 2274 $821N Of CL6*NS Loce 
2060 £2F3 2220 Na 2275 + 
2221 2 2168 2276 $22 EQU s 
209F 2222 $404 EgqU « oe, #2168 C4C1E3C5 2168 2277 $H22N OC CL&*DATE* 
Z209F 60606040F3F3F4F0O 2002 2223 ¢HOeN oC CLE6%-——- 3340 USAGE AND ERROR LOG SUMBARY +; 2278 2 
20M? “GE4AE2CICICS4OCL 2223 216C 2279 $M23 «FQU ¢ 
20AF 05C440C509D9DaD9 2222 ry 286C E3CSD4C5 216F 2280 $M23N DE CLS°TIME® 
eis 2087 4003D6C740E2E4D4 2223 7 2281 @ ee 
20BF D4C10SE8 2223 2170 2282 $82& EQU #8 
2224 # / 2170 FOFO4BFOFOSBFOFO 2177 2283 $MZ24R DC CLO°60.00.068 
20C3 2225 $m05 EqUt he 2284 * 
20C3 60606040F3F3F4FO 2008 2226 SHOSN 0c CL22*--— 3340 ERROR HISTORY? 2178 2285 $425 ECU *& 
20C8 40C5D9DS9D60940C8 2226 . 2178 D4D46BC4C44BESES 217F 2286 $R25N DC CLe*eN.OD. YY® 
2003 C9EZESDEDSES 2226 oe 2287 ¢ 
2227 * 2180 22868 $426 EQU  ¢ 
2009 2228 $M06 EQU # . gu. 2380 CBCB4BDEDGEBREZE2 2187 2289 S$M26EN SE CLB*HHOMMLSS® 
2009 4060606040C4C1E3 20EE 2229 $MO6N DC CL22* -—~ DATA FROM DRIVE x? ; {; 2290 = 
70E1 Cl40Cen9DeD4esoce 2229 
20E9 DICSESC5“£0E7 2229 Fe 
2230 @ 7 
20EF 2231 $MOT EQU « | 
20EF C6DSE340FO 20F3 2232 $MO7TN OC CLS*EMT O° i 
2233 © 


20F4 2234 $m08 EQU © 
26F4 CSDBESCID7D4C505 2103 2235 $HOBN DC CLIO" EQUIPMENT CHECKS® 


20FC £340C3C8C5C3D2E2 2235 © 
2236 * 
2104 2237 $M09«EQU oe = 
2104 E2CSC5D2E2 2108 2238 $MOON DC  CLS* SEEKS? 6 
2239 * 
2109 2240 $m10 fQU 
2109 C4C1E3Ci 210C 2241 $M10N DC  CLe*DATAt © 
2242 8 : 
210D 2243 $M11 EQU « 
210D £3D6€3C103 2111 2244 $M11N DC CLS*yoTAL® ' © 
2245 @ 
2112 2246 $M12. EQU) es : 
2112 C4aDoEs 2114 2267 $M12N DC  CL3*DRVE CG 
2248 ¢ ; 
2115 2249 $m13. EQUUS os | 
2115 ES5D6D3E4D6C5 211A 2250 $M13N OC  CL6*VOLUNE® | © 
2251 @ 
2118 2252 $M14 EQU « | 
2118 60E4E2C5D960 2120 2253 $M16N DC CLe*=USER-* | © 
| | 
DATE 29AUG75 OTNOVTS PROG ID FFT-1| C pate 29AuGTS O?TNUV7TS PROG 10 FFI-1 
EC NO. 827804 627805 PAGE 22, EC NO. 827804 827805 PAGE 22a 
| | | | 
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18M MAINTENANCE DIAGNOSTIC PROGRAN PART NOW 4246241 IBM MAINTENANCE DIAGNOSTIC PROGRAR PART NO. 4246243 
PAGE 23 Co PAGE 234 
FFTL DISK ERROR RECORDING ANALYSIS PROGRAM FF71 DISK ERROR RECORDING ANALYSIS PROGRAN 
¥ 
ERR LOC CBJECT CODE ADOR STMT SOURCE STATERENT %. ERR LOC CBJECT CODE ADOR STMT SOURCE STATEMENT 5 
2292 SSHVOBIVSOSAhRSESSEVSRERSKESTSSSSEESSKESSTSSSSHSROSSSSAAS VHS RSSSEKRSES SSSSIOSSSSE SOS a, 228C 2388 2360 os XL 256 
2293 * e © 2361 ® 
2294 ¢ ROUTINES 5 AND 6 — CONSTANTS AND RESERVED STORAGE AREAS s 
2295 ¢ e 
2296 SIEVSKLAVKSEVESEKTSESSBKS SPLASLESSESESRS HKVESESSSSSSSSSHLESSESSSLESSTEVESS AVS HVSCS G: 
2297 ¢ 
2188 2188 2298 $IND DS XL1 PROGRAM INDICATORS A 
2299 & ‘s 
2189 2189 2300 S$DORVIO DS cli INPUT DRIVE TOENTIFIER 
218A 218A 2302 SORVAOD CS KUL INPUT DRIVE ADDRESS 
2302 * CQ 
21868 218C 2303 $CYt OS XL2 CURRENT CYLINDER ADDRESS 
218D 218E 2304 $HD os KL2 CURRENT HEAO ADDRESS " 
218F 218F 2305 $PTR OS xii CURRENT LOG ENTRY POINTER Cc 
2306 @ 
2190 2190 2307 $Q DS XL1 S10 *O* BYTE 
2191 2191 2308 $R os xXL1 S10 *R* BYTE GC 
2309 * 
2192 2192 2310 SCKMSK OS Xil ATTACHMENT SENSE BYTE ERROR MASK o 
2311 
2193 2193 2312 sORV OS xL2 GRIVE IDENTIFIER (TABLE PRINTOUTS 
2313 * 
2194 219% 2314 S$PTRF ODS xL1 POINTER TO FIRST (OLDEST) LOG ENTRY e 
2195 2195 2315 $PTRX ODS xXL1 CURRENT POINTER TEMP STORAGE 
2316 3 
2196 2196 2317 SRETRY OS xLl ERROR RETRY COUNTER e 
2197 2197 2318 S$BITCT OS xil ECC 81T COUNTER 
2198 2198 2319 sCTR OS XL1 GENERAL PURPOSE COUNTER 
2320 # CS 
2199 219E 2321 $ROCNT DS XL6 READ USAGE COUNTER 
Z19F 21A2 2322 SSKCNT OS XLS SEEK USAGE COUNTER 
: 2323 * e& 
Z21A3 2324 $RDWK EQU + READ SUBROUTINE eg ot 
21a3 2184 2325 DS xL2 WORK AREA 
2326 @ G 
2145 0001 Z1AG 2327 $P2 oc IL2*2¢ 
Z1a7 05 Z1A7 2328 $P5 oc TL2°58 
21a8 COD1 Z1LAS 2329 $P209 OC IL2* 2098 Cc 
214A 000100 21AC 2330 $P256 OC 1L3°256° 
21aD Fi 21aD 2331 $Di oc cLi°it 
21AE BO 21AE 2332 $x80 OC xL1i*eoe © 
21AF O00003E8 2182 2333 SKILOG OC IL4@*1000! 
2183 O000000F 4240 2188 2334 $MEG  0DC XL6' COC OCOOF42460° ‘ 
2189 C002 218A 2335 $SNS23 0C xL2*0002* @ 
2336 
21B8 226A 218C 2337 $DDCR OC AL2(SD0CF) COCF ADDRESS (INITIAL DDCR) 
2180 228C 218E 2338 $DDDR oC AL2($0D0F) CODF ADORESS (INITIAL DDNOR} ¢ 
218F 2274 21C0 2339 SSNSDR DOC AL2($5NS) ODOF ADDRESS FOR °EAD DIAG SNS 
2340 ‘ 
21C1 2341 $SREC EQU LOG ENTRY G 
21C1 2200 2342 $RECN OS KLO64 FROM SYSTEM ERROR LOG 
2343 8 
2201 2344 $PBUF EQU # PRINT BUFFER © 
2201 2209 2345 OS xL105 
2346 & 
226A 2347 SODCF EQU * DISK DRIVE CONTROL FIELO Cs 
2268 226A 2346 SFF os xL1 FLAG BYTE 
2268 226C 2349 $CC oS xL2 CYLINDER ACDRESS 
226D 226E 2350 SHH os XL2 HEAD ADDRESS e 
226F 226F 2351 SRR OS xL1 RECORD NUMBER 
2270 2270 2352 $KL os xu KEY LENGTH 
2271 2272 2353 SDL oS XL2 DATA LENGTH ie 
2273 ' 2273 2354 $NN os xLi RECORD COUNT 
2355 ¢ | 
2274 2356 SSNS EQU & SENSE DATA FIELD © 
2274 2288 2357 os XL 24 
2358 @ 
228C 2359 SODDF EQu & READ / WRITE DATA FIELD ¢ 
DATE 29AaUG75 OTNOVTS PROG 10 FFT-1 Coare 29AUGTS5 O7NOV7S PROG ID FFT=1 
EC NO. 827804 627805 PAGE 23 EC NO. 827804 627805 PAGE 23a 
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IBM MAINTENANCE DIAGNOSTIC PROGRAN PARTY NO. 4248241. 18" MAINTENANCE OLAGNOSTIC PROGRAR PART NO. 4248261 
PAGE * le PAGE 248 
FF71 DISK ERROR RECORDING ANALYSIS PROGRAM FF71 OFSK ERROR RECORDING ANALYSIS PROGRAM 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT err LOC OBJECT CODE ADDR STMT SOURCE STATERENT 
2363 SF8S886SCEEEESCHERS EE 50S98S5F8S96EF80ESTEEEEOS CESSES 8EESE2605000 960208888 e 2396 2522 2397 2431 ENTAD2 OC AL2{ENTADD} 
2364 * * \. 2398 0010 2399 2432 SIXTEN OC 112*16° 
2365 = ROUTINES 5 AND 6 - SYMSOL DEFINITIONS * 2394 0003 2398 2433 EIGHT oc TL2*g¢ 
2366 * ¢ . 239C FO 239C 2434 OZERO oc OLi?o* 
2367 S8tEKRTSSeEREEESEDSeseSetereEesseteseessegeseoreeesesesseseeseeseesssese  T 2390 Fl 2390 2435 DONE DC OLLFL® 
2368 @ 239E oco0000e 23AL 2436 ZERO oc XL4*O* 
2369 ¢ LOCAL STORE REGISTERS ...  23A2 00 2342 2437 CCNT oc XL1°OS MUST FOLEGH ZERO 
2370 © a8 234a3 0005 23A% 2438 FIVE oc IL2¢5e 
@001 2371 $XRl EQU x*Ol1? INDEX REGISTER 2} 23a5 006 23A6 2439 SIX DC IL2*6° 
0002 2372 $xR2 EGU x*O2t INDEX REGISTER 2 3 23A7 OOOE 23A8 2440 XOE oc xL2°OCOE* 
O608 2373 SARK eQu x*ost ADDRESS RECALL REGISTER 25 23489 FF Z23AS 2441 oc KLitree 
2374 * 23AA 2442 FFEE equ) oe 
2375 ¢--——.--_.~ - cae 6 BAA FFFO 23AB 2443 NEG? oc IL2%—7# 
2376 © SECTION SENSE SWITCHES 5, 23aC 9008 23A0 2444 OBRTYP oC xL2°st 
2377 * 23AE 0000 23AF 2445 SYNCS oc XL2°0° 
0040 2378 $SSW11l EQU xX*4OF LOG DATA ON ORIVE 1 rc 2446 @ H2% 15 AWAYS X*GOxxt 
0020 2379 $SSWi2 EQU X*208 LOG OATA GN ORIVE 2 Ke 2386 9006 2381 2467 H246 pc XE2*o* 
0010 2380 $SSW13 EQU xt1O08 LOG DATA ON DRIVE 3 2382 coco 2383 2448 DSKOFS 0C XL2°0* 
OOCE 2381 $SSW14 EQU x*'OB8# LOG CATA ON DRIVE 4 oe 2384 0000 2385 2449 CVICNT oC XL2°O# COUNTY OF @ OF 8IT TO BE CONV. 
O0G0 2382 $S$w20 EQU x*ace CLEAR LOG AFTER PRINT €8F SFE) he 2386 occo 2387 2450 CNTOFS oc XL2*6° COUNTER GFFSET FROM 2¢CeUuF) 
2383 * 2388 9000 2359 2451 CNIENG 0C xL2*aQ¢ CGUNTER LENGTH IN SYTES 
23 BG Rr en en ee Se mene oer amremeem 238A 0006 2388 2452 YABIOX OC XL2*O# ; 
2385 * MESSAGE / HALT IDENTIFIERS we 238C 78 238C 2453 t123 pc ILL*i23° 
2386 * 238D 68 2380 2454 1107 DC IL1°107° 
FFOO 2387 $HLTOO EQU  xX*FFOOF NO HALT .  23BE 77 23BE 2455 1129 pc ILU*L19° 
FFF6 2386 SHLTF6 EQU xX*FEFE! 3340 NOT READY OR ERROR C3 3BF TE ; 238F 2456 1126 DC ELE 2268 - : : 
2389 2 23C0 15 23C0 2457 122 DC TLze2pe 
2390 %~~-—--— aaa ——— Wownnnmn—nnnn oe,  2BCL CODSESCIDZC9C4 =. 23C7 2458 INV DC CLT* INVALID? 
2391 * PROGRAM INDICATORS (S$IND} ae 23C8 2459 SYNTBL EQU 3 
2392 ¢ 23C8 FOFOFOFLEOFO 23CD 2460 DC DLE£OCO100" RINT SYNC PT CARD 1 COL O 
0080 2393 $baVv1 EQU x*805 ORIVE 2 INPUT USED a 23CE FOFOFSF7FOFO 2303 2461 oc DL6*O00ST00* RINZ SYK PT 
DO eee 0040 2394 $ORV2 EQU xX*408 ORIVE 2 INPUT USED te 2304 2427 2462 DS 14XL6 CARD 6, COL £ ae 
GO20 2395 $OrRV3 EQU X*20¢ DRIVE 3 INPUT USED 2428 2463 TABTBL equ t 
0010 2396 $DRVS EQU x*108 ORIVE 4 INPUT USED - 2428 2438 2464 OS ATXLE CHT» TABL STABZ eee oc TABLE 
0008 2397 SCLEAR EQU ~x*O88 CLEAR ERROR LOG G 2439 2465 CBUF eQU 
2398 * 2439 2498 2466 DS 96xL1 CCNTROL CARD BUFFER 
2399 #------—... Sot ee ween eens -_—~ meneame 2498 2467 CRONMB EQU CBUF+E95 
2400 * BIT POSITION SYMBOLS & 2499 2468 PRUE EQU se COMTROL RECORD BUFFER 
2401 ¢ 2499 24F8 2469 DS S6XL1 . oot, 2 
0089 2402 $BITO EQU x*Bor ee 24F9 2470 QRSNS £Qu s 
0020 2403 $BIT2 EQU  x*208 oars 24FC 2471 DS XL 
Q002 2404 SBITé EQU x02 246FD 24FE 2472 PENDA os AL2 
0001 2405 $BIT? EQU x*O1* . 2&FF 2500 2473 PSTRa DS AtL2 
2406 & .¢ 2502 2502 247% CSTRa os AL2 
2407 a oo —- Se ee eee 2503 2508 2475 os XLG * NOTE THAT THIS DOS MUST CHANGE 
2408 * OCP SECTIGN REFERENCE TABLE 2509 250A 2476 PROGE Ds XL2 * IF TRE LENGTH OF DEC CHANGES 
2409 & . C: 2508 2508 2477 PROGC os XL2 @  SECAUSE LENGTH OF DEC EQUALS 
O20A 2410 $SaYT2 EQU x*O20A* SECTION SENSE SWITCHES 10-17 | 250C 2511 2478 PROG! DS XL6 * PACGE*PROGC*PROGIETHIS DS 
O20C 2411 SSBYT4 EQU x*O20C° SECTION SENSE SWITCHES 20-27 2512 25112 2479 DEC DS ODL 15 
2412 * |} 2532 2513 2480 TEMP DS sXL2 
0212 2413 STEST EQU x*O212° CHECK CE CONSOLE SWITCHES > a 2514 2514 2481 CNT oS xl 
0216 2414 SLINK EQU x*9216° LINK TO WEXT ROUTINE OR SECTION 2515 2514 2482 CNIN OS oxil 
O21A 2415 SPRINT EQU X*O21A* PRINT A MESSAGE ‘ © 2515 2516 2483 SVCSTR os AL2 
OZLE 2416 SUNPK EQU X*O21E* UNPACK DATA <- HEX TO EBCDIC : 2517 2518 2686 SDRIOX os AL2 
0222 2417 SHALT EQU ¥*O222* HALT AND DISPLAY HALT IDENTIFIER 2519 Z5LA 2485 OBRNTA BS AL2 
2418 & '€> ->518 2522 2486 ENTADD DS  XLB 
OAOA 2419 $UDT EQU xX*0A0A' SECTION UDT ADDRESS i 2523 2487 END —OQU (eh Bo Ao = 
2420 © 2523 2622 2488 oS XL256 
2421 #e '@ 2623 2489 OBUF equ 8 | 
2422 # CONSTANTS : 2623 2722 2490 OS XL256 
2423 © 2523 2491 PTRUF EQU DOBUF-256 
2424 @ '¢ 2523 2492 PCHBUF EQU DBUF-256 
2425 *# | 25A3 2493 ROBUF EQU DBUF~-256¢x*80* 
238C 2528 238D 2426 OBRSTa OC AL2(0BUF-256+8)} 2714 2494 ORG O0BUFe241 
238E€ 2718 238F 2427 GBSRNDS oc AL 2( DBUFt¢256-8) j G 2714 2713 24695 MACHE os OCL5 
2390 2439 2391 2428 CeuFa ec Fs AL 24 CBUF) |: 271A 2496 | GRG DBUF+247 
2392 2491 2393 2429 CENDa oc AL2(C8ur<s8 } he 271A 2719 2497 STRDAT ODS OCL6 
2394 2499 2395 2430 PBUFA. - OC AL2(PBUF) G 2720 2428 GRG OBUF+253 
pe ‘ y i 
i ease 
DATE 29AUG7S OTNOVT7S PROG ID FET-1: € oat O7mCY Paos ID FFI-1. 
EC ND. 827804 827805 | PAGE 24 , Con Sa: eoenee din h . PAGE 246A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO 4248242 IBM MAINTENANCE DIAGNOSTIC PROGRAK PART MO. 4248241 
PAGE ¢ PAGE 25a 
FF71 DISK ERROR RECORDING ANALYSIS PROGRAM FFE7L DISK ERROR RECORDING ANALYSIS PROGRAR 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT G CROSS-REFERENCE , 
2720 2T1F 2499 NEWDAT DS $$ OCL6 7 SYMBOL T LEN VALUE DEFN REFERENCES 
2720 2725 2500 pS CL6 c 
2501 ® SACK A 004 1F2F 2088 
FFFF 2502 END _ $aRR © 002 0008 2373 1882 1958 2046 2083 
$BEGIN A 004 1020 1682 1228 1617 
SBGNX A 004 10D1 1947 1862® 1921 1923 1935 2203 
- $BGNOL A 003 1D3F 1889 1891 
.” $BGNO2 A 004 1050 1896 
$BGNO3 A C04 1058 1902 1897 
: . $BGNO4 A 004 1079 1913 1903 
" $BGNOS a 004 1097 1925 1915 
$BGNO6 A 064 1085 1937 1927 
_ $BITCT A 001 2197 2318 21256 2133% 
$BITO € 001 0080 2402 1484 
$B81T2 € 001 0020 2403 1893 
$BI1Té C 001 0002 2404 1991 
$B1T7 C€ 001 000) 2405 1465 2066 2085 2097 2132 
$cc A 002 226C 2349 1963 1976% 19949 
_ $CKMSK A COL 2192 2310 1909% 1921¢ 1933% 1945@ 2056 2074 
SCLEAR C 0023 S008 2397 1850 1865 1999 2038 
$CTR A OO1l 2198 2319 1380% 1388¢ 1395 1748% 1756® 1763 
_ $Cvt aA 002 218C 2303 1230% 1619¢ 1963 1976 1994 
$ODCE A 001 226A 2347 2337 
$00CR A 002 21bC 2337 2060 
_ $DDDF & 001 228C 2359 1989 2019 2030¢ 2031 20319 2338 : 
$DD0R A 002 218E 2338 2061 2222 
$OL A 0C2 2272 2353 1997# 
_$DRV A OOL 2193 2312 1321 1346 1348 1593% 1693% 1714 1716 18Ti* 
SDRVAD A O01 228A 2302 1968 1920% 1932% 1944% 2050 2065 2096 
$DRVID A COl 2189 2300 1243 1632 1907* 1919% 1931# 1943® 2144 
~ $0R¥V1 C 001 OCGBO 2393 2902 1905 
bios . §OR¥V2 C 002 0040 2394 1914 1917 weenie gaa 
$ORV3 C0031 0020 2395 1926 1929 
- $0R¥4 C CO1l 5O1G 2396 1938 1941 
$01 A 001 22AD 2331 1489 1551 1556 1593 1972 
$ECC A 006 1F8A 2122 2211 
_$€CCO1l A 006 1F9E 2127 2134 
$ECCO2 A 004 IFAC 2130 2128 i tae Eee 
SECCO3 A 006 1FB6 2133 2141 us es 
- S$ERP A004 168 2108 
SERR A CO& 124 2083 2058 2076 
SERRP A 004 LFC& 2141 2094 2106 
SERRX A 00% 2FCO 2136 2083% 
$FF A O00l 226A 2348 1991 
SHALT C€ O01 G222 2417 220060 - 
- $HD  & 002 218E 2304 12Z3i® 15928 16209 1670% 1966 1977 1995 
© $HH A 002 226E 2350 1966 1977# 19897 1995% 
SHLTF6 C CO1l FFF6 2388 2159 2203 
. SHLTOO C COh FFOO 2387 41249 1638 
: 4. $1ND & 001 2188 2298 1226* 1615* 1860¢ 1865¢ 1902 1905 1914 1917* 1926 1929 1938 19619 
1999 20387 
, - $19 A 004 1005 1958 1234 1365 1382 1421 1447 1501 1579 1623 1733 1750 1850 1863 
i < $10x & 00% 1€C2 2041 195686 
|  $10X2 A 004 1£B8D 2040 1959% 2025 
| SKILO A 006 2182 2333 1549 
Poke A 001 2270 2352 
| $LINK € 003 6216 2414 189% 1939 
i. SHEG A 006 2188 2334 1554 
i \ $802 A 002 2038 2212 2144% 2148 
: $MOIM A O20 204E 2213 2148 2149 
| $402 A 001 204F 2215 2154 
|< gMo2N A O27 2069 2218 1688 2154 2255 
| gmo3 A 001 2064 2218 2159 
2 |  $MO3N A 026 209E 2220 1879 2159 2166 
'&. $M04 A 001 209F 2222 
| $MO4N A 036 20C2 2223 2241 
| - $405 A 001 20C3 2225 _ 
| & $MOSN A 022 26D8 2226 1630 
- DATE 29auG75 =o7TNOVTS PROG ID revi € pate 29aU675 O7NOV7S prac 10 FFI-} . 
EC NO. 827806 827808 PAGE 25 eC %0. 827804 827803 . PAGE 258 
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PART NOe 4248241 IBN MAINTENANCE DIAGNOSTIC PROGRAM PART NOW 4248242 
PAGE 26 o PAGE 26h 
FF71 DISK ERROR RECORDING ANALYSIS PROGRAM sds EPR «© OISK ERROR RECORDING ANALYSIS PROGRAM 
t “ 
CROSS—REFERENCE (© CROSS-REFERENCE 
SYMBOL T LEN VALUE DEFN REFERENCES y- SYMBOL T LEN VALUE DEF REFERENCES 
$MG6 A001 2009 2228 $RDKD1 A 006 1€5€ 2005 2006 
SMO6N A 022 20EE 2229 1242 1631 . $RDKD2 A CO4 1E87 2019 2009 
$M07 A OOL 20EF 2231 - $RDWK A OGL 2283 2326 2002% 2003% 2004% 2005 2005¢ 2008 2011 2020% 2622 
$MOTN A 005 20F3 2232 1272 $RDHR & COB 1635 1994 1967 2117 
$¥08 A COL 20F4 2234 _$REC A OOL 21CL 2341 1367 1384 1414 1423 1452 1453 14556 1459 1465 1473 L&7T9 1484 
$MOBN A O16 2103 2235 1273 1288 «1289 ! 1503. 1506 1581 1584 1735 L752 i780 1783 1788 1792 «L792 «179% 
$¥09. A OO 2104 2237 1274 1795 1798 1799 16800 2894 18069 2824 1819 1824 1829 1852 
$MO9ON A 005 2108 2238 1290 | $RECAL A 004 10FF 1971 1964 2119 
$M10  & 001 2109 2240 : $PECM & 066 2200 2342 2623% 
$MLON &.004 2100 2241 1275 SRETRY A OOL 2196 2317 1961% 2105¢ 
$M11 A COL 2L0D 2243 _ SRR A OOL 226F 2351 1969% 2008 2011% 20274 
SMLIN A COS 2111 2244 1276 (1277 . $RTN2 & GOL 1770 £219 0377 
$M12 A OOL 2112 2246 $RINS & OC1L 180E 1608 1222 
$M12N A 003 2114 2247 1284 1664 - $RS & 004 1778 21228 1358 
$M13. A OOL 2115 2249 - §$R5&8 & 003 1875 1326 1595 
$M13N ACS 2LiA 2250 1285 2665 $R58 A Q0% 1888 £363 1349 
$414 A061 2116 2252 | $R5BL A C04 i8B8C 1365 1373 
SMI14K A 006 2120 2253 1286 ' €96C & 004 1809 1380 1368 
$M15  & OOL 2122 2255 $RSCL A 004 LBDD 1382 1396 
$M15N A 023 2137 2256 1287 -$R5€2 A 004 i8FF 1395 239% 
$h1l6 4 001 2138 2258 $R5C3 A 006 1918 1407 1565 
$MION A 009 2140 2259 1291 $850 A006 I91E 12412 1587 
$M17 A COL 2141 2261 - $R50L & 00S L92F 1418 21429 4432 
$ML7N A 606 2146 2262 1300 - $R5E A 003 1958 1437 2419 
$Mi8 A COL 2147 2264 SR5EL A 006 1992 1452 1509 
$M18N & 616 2156 2265 1302 1302 21303 1364 $R5E2 & 003 19BF LATE 2462 
$4i9  & OOL 2157 2267 ' $2563 & 00% 1959 1484 1466 1469 1480 
$M19N A 007 215D 2268 1365 $R5E% A OOS 1963 1489 1460 1474 1485 
$4¥20 A O01 215E 2270 _ $RSE5 & G06 1968 1491 1475 1504 1507 
OSM ZONA 004) «2162 2271 L3G? _. $25E5 & 006 19F9 1498 1494 — 
$M21 A GOL 2162 2273 SRSET A OC] LAIB 151i 1499 1552 
$M21N & 006 2167 2274 1396 1766 - $R5E8 A 066 TAAL 1556 1550 1557 
$M22 & COL 2168 2276 > §RSE9 A 004 1AB3 1559 1548 iSS5 
$M22N A 00% 2168 2277 1666 $R5F A OO6 1AaBB 1567 1424 
$M23. A OO1 216€ 2279 _ $R5FL A 006 LACL 1569 1582 1585 
$M23N A 004 216F 2286 1667 \ $RSF2 & 006 LAD2Z 1576 1572 
$424 & 001 2170 2282 SR5N A 006 1LAF& 1592 1405 1577 f.5 eEik syed 
$M24K A 008 2177 2283 1785 1786 _ $R6 & 004 1816 1617 1726 
$#25. A 001 2178 2285 © $R6A & 003 iBCS 1698 1873 
$M25N A 008 217F 2286 L677 $R6B & 004 IBFC 173% 177 
$M26 A OOL 2180 2288  $R6B1 A 004 1000 1733 1741 
$MZ6N A 008 2187 2289 1678 { grec & 004 iCi0 1748 1736 
$NN A 001 2273 2354 1884 1885 1885* 2012€ 2028# 2113# 2114 2114* $RECL A 004 1021 1750 176% 
SPBUF A O01 2202 2344 1236 1248 1260 1282 1296 1312 1319 1341 1356 1403 1562 1625 . $R6C2 A 004 1643 1763 1759 
1637 1649 1662 1673 1684 1691 1709 1724 1771 #1805 1810 1815 © $e6c3. A 006 «1C5C 1775 1753 
1820 1825 183G 1835 2162* 2163 2163% 2168 2173 2178 2183 2188 $R6D & 006 1062 1780 1855 
2193 2198 _ $R6D1 A 004 CBF 1795 1789 
SPRINT C OOL O21A 2415 1245 1257 1279 1293 1309 1316 1338 1353 1490 1559 1634 1646 ' grep2 A 004 CAS 1802 1796 
1659 1670 i681 1688 1706 1721 1768 1832 2143 2146 2152 2157 SR6E A&A O06 1CE3 1840 1781 1853 
2195 » $ROEL & CO6 1CF4& 1847 1843 
$PTR A OCL 218F 2305 1232% 1363% 1370% 1372 1375¢ 1387* 1390 1393% 2407 1412 1416% 1418 ’ rem 4A 004 «DOD 1260 1773 «LB4&B 
1426® 1428 1431* 1491® 1493 1496% 1498 1567% 1569% 1571 1574*% 1576 SSAVR1L & 00% 1A67 1529 1516% 
1621® 17318 1738% 1740 1743# 1755* 1758 1761% 1775 1840 1842 1845% $SAVR2 & 004 1A68 1530 15i7* 
1847 2003 “ $SBYT2 C O0G1 C20A 2410 1856 1899¢ 1901 1913 1925 1937 
$PTRE A OO1l 2194 2324 1407* 1416 1498 1576 1775* 1847 $SBYT4 COOL O20C 2411 1662 
$PTRX & 001 2195 2315 1412% 1418 1567 . $SEEK A 004 1EOF 1979 1992 
$P1 & 002 21k6 2327 1231 1370 1387 1388 1426 1491 1569 1592 1620 1738 1755 1756 ~ $S10 A 003 LEFO 2063 2050¢ 2051% 20522 
1840 1870 2105 2233 $SKCNT A 004 2142 2322 1450 1453¢ 1518 15497 
$P209 A O02 21A9 2329 1230 1619 ~$SNS  & OO1 2274 2356 2054* 2057 2072% 2075 2085 2088% 208° 2089% 2091* 2092¢ 2108 2110 
$P256 A 003 21AC 2330 1997 + 2116 21221 2122 2122@ 2123 Z227 2127 2167 2172 2177 2162 2187 
$P5 A 001 21A7 2328 2004 2192 2339 : 
$0 A 00L 2190 2307 1971® 1979% 1984% 2014% 2033¢ 2051 - = $SNSOR A 002 21C0 2339 2099 
$R A 001i 2191 2308 1972% 1980% 1965# 2015% 2034¢ 2652 .. $SNSIO A 003 1F57 2161 2096% 2097% 
$RDCNT A 006 219E 2321 1448% 1449 1449% 1450 14528 1525 15549 $SNS23 A 002 218A 2335 2090 
$RDHA A 004 1E1B 1984 $$SW11 C 001 0040 2378 1896 1901 
$ROKD A 004 ESE 2002 (| $sswiz € 001 0020 2375 1896 1899 1913 
DATE  29AUG?5  OTNOV7TS ; PROG 1D Fe7-1 Cpate  29aUG75 — OTNOV75 PROG 10 FET<1 
EC NO. 827804 827805 PAGE 26 EC NO. 827804 827805 PAGE 20a 
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FFT1 DISK ERROR RECORDING ANALYSIS PROGRAM FF71 DISK ERROR RECORDING ANALYSIS PROGRAN 


CROSS-REFEREKCE © CROSS-REFERENCE ; 
SYMBOL T LEN VALUE DEFN REFERENCES -- SYMBOL T LEN VALUE OEFN REFERENCES 
$5SW13 C 001 0010 2380 1896 1925 CVTSTR A 004 14€3 1046 1036 1041 
$SSwi4 C O01 O008 2381 1896 1937 CvTX & 002 12Ea 0851 0781 
$$S$W20 C 001 O080 2382 1862 CVTX@ A 001 12F3 0854 07404 07998 08329 
$TEST C 001 0212 2413 2048 CVTX1 A O01 12E1 08467 0813 
$T10 A 004 1FOA 2070 2065*% 2066% <YSTRT A001 149E 1018 10102 
$UCK A 006 1F49 2096 2086 | DACON & 004 OD0% 0259 0152 
SNP Cont etic. cece, iene 2 1817 1822 1827 2165 2170 2175 2180 2185 2190 ip BROS -& Gon OEES” Gxee 03928 
r 80 807 181 8 
auReED ons 1298 3027 2006 > | pauF oa Gon 2623 2489 0086 0086*% 0092 0097 00978 0098 0098% G99 COS9e 0105* 0170 0196 
$XEQ A 004 1EC5 2046 1974 1982 1987 2017 2036 | 0288* 0289 0289% 0293% 0713 0756 O8CO 0833 0926 i172 i151e¢ 152650 
$XEQX A 004 1F20 2078 2046% fo 2426 2427 2491 2492 2493 249% 2496 2498 
$XR1 € 001 O0Ci 2371 1236* 1241 1242 1243 1254 1255 1255 1262 1263 1263 1265 1266 . DBUFB@ A 002 1354 09246 0156 
1267 «1268 #1269 1270 1271 1272 1273 1274 1275 1276 1277 1284 DCR A 002 1352 0923. - 
1285 1286 1287 1288 12869 1290 1291 1298 1298 1299 1299 12300 -ODCF A O01 16FB 1177 O0948% 10608 1061% 1062% 10968 1169 
2301 1302 1303 1304 1305 1306 1306 1307 1314 1314 4326 1327 DOCFB a 010 1725 1202 0945 
1327 2329 1330 1331 1332 1333 1334 1335 1336 1346 1351 1353 |  ODCFE A 001 1704 1185 0945¢ 1076 
1398 1414 1423 1437 1438 1438 1439 1439 1440 1440 1441 1641 |  ODCX & 001 170F 1190 1171 
1442 1442 1443 1443 1444 1444 1445 1445 1457 1463 1668 1671 DDCZ A OO1l 1718 1198 10766 1077% 
A477 (1482 1506 1551 1556 1584 1625% 1630 1631 1632 1643 1644 | DoF A001 1765 1187 1084 i097 1170 1203 
1644 1651 1652 1652 1654 1655 1656 1657 1664 1665 1666 1667 | ODZL & 002 171A 1199 1077 
1668 1675 1675 1676 1676 1677 1678 1679 1686 1686 1698 1699 DD51 & O01 OFEF 0458 03892 
1699 1701 1702 1703 1704 1714 #1719 1719 1766 1783 1785 1726 | CEC A015 2511 2479 0759% 0764 0764% G768% 0771% 07742 0779 
1791 1792 1793 1798 1799 1500 1887 1889 i188¢* 1890 1893 1959 i O1SKIO A O01 1333 0893 C290 029% 0448 0569 O8S96 o895 
2019% 2021* 2023 2040% 2123* 2129 2130 2130 2132 /  OFSKX@ & 002 1349 0902 0896* 0897 1093 
SX¥R2  € 003 0002 2372 1457* 14634 14664 14714 1477 1482% 1487 1487% 1489 ' «= DASK33 & 006 13F3 0945 0899 
$x80 A OOl 21AE 2332 2129 |  OFVBYS A 004 963 0217 0213 0215 
$ZERO & COB 1272 0791 C762 ;  OKERA A 006 15CD0 1216 1139 
ADDBAK A 005 14DE 1043 1025 1033 ' OKER2 & 006 1582 1159 1082 
ADD8 A COS OC7B 0225 0220 |  DKERS & 006 1588 1112 1092 
— —ALCL A OO1 1221 0765 0753* | -~OKERS & 006 15€6 2115 1075 1104 nnn 
ARECH A 002 i727 1203 ' OKNR A 003 LSAF 1107 0947 
ARR C 001 0008 0022 G491 0636 0693 O712 0740 0799 09832 0856 CASE? 0896 { OONE & 001 239D 2435 C661 O768 
ASTER A COl 1082 0611 0591 ;  ORV32 & OOL 1718 1203 1068 
ASTL A 003 1086 0613 0616 i DSK A 001 OFEA 0566 0539 
ALO7 =A 005 GCS6 0224 0206 6211 | OSKCYL A CO1l 134E 0920 
Al1l9 £005 OC4E 0212 0208 :  OSKDRV A 002 134C 0917 0065* 0393% 6994 
BLANK & 001 ODBB 0357 G77 |  OSKFCT A 062 1346 0900 ceca 1067 
BOTH A004 OC8B 0229 0Z18 0224 0226 |  OSKFLG A 001 1340 0919 6923 
BR A 004 OBB6 0163 01452 i  DSKMSG A 004 136E 0933 
BRTBL A 002 0097 0339 0142 '  OSKM32 A 001 0A38 0073 0068 
BSFLG C COl 0002 0488 0415 i  ODSKM33 A 023 0487 O76 0068 0069 0072 
BUMP A003 14FB8 1053 1050 1057 :  OSKNUM A 001 1350 06922 
BYTE@ A 002 OCDS 0254 01348 02509 :  OSKOFS A 002 2383 2648 
CBUF A 001 2439 2465 0664* 0873 2428 2429 2467 i  DSKSEC A 001 134F 0922 0292% 0568¢ 0993 
CBUFa A 002 2391 2428 0509 0865 DSNS A O0OL 1728 1206 2173 
CCNT A GOL 23A2 2437 0433% 0436 04420 0443 -  OSNSE A 026 173F 1207 1142 
CEND@ A 002 2393 2429 0531 0599 / DUMP € 001 2020 0035 
CHKSW A 001 OF88 0532 0870% _ -DVFLG =A 002 6D91 0324 01668 0177% 0184% 0188% 02379 0313 03139 
CHKSW1 A 001 1058 0600 08694 _  DVYTBL A 001 OD84 0354 0148 
CKCYLO A 003 14CC 1026 1020 / . DZERO & 001 2390 2634 0640 0759 
CKFIXD A 003 147F 1002 0999 : D641 A 003 OA1S 0049 0387 
CKZERO A 003 1485 1027 1034 -  €IGHT A 002 2398 2433 0100 0225 0245 6256 
CLCL A 001 1213 0761 07542 | EMPTY A OOL ODIO O276 0132 
CNT A G01 2534 2481 0312% 03194 6398% 04522 , | END A 001 2523 26a7 
CNTLNG A 602 2389 2451 04354 0579% 0742 0746 0751 0780 1514* 15228 :  ENTAD@ A GO2 2397 2631 0134 
CNTN A 001 2514 2482 '  ENTADD A 008 2522 2486 O116 O116% 0123 0123° 9124 2431 
CNTOFS A 002 2387 2450 0255% 0156* 0171 0195* 0197 0436* 0578* 0714 0757 O780¢ C801 02834 < ERAP £001 OA00 0018 
08494 15159 15249 - ERMSG A 004 ©D05 0270 0095 
CNTR A001 1007 0576 0541 : ERRMSG A 004 141A 0981 1022 1037 1054 
CRONMB A 001 2498 2467 OS5SCO 0640 0649 0661* 0662 | >. ERRMSL A 051 145E o9a8 0984 
CSTRA A 002 2562 2474 O5i0* 0526 0530* 0531 0535 0554¢ 0563 G598% 6599 0605 06653 '  €XIT & 005 150€ 1059 1068 
CVTBIN A O01 12AF 0831 0161 0162- i gn & 001 OFFO 0459 035869 
CvT8l A 003 1204 0844 0842 [* FFFF & 001 234A 2442 A494 0719 0863 
CVTB2 A 003 12C€7 0840 0846 ' FFLG C001 0080 O«82 0498 0522 6637 0566 
CVTCNT A 002 2385 2049 0745 O769% 08399 O865s ' . FIVE & 002 23A6 2438 0312 
CVICTH A 903 1490 1017 1015 { \. FLGDA A001 OAll Oo048 0396 
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FFT71 DISK ERROR RECORDING ANALYSIS PROGRAR 
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FFT71 OISK ERRGR RECORDING ANALYSIS PROGRAM 


{ 
| 
i 
CROSS-REFERENCE lo CROSS-REFERENCE 
SYMBOL T LEN VALUE DEFN REFERENCES : p SYMBOL T LER VALUE OEFR REFERENCES 
FLGI4 A 001 OADE 0046 0189 0200 0384 i OBRND@ A 002 238F 2427 0104 0131 O178 0243 6246 
FORTEN A 001 1404 0968 21031 1043 OBRNT@ A O02 251h 2485 0104* 0106 01175 C120 0128% 0131 0139 0243 9245@ O766 O266¢ 
FOUR & 001 1409 0967 1056 ' . QOBRST@ A 002 238D 2426 0:20 
GPCS & O01 145F oO999 ©9655 ; CBRTYP A 002 23A4D 24446 OLI5® OLL? O122% D128 
HALFNT & OGL 0832 0126 ©12i , - wARE ££ 004 08095 6325 9091 0293 
HALT C 001 0222 0031 070 0519 0673 O48: 0985 1152 i 5 ONE A SOL OAB8B cOT?9 0195 0250 O318 0319 C425 6450 C&5E 0452 0556 9583 9598 92615 
HEADWA A OOL 1414 0975 10462 10552 1059 i O752 0769 O845 0849 O852 1030 i666 14055 
HEXDEC A 001 1102 0739 0173 0229 0424 60434 0437 1519 1528 PACK £0694 12165 0693 0560 0557 O577 
HEXOG A 00& 125F o782 0763 | PBUF A GOL 2499 2468 0089% O137 O527 0561 6568 O57% 0578 O579 O586 G&O2® 9604 7430 
HEXDL A 006 121A O74 OT70 PBUF2 A 002 2395 2430 069% G695 
HEXO2 A 006 1220 07689 O767 PCHBUF A GOL 2523 2492 
HEXO3 & 004 1249 O775 O773 ' PCKE & O04 1279 6696 O7T02 
HEXDS A 006 1237 O7T1 o7e3 PD30 A OOR 2666 {£2160 1222 
HEXHEX A 001 1273 oO798 O159 O160 02867 ©0182 PDO3i & 020 1680 1163 Li0S® ALIZ® LLLS* PLLSt LEZ2 LEZ3 L126 4125 12256 
HEX2 & O04 1288 0806 O8b5 . PD35 A O20 1684 4166 2109 
HEX20 A 001 1408 0966 i951 043 A O20 1668 1185 LLE2 
HEX3S A 003 4£29D O821 G80s PD46 a& 020 6D 2266 REGS 
HLTTBL A GOL 1355 0927 . PDSB A 020 i16FO 1167 1218 
H24 & O62 23BL 24647 CSOT#® 6508 859% OB6L PEND@ A G02 24FE 2472 0529% 0596 <cTOE 
INC A 666 OFEO 9563 6571 9575 6586 - PEXTS A&A GOR 2398 OTNS 0693 
TINY A O07 2307 2458 0233 - PID & 002 ©6401 9038 0657 
INVALD A 9001 OCSF 0231 e139 . PRIDEF A OOL 158C 1096 108s 
TOBCHN A 004 1418 O9T77 O993% O995¢ 6998 10C1 1017% 1619 1621 i623® 1627 10308 1031¢% 1036 rp PRINT COOL O2Z1A 0029 0062 0066 O24i O2706 0305 0305 038: O427 G4$38 O515 G608 06669 
LO40% 1643% 1047 LO&9 1051% 1653 1O56* 1059% 1060 1061 21062 a G67 O95 4126 EiBi 1244 bee 
1OBQB A QOL 1419 oO9T8 O994% 0995 i0L2® LOLée LOL4Ss PROGH & 002 2504 2675 
1107 A OOE 2380 2454 0214 ~ PROGC A OSL 2508 24TT 
T1190 A OGL «= 23BBE 2455 0212 < PROGE A GOG 2SiL 2472 
¥323. A OOL 2380 2453 0202 PRYBUF € OGL O880 9934 O89 0137% 0153% O191% 0192% G6583 C&O2 GHO4* GEES 0559 0662 0664 
1126 A OOL Z38F 2456 0227 wa 6860 152G 1527 
Lohse RNS, oe ROG A O01 23C€0 2457 0216 ‘= PRTINR® & GO4 21503 1120 3107 4110 ERIS ERS oes 
15 A 061 O0C49 0216 6223 PRTPOS A OOL L2F4 6755 0232 OF77 0862 0534 
LABEL A 00% OB03 O115 Gii2 - PRIX® A GCL 1316 6863 08562 
LEUF A COZ 16FA 1172 1089 . PSNS A O48 i76F 1208 2143 2iSi 
LOCF & 002 16F2 1169 1070 16088 PSTR@ A 002 2500 2473 OSS5e 0596 
LOCX A 002 16F6 1172 1678 - PTBUE A COL 2523 2491 
LODF A 002 1L6F4 LLTO i671 1079 2190 > PT1403 A 002 OC6A 0219 020% 
LEVEL A 002 1158 0684 0658 0659 P1403 A 004 OCDE 0193 0190 
LINE A OCOL OFFD 0573 0547 - Qko A O01 oOD0S 0266 0348 
LIK C 000i O215 0028 G322 0454 ase? 2354 \.. Q@80 & QOL OD0S 90267 03e0 
£1033 A OOL 1572 1087 aco A 001 OD05 0268 035¢ 
LNGTBL A OO 1267 0784 C741 ~. Gdo & 001 OD05S 0269 0352 
LOAD = € 001 022A 0032 6643 0647 0652 + QEG & 001 O8FB ols? 6352 
LSNS & 002 L6FA 1173 1136 QFO & 001 OC9B 0236 0353 
LVLMSG A017 116C 0685 0680 ~ QRSNS A 001 24F9 2670 O158* 9172 O79 0193 
MACH# A 005 2713 2495 \ glo A 001 O68D8 o176 0339 
MASK A 0OL CCD3 0252 0135% 0248 02468¢ 0251% 920 A 001 ODO5 0260 0340 
MODEL C GO. 6200 06626 - 930 A001 OD0S 0242 0342 
MODELG A 001 OassB 0077 *. O46 & 001i ODCS 0262 0342 
MSG A 001 1018 0582 0537 Q50 A 001 O8F3 0183 0343 
MSGCK A 004 1040 0595 0624 - 060 A 001 opo5 90262 0344 
MSGX A030 CDOO 0258 0273 . ato & 001 0005 0264 0345 
MSGL A COL 102A 0587 0597 S80 & 001 OBBA 0165 0346 
MSG2 A004 106E 0605 0601 ‘ / - 990 A 001 OD0S 0265 0247 
MSG3. A 0620 13A2 0935 0362 0303 . RDBUF A 061 2503 2493 
MSG3B A GOl 138E 0934 0302 : RDDGE & 029 1666 1159 1146 1147 
MSG A040 13F2 0938 0307 0308 - RDDGS A OOL 1649 1158 1146 
MSG4B A 001 13a2 0936 0207 { RDWRT A 003 157A 1090 1067* 10682 
MVCL A OO1L 1252 O778 0743 ROL A 00L 1009 0651 0638 
NEG? A 002 23AB 2443 0837 - ROZ A 004 10CB 0667 0642 
NEWDAT A 006 271F 2499 C RDS A OOl LODE 0654 6650 
MEWORV A 005 1488 1010 1002 RDS & 006 i000 cée4as 0646 
NEXT A 001 OF71 0526 0511 C564 0607 0610 y READ A COL 10a9 0635 6504 0534 0603 0o874 
NFLG € 001 0020 0484 \. RELOAD & GOL OF4&3 0512 0302 
NSLEV A 004 1148 G677 0660 RETURN A 001 OFC& 0553 0545 
NXTL A OO4& OF79 06529 055}. --REXT@ A OOl 1112 0668 C6368 
NXT2 A 003 OF92 0536 0533 { RLOMSG A 017 GFTO 0524 0518 
DATE 29AUG75 OTNOV7S PROG ID FFI-1 CE pste 29AUGTS OTNOV7S PROG ID FFI=-1 
EC NO. 827806 827805 PAGE 28 €C NO. 827804 827805 PAGE . 28a 
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FF71 DISK ERROR RECORDING ANALYSIS PROGRAM FF71 OISK ERROR RECORDING ANALYSIS PROGRAM 


CROSS-REFERENCE OQ CROSS-REFERENCE 
SYMBOL T LEN VALUE OEFN REFERENCES ¢ SYMBOL FT LEN VALUE DEFN REFERENCES 
RMSG A 035 1147 0676 0672 SWITCH A 002 128C 0805 O804* 0812 08149 
RSHEX@ A 001 11C1 0723 o712¢ . SYNC® A 002 23A8F 2445 0311 0315 0318¢ 03998 0412 04509e 
RSHFl A004 1149 0716 0720 .. SYNMOV & GO1 1311 0865 0980 0396 
RSHF2 A 00% 1183 0719 O717 SYNNXS A 001 1332 0876 oss6Te 
RSHIFT A 001 1199 0711 0217 - oYMR A001 1315 0866 
RST A 004 10AD 0637 0683 S SYNT8L A OOl 2308 24659 0692 c873¢ 
RtN1 A O01 OA16 0056 0042 : SYN1 A005 OF18 0500 0505 
RIMIX A 006 ODIC 0280 0244 : . SYN2 A 004 OF28 0506 0503 
RTNIXX A 001 OD2F 0287 0274 ' §2h A 005 OCSE 0216 0204 
RINIX1 A 001 OD5O0 0309 0286 TAB & 001 OFD2 0559 0543 
RTNLO2 A 006 OABB 0097 0101 _. TABIOX A GO2 2388 2452 01549 0168% 0441% 0562 0852 0858 1513¢ 15236 
RTN103 A 0021 Oad7 0103 0093 . TABLES A 001 140C 06970 6996 0997 
RTN106 A 004 OfE1 0106 0118 : TABTBL A 001 2428 2463 0425* 0561¢ 0857 15126 
RINIGS A O01 0817 01129 0114 «TEN & 004 OCD2 0253 0249 
RTN106 A 001 0832 0127 0110 |. TEMP A 002 2513 2480 G091*% 0092% 0094 0100% 010723 0108* 0109 O1R2 O113 O136¢ 01408 0141 
RTNLOT A 001 OCA2 0240 0174 6280 6182 0185 0194 0230 0234 06238 0141 0143 0147 0147% 6149 O700* O701 0751° 0752% O753 O754 0758 
RTNIO8 A O01 OB4C 0136 0257 ' . THO & 001 O£2@ 0395 0442 
RTN109 A 006 O80D 0117 0125 -  yort C 001 0232 06033 0403 
RTNLIX 4 004 OCDF 0257 0247 6255 -  UFLG C001 0004 0487 
RTN111 A 006 OD67 0313 0320 . UNGRD A GOS 1113 0669 0663 0675 
R¥N112 A 006 OD7C 0318 0314 ~ UNPACK C 001 O21E 0630 0655 1127 1140 
RTN2 A001 ODFO 0375 0058 hi UPCYLN A 005 1406 1040 1028 
RTN334 A 004 004D 0300 xXR1 C 601 6001 0020 0166% 6107 01399 0140 ©615G 0155 0158 0178% 6253 O402¢ 0404 0416¢ 
SAVRD A 005 i86D 1598 aS27* 1532 u 0417 0419 0421 0492% 0693% 0500 0506 0506 0507 O0527# 0529 0548 
SAVSEK A 005 1808 1597 1520° 1531 0548* 0549 0583¢ 0584 0585 0585 0592 0593 0593 0613 0614 06149 
SBYTE4 C 001 O20C 0027 0285 0446 aes 0622% 0694% 0696 0697 C698 0698* C7CC 0715% 0719% 07452 0746 0747 
SCAN A O01 OEF6 0490 0982 9088 0279 0282 0317 043% 0429 0440 0872 og % 0747 ©0748 0748 0749 0749 0779 0803% 0806 C807 O808 O816 o811 
SCNEXT A O01 OFDi 0557 04917 i O811% G837* 0840 0843 0844 0844% 08579 O858% 0859 O860% O8b6ie 0894% 
SCNFLG A 001 OFFS 0480 O27T8* 0281% 03168 0413% 0415% 0496 0498 0522 05554 0637 0666* 90772 i 0895 0896 G397 0898 0939 09921 69929 0994 9995 0995 0998 1002 
: O775% 07826 O871% © 1012 1016 1026 1017 1019 128022 1623 2027 1030 1031 12036 1560 
SCi A 004 OEFE 0493 0495 1043 1047 1049 1051 1053 1056 1059 1516 15299 15321 1532 1533 
$C2 A 001 OF23 06503 0699 0523 ; _— 1535 153? 1539 
$C3 A 061 OF71 0525 0497 | € ype C 001 0002 0021 OOT8* 0142% 0143% 0144 0144% 0145 (01488 0149% 0152% 0153 0176° 01712 
$C4 A001 OFS8 0521 0514 ; 0172 0196% 0197* 0198 0202 0203 06205 0207 6209 0212 0214 0216 
SORBS A 004 O0£98 0434 04446 - i. 0221 0223 0225 0227 O0277* 0280% C315* 0394% C4008 0401 04037 0404 
SDRBSC A GOL OEST 0432 0418 0620 0422 © 0406 0408 0408* 04128 049498 0508% 05095@ 0510 0528* 0530 0535% 0536 
SORFND A 001 OFS? 04122 0465 6538 0540 0542 054% 0546 0549 0550 05508 0586* 0588 06590 0592 
SDRTOX A 002 2518 2486 04012 9402 0416 0651% 0594 0594* 0595 0605* 0606 0612 0612 0615 6620 0620 0621 0622 
SDORLEN A OO? OFFS 6465 0398 : C¢ 0823 0623 0695 0696 0697 0699 C6SS* C713*® 0714% 0716 0716 0718 
SORNXT A 001 O£2B 0397 0723 0761% 07426 0743 0756% 0757 O758% 0762 O766 0766 O800¢ 08019 
SDRTBL A 001 OEEE 0456 9398 0400 bane 0806 0833% 0834% 0841 0841 0848 08979 0898 0996 O997% 1009 1000% 
SORI A 006 OED4S 0450 0407 0447 C: 1003 1003% i010 1012 1013 10936 1094 1517 25308 
sor2 A 004 0E€43 04046 0409 : XGE A 0C2 23A8 2440 : 
SDR3 A 004 «OF7D 0424 0426 i. %B9 A 006 1240 0812 0810 
SOR@ A 001 OECB 0445 0430 _% ZERO A004 23A1 2436 0138 1513 48515 1523 15246 | 
SOR5 A OOl OETD 0423 ZFLG C€ 001 C608 0686 O772 OT75 6782 | 
SOR6 A O04 OF3R 0402 0453 a 
SFLG C 001 0010 0465 O278 0281 0316 0413 0496 0555 03871 \_ TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 
$102 A 003 1348 0901 
$1033 a 003 1560 10806 21105 
SIX A 002 2386 2439 0693 CC: 
SIXTEN A 002 2399 2432 
‘SPACE A001 1098 0619 0589 
SPENT. & 001 1070 0609 «a5740 i © 
$91 & Q03 1082 0623 0617 . 
SS$¥20 C 001 0080 06023 0285 0446 | 
w23 © 002 0010 C024 ; & 
- $826 € 001 0008 0025 i 
BSIARINA OO 1415 0976 0991 0992 ' 
STaTOY a 026 1649 1157 1230 1133 1134 : © 
STATST A 001 162F 1156 1133 ‘ 
STATUS A 002 1348 0916 09468 1126¢ 1129 | 
STRDAT & 006 2719 2497 :¢ 
$UB126 A 005 OCS83 9227 0222 
S¥CSTR A OO2 2516 2483 | 
SYNTEN A 001 2408 6969 1023 © 
. { 
OATE 29AUGTS O7NOVTS PROG 10 FF7-1; € DATE | 29AUG75. ss; O7NOVTS PROG 10 FFT~1 
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FFTL 


THE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT. 
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 6¢ CL 65 THROUGH B80 


GBK GBD PN 42 


Te-¥:97D & B/S 
T+~750)E&¢.Y8>] 
T+-DOEL To ECLES*X 
Té—99—KESA2MLOI- 
T+-SW1U<* BMLAYD 
T+=_/HSMS4#—DVH&B 
TeeDe KMLEJES <6 
T#=?PH#E*LNAOCT|O 
T+-OK/025+Y (UCH 
T4-1tU 2SC-DT_OD 
T+-2HT- H#82/06 
T#-3€/ 1GBaYLOHe 
TDESNG"HAB-@AC (M 
T#-GGaZ FC-DVES* 
TH#-5e = Cos 4888 
T+-6F 286 /YBEAS 
T#-7AS@ ACO~ /0H 


Te-7AEDC 1° IL 2EDA 


® . 
T4#-B87 C-—-B-#2U & 


T+-92 SMO(EDVF CH 
DATE 29AUGTS 
EC NO. 6827804 


48240 BC 827805" 
ea *D HU ED 
ESOCPOeGKE<105 34 
E8>E #>1463(.0-H 
( AGOGIKYXH-37 12H 
‘VE wornsas7erul 
GB04G* KMEHS4( KM 
N(-HWOHMB CEBBRU 
COH*K*eaBGDXI 1H 
AHGaaBBLOOI <ysB 
2 O-HiHBOBHES *. C 
¢ “WesHGaga’ et 
K*DOF 8 IGaYsGe—— 
HS3oata<e 
SOH#.U<PR6EISRECT 
GC?SE — Des sep 
SOH*EBF-RED*H< K+ 
0 mm@OGRB*Z (AEs 
"GDA EDCBEELAEDA 
aBEHDeK HELHEACL 


es @eaenee 
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GBJECT CARD LISTING 


DISK ERROR RECOR 
& 0 CxC /OHEEO. 
AZ)PIS#) 1)XR5_V 
*"eBGD1G s/o#ecte 
XF-3" ISYWH-@AIJ< 
2AGaBB4_C-*VHSM 
EHB" / 4EC D<SK+ 
* KMLIJIB -63(-H 
2OH#KsaBG tH 6 
GOX! sozseu iu<s 
2-WMBH Yeas 9TO” 
” OH® SW=HGGTHAC 95 
(ultie <B6 sysceo 


18>1063/ 8aGB4EN 
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18M MAINTENANCE OZAGNOSTIC PROGRAM PART NO] 4248201) © IBM MAINTENANCE OIAGNOSTIC PROGRAM PART W& 424 
0. 
PAGE 1] - PAGE eeeeth 
0D00 3340 CPU AND MEMORY TESTS PROGRAM 00 MOD 12 _ OD00 3340 CPU AND MEMORY TESTS PROGRAM 00 MOD 12 
ERR LOC OBJECT CODE ADOR STMF SOURCE STATEMENT . ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
2% T cH 3 ’  Q05A Ci C2 OO5A * 
3 DECK «¢ nest eer eeeOnae a O05E 31 C4 0078 3 ace LIB DSDRSODR LOAD DATA FIELD ADORESS ? 
a SEO. 0 0062 31 €6 0079 72 L10 R»DCR LOAD CONTROL FIELD ADDRESS 
| 0000 5 UVWXYZ START 0 0066 Ei CO OOBC a3 qo BERR, ERRORI TEST FOR ERROR SEFORE DISK SIO 
72 SECTOR 48 006D C1 C2 006D 75 iio |, BUSYTr COOP UNTEL Disk BUSY DROPS” 
8 Bett SE ESS SESESESSESESSLERESESSLISSESESLESSSSSENESESSESESSSSFENSSSEEES 0071 F2 00 OA 76 JC AB3,0 UNCOND JUMP TO A83 
* 77 
10 # A SMALL -CC- HALT WILL OCCUR AT_ADDRESS 0: * 0074 0044 
1 ¢ LOADED THE PROGRAM: RESETTING THE cCC> Hate Mi “| 0076 PREF Oo77 3 RerE BF xEStPeere 
2% IN AN«a-LL~- HALT WHICH INOICATES TH P * 0078 0016 0079 80 DDCR oc AL2(A138) OISK CONTROL FIELO ADDRESS 
32 PROPERLY AND THAT THE LOADER, WHICH I T * COTA OOFD 0078 81 ODOR OC ALS esa) DATA FIELO ADDRESS = X*FD* 
14 2 SECTOR, HAS BEEN LOADED. NOTE: IF I * 007C 0000 007D 82 ZERO 0¢ 00" 
3 PEroNF ine HOC Sy TERS AobReRECHTERY $3 1S ORES 1S gore cx co 09 e} sea 
17 * TO ADDRESS -0145- TO CONTINUE. RESET T +. 0082 FO 66 6B" Bo o> Ape RRERRSERRORE LE MALE TO MODIFY EGADERT Lo 
15 * HILL CAUSE EXECUTION OF ALE STAMDARBY E s| 0085 F2 00 75 B6 NEXT JC WXTSEC,O GG EXECUTE THE NEXT SPETOR 
20 ¢ CONCLUDE WITH AN —8P= HALT. AT THAT #1 &°  p088 Fo oF 57 83 HPL _X*ST* x8 6Fe 03 HALT 
21 * OR OCP LOADING MAY BE SELECTED. | 0088 01 0088 89 ONE OC XL1'of* 
53 * 008C FO 6F 18 90 B4ERR HPL X'1B" Kore 04 HALT 
£3 FERESESSESESEESESSE SERS EE SESLISSES SESSA OTSESSSTRTS SESE ETESESELESEERELES| OO8F F2 00 03 91 c O1SP,6 
54 Seeees he 0092 FO 6F 50 92 DKERR HPL x50! xre6Fe G5 HALT 
aS cecsse tHPLY HALE BRDGRAK LEVEL 0095 £0 6F 70 33 
gi sssese {S18} START 170 DISk READ KEY, DATA . 9098 30 C5 O0F1 33 pests SNS Byes ecee SENSE CAND LOAD ‘ADAP STATUS 0, 1 ~~ des 
go Scsess «TEST {4} GATE U8 bg.CansseD to A ~— BOK5 £6 F OF $i tn RSP ee. int xa? 
31 eeesee (s RESET CR. c COA3 30 C6 OOF1 99 SNS BY2 a : 
32 seeees (Th Syst en Reser. OOAT 35 O2 OOFi 100 i yeasKe PENSE AND 
33 esesee (8) BIN ADD SUB NOT HOV OOAP FO 6F 5F 101 Her Br ezr*8e.e, LOAD AOORESS OF CONTROL REG -> xR2 
eeeeee oX"6F 09 HALT 
ai 3¢ ese08¢ a epee steese OOAE F2 00 03 185 
36 CES SSSERSRESSESSRESERESHSE SE OFTESSEESEEREESEEEESO6E5T04539 95468 E44S0995456E8 cme 00B1 FO 6F 3F 104 SsuseSeuanesibn so sreissoeeceusabis Gbbacevdencow ea cssscsikeeeskaduseeen ces es 
0000 FO FO F 6 105 ABL HPL xX" 3Ft,xtore OA HALT NO-GP JuHP 
9003 £2 FG AB 33 JUMP Je ATE Sah EXPECTED HALT -SMALL CC- = baa Shee Gne 106 sseecccseseessssisizstenssseanecsccsesssssssssseanssststseseeetonseses 
UMP2 3 X*FO* sX*FO* NO-OP \.  QOB8 35 62 OOF i ;: 
po0e FR ro EO 08 i BY2 LOAD ADDRESS OF DATA 
0000 f2 00 12 42 Sune Be enon ekr rg: NO-DP BRANCH CONDITIONAL OOBC FO 6F 6C 109 He, = xx*6C 3 xP are OC HALT Bro Tat ane 
OOBF CO 00 0095 111 BC DISP,0 
G4 TETERERL 4460084624 EESERD 
0010 £0 60 FO ae Gates cee REE OS CMIBOS en San gee ee ea ree ae ceneeeseeeseesseee 00C3 FO 6F 73 112 HPL ox *§ 732 oxegee OD HALT, BRANCH DID NOT BRANCH 
46 * SUNP UNCOND FAILED LF Scr Or3s2, ie OC6 FO 6F 7C L193 €6999086424064545654 668394639 4649000060200064 SPRFLSCRRSESSSS SHRRRASSESSSOSSS 
01S bOCke ce G1 EetesSeseseansescsserenneeeseseeseeeseaeaHeReeee eee ese eeseencestsess es C 00C9 FO 6F 3C 11s HALTE HPL Hees RACES oe Att . a ven . 
B81 68 oF SF ong SB REBOR BEE erage er OGuFAbE cH BF eBRNEH SRANCHED  goce €3 ct oF LIF aoean’*sion* "ators acne tet et aeae preateeaseeersenewenonensnenees 
8 6 i 
B818 BYBS8E8G00 «SSF SP aiee BE ESSED09G00950, © SOMIAGE ERED T Coot ci Ee Goce gOS BuST L90p FILE BUSY oRoPs 
0020 £070 F3 Cl 01 120 SIO -X*61* »READ = 
0022 32 C6 0021 ooet 22 A970 tio AEBvoCbeR LOAD HALT FOR SAR _BIT Ci €2 Sopa 121 TiO 8, Busy © COOP Fill Busy CROPS 
Bess 22 SS Shea 22 SNS 0298 ,6cR MAKE JC A HPL IF SAR BIT 7 STUCK OFF: 3¢ 92 oa O88 135 hv alot) sone SET OP TiO BRANCH “TAO TO Ol- 
Reh at Ce oaae oe 3, 43229 oe SAR BIT 7 FAILURE IF NOW A HALT CO 00 0053 124 BC RETRY,O GO TRY_ALT TRACK 
8051 39 £4 037 sons, RRS £3908 0BR Senge BA ake FO 68 57 125 HPL X*S7*, Xx" 688 L3 HALT - BRANCH Failed 
UNCONDITIONAL JUMP IF UNCHANGED 000130 0 
Bae So BF 92, oy aw. | eS K#04" »xe6F* OL HALTeLIO OR SNS DID NOT WORK 00 Gore 128 auteto pe «| St P Sage? LAG 
OO3k 30 Ee oon $1 ’ OAD _DOCR WITH ZEROS 00010000 OOF6 129 oC 14*000 ® me 
0043 31 C6 0077 é5 PNS 020300CR STORE CONTROL REG INTO 12f 00000000 OOFA 150 DC RLarggs 1o0e Cm 
0047 30 C6 012F 64 SNS  0303°DER SPORE CERT ROL REG INTO 128 gor2 QOFC 131 SALTFO OC AL2(ALTFLO) 
0048 31 C4 0075 65 L1G Ado’, 00R LOAD DODR WITH 6044- ener 13g NXTSEC HF. = X*6F* sk*68° LO HALT 
OO4F 30 C4 O12F 66 SNS 0303,00R STORE DODR 1 134 
O83? 23 ES QoFc 68 RETRY LIO See. gave 133 BOR Eau i $: 
L @ALTFD,OCR LOAD CONTROL FIELD AD 2 
0057 F3 CO OO 69 "608 ORESS 0002 136 XR2 £EQU 162¢ 
S10 X*bo o SEER SEEK TO CVE ly HEAD 0 ee. OOCO 137 ERRORI EGU xeoe 
DATE 29aUGT75 oe. 
Pp 
EC NO. 627804 phee 2° §39u675 eros 10 000-0 
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IBM MAINTENANCE DIAGNOSTIC PROGRAR : ogee NG- 4248291) ~ 16M MAINTEMANCE DIAGNOSTIC PROGRAM eaRT NO. 424820} 
0000 3360 CPU AND MEMORY TESTS PROGRAM DO MOD 12 _. 0020 CPU AND MEMORY TEST LOADER PROGRAM 01 MOD 12 | ies 
OBJECT CARD LISTING .. ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT j 
a , , DECK 4 
THE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS BE A INDICATE NUMERIC SHIFT. QO aeen § uses seo i 
CK 2 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 61 THROUGH 96 5 REP 
eo : § Seccccccesscnsssescesesseseseeeeesssesescosesseosesseesessessceseseness 
e o ece e e e e e e ° e e e eeaeeeee eesenece 8 ¢& 
t “OD 42884388 0p000000 98 THIS SECTOR 1S READ INTO CORE LOC OFD-1FC By SECTOR 46 © 
GeK’ GBD PN 42 46200 EC 827804 33460 CPU AND MEM ORY ESTS HOD 12 84aa a 13 : THIS SECEOR CGwfAtns CORDERS FOR’ SECYORS esysgeren? : 
@e ee e aee eee & ee e e @ e _@ ee e e 
Te-":a1C0a78.a7C OO} OFM D7VE0aIA 780 & EA C OSEGF epo01-06a- <#6 (30D C-2 $ O$0< teers Ls assuavensesssenscsnsenassesssenssensenscsnnssesesesensesnsseoonegss ers 
e e e e ° ee e e e eo e e es. .. 4 es i 
- ° *Q @ Ag<#Q 3% H330ECA0-A_@- BH O& aSa0D000002 e+eese TEST LSR INTERCHANGE eeeese 
Te-AS<00 “LCF KQ LI~A7<CQA.3GD GM 01 027<#Q “11 <G B EVI) AB<#0 396 AL | CQ ig cesses ES . qe ESR IRTERCHAMGE Oe sesees 
T+~80"@9 E-C* C AO C<aFsYa~-aSaFr* P°-=AZEPH PA2P3A LCE 105 -C1iaFra G<<Q aLMB (G0$5° 2°°<° o-aeoeo0003) oO 18 $4904 09009S869004066S0ESSS4FS8SSSSSTESSSESESSSSESESSESSSESESSSSSSS 
s . see e eS... _— eee 8,8 80 Le x! FO F A TO OVERLAY HALT IN. SECTOR 48 IF GOOD 
Te-c,aFarcce’ alm 6°1G0863° GNAF* 3aF*aaFaaaanGoeH “33GD 1330EGA0-C EC E-B-iIH -* ** <" ng-opc00004! 188 FS 82 42 ee 21 MALTA Hes FEET ext oes FO OVERLAY UP EAILED YO JUMP 
oo «ee eavecnesce SCOSHSSSHSSESEOOES SOSSHSEHSCHSESSESS eeccececoeseneeeen 00006 le t ° 23 $86989E540004845449898SSSSESSSERSESSEDESESESSSEESESSSESSSSSESSESSSESES 
tooc"aFsP =O A - {-ckFa 1QHOD900005 ; aes LOADER FOR SECTOR 3 
ees cee 28 coe. eseie woe cccccecces cecce . 0104 36 03 0198 36 LOADS MVI AC2+6ex903" -- - ..--SET UP FOR MEXT.SECTOR -- 9 -.._---- evgen 
” * 12010630750 82875 10vOD000006! ‘ . epee 
Spereetee perene % mere ‘ . es ane ee <2 anive | C 106 CO 00 aah 38 seeseasesesensssessecccscseseseessceeesesesseccscssasssessesssoeseasnns . 
| © 3 ° LOADER FOR SECTOR 2 oo . ¢ — 
. O02 0 0137 2 t0R2 TT! HALT2,ERR CHECK FOR DISK ERROR 
| Sis ¢ $$ 138 0016 33 MV eer ere eAl8 cee uP net FIELD FLAG 
! 9116 OC 00 O1AT 0196 34 MVC = ACS 101} 2 AC 241 SET UP CONTROL ELELD FLAG ; 
oe oe {Ee 11iC 0¢ 00 0183 0196 35 MVC acse1 (i eaceel SET UP CONTROL FlEL ELAG Sh se ae 
= Se O122 00 O1BE 0196 36 ave acest 2AC241 SET UP CONTROL FIELO FLA 
Ss | 0 26 oc co 9 8 0196 37 Bve ACT¢1(19,AC241 SET UP ONTROL FIELD FLAG 
O12E 0C 00 4b 0196 38 Mv ACOM*1 01) ,AC202 SET UP CONTROL FIELD FLAG 
See 0134 £2 00 0 39 JC 10A02.0 GO LOAD SECTOR 2 IF NO DISK ERROR 
ae 0137 FO 68 03 40 HALT2 HPL X*O3*»X*68* Lil HALT, DISK ERROR OR NOT READY 
013A 31 C6 0195 41 LOAD2 LIG AC2.0¢R ‘toad opte 
O13E 3C CO O19F 42 MVE  AC2+10,X%*00* ZERO SHE % FIELD 
f 0142 F2 00 33 43 36 EX 190 GO LOAD SECTOR 
«BEE EB 88 949° $3 aaeDOR BE, bMEFIOnsnge «6. ESPuauovgnanenPaptess tor egrt=- --= 
| 014C 00 0:4c 46 oc” 0 ufo!” : * PEIMGhc FUNCT Clde (2) 
| & rt Soseseceseceassceecsecessesecesoresssoeseeserseleeteor ent rr Tg 
| = 39 ¢ LOADER FOR SECTOR & : 
© 140 31 C6 0146 52 LGAD4 tio aC4,0CR 10aD_DDCR 
151 F2 00 24 53 j EX1t.0 GO LOAD SECTOR 4 
| a) 2? coenesscacssocsesessessocesseseseesessssosssoossoos esos seseses ees eneees 
| of : LOADER FOR SECTOR 5 °. 
ee 0154 31 C8 0182 59 LGA0S LIO ACS,0CR LoaD ooca 
2 0158 F2 00 10 69 Jc EX11,0 6Q LOAD SECTOR 5 
| of euecaussecocsssssascensescessesecsocesssssesessesesssscosoooasossesees 
le 
| © ge § LOADER FOR SECTOR 6 | : 
158 31 C6 O1BE 66 LGAD6 410 AC6,DER L0aD DDCR 
. ve Oise #2 SO he 67 SO EXTH6 £8 *PokD Sector 6 
eee ee LAST PAGE Pea Na : fen 69 SRSSSETCELRSEESESESSESSESSSSSSSSSSSETTESSESSSESSTSESTESESE SSS SECS SSS OSS 
DATE 29aUGT5 AC 
BATES. 224082 page #0 000 C’pare, gemugrs pagg 1001 
9 3 
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PART NOs 4248201) 18M MAINTENANCE OLAGNOSTIC PROGRAM PART NO. 4248201 
PAGE s PAGE 4A 
0D10 CPU AND MEMORY TEST LOADER PROGRAM D1 MOD 12 _.0010 CPU AND MEMORY TEST LOADER PROGRAM D1 MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT  €RR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
70 ¢ 2 ; 0002 136 XR2 EQU *o2° 
> SDADER LOR” SECTOR: 7 7 & Coc 3a GbR 86 FRU Oke 
0162 31 Cé 01CA 73 LOAD? LIO ACT7,0CR LOAD DDCR 00C6 139 OCR EQU x*CeF 
0166 F2 60 OF th ic — Ex t,6 GO LOAD SECTOR 7 Ue QOC1 140 READ equ krCIs 
75 | © 00C2 142 BUSY EQU xX*€z2e 
45 FFFE 143 END 
7g ee ne 
1g ¢ COMMON LOADER FOR SECTORS 8 THRU 47 ; 
0169 3C 00 010C 80 BOOT MMVI CNTFLD1,¢-« SET CONTROL FIELO R BYTE 
O16) 3¢ 00 OLES 81 MVI CNTFLDe5 58-2 SET CONTROL FIELD N BYTE Q 
O171 31 €6 O106 82 LIO ACOMsDCR LOAD DDCR 
0175 F2 60 00 83 Jc EXIT.O 
85 SESSSKSSEAEE SSK ASSSSKES ESS FB OSES ESE SEEEEE EES EES EEEEEEEEEEESREESEESEERESD e 
0178 CO 80 0003 86 EXIT BC 3,x*B80° NO-Or, ALTER TO LOOP SECTOR 
O17C 31 C4 0193 87 t10 Ad0,DDR LoaD SonRr 
0186 F3 €1 00 88 SIO. X*00" »READ READ KEY—DATA 
0183 Cl C2 0183 89 TIO 9 #, BUSY LOOP UNTIL DISK BUSY DROPS OQ 
0187 €1 CO O1FO 90 TIO COMHLT.ERR TEST FOR ERROR AFTER DISK S10 
0188 CO 60 0003 91 BC 3,0 BRANCH TO LOC 3 OF SECTOR JUST READ : 
92 2 ALTER TO OO FOR HALT BEFORE EXEC. = “ 
O18F FO 68 76 33 HPL = X* 76% ox" 688 L2 HALT, PREVIOUS BRANCH FAILED Q 
95 aaa bie ot adalat atlanta atlanta tn 
2 
38 SeesssecscreocsTeeeoesenesseacescaccsseseseneseesneseasesuecescsoossees G 
0192 0000 0193 98 ADO DC aL2to : 
0194 0196 0195 99 aAC2 DC  ALdtee2) 
0196 0000010000 019A 100 ~ p€ —_xt§*0000010000° F-CC-HH 
0198 0200010000 O19F 101 oc XL5*0200010000" R-K-DL-N e tego Res he te 
01A0 0000 O1AL 102 KL2"0° LL 
103 SESECSSESHS HES SESE ESEEEEEES REFS EES OES $6654 0049$6S49008ES8550E8EE9898 
01A2 FO 70 FB 104 HP KIEBE,Xt708 SAR BIT 7 FAILED 
105 SROCEESSESESESSEES EES EESSEESSESSSESSEEEEESESSSESES SORE SECSRESRESESEEOSS Cc 
O1A5 O1AT 0146 106 aCe OD AL2( #42) : 
O1A7 0000010000 O1AB 107 DC XL5#00000100008 F-CC-HH 
01AC 0400010000 0180 108 oc XL5*°0400010000° R=K-DL-N 
0181 0183 01B2 109 ACS DC  aAl2(#2) CQ 
0183 0000010000 0187 110 OC  xXL5*Q000010000¢__ ” 
0188 0500010000 OlBC ill pe —_-XL§*05000100008 
0180 O1BF O1BE 112 ACO DE = ALaceez2 ; 
01BF 0000010000 O1C3 113 DC  Xt5*00000100008 CG 
0104 0600010000 O1CB 114 DC XL 5*0600010000' 4 
O1C9 O1CB O1CA 115 AC? OC ALDI 802 
01CB 0060010000 OICF 116 oC XL5*0000010000° (oe 
01D0 6700010000 0104 i17 oc XL5*0700010000° C 
0105 01D7 Q1D6 118 ACOM DC AL 2 (CNTFLD~4) | Se 
01D7 0000010000 0108 119 CNTFLD DE xtS*G0000100008 F-CC-HH 
01DC 0000010000 O1EO 120 DC  —XL5* 00000100008 R-K-DL-N . 
y2t So re ere esnenensctesesneseeses eseresecsseseseceetecseseoesegeetses © 
125 ¢ SEEK ROUTINE ¢ 
01€1 C1 CO O1FO 125 800T2S TIO COMHLT,ERR | Cc: 
O1ES 31 C6 01D6 126 LIQ ACOH, DER 
O1E9 F3 CO OO 127 S10 x00! ex*coe SEEK i ; 
O1ED FO oa oeo? 138 commer fen | BOE. K*68t LE HALT, OLSK ERROR OR NOT READY 
SLES £8 8$ ofa, 130 8 Bob¥28 . G 
iz¢ ST QUATES nn eee ee nanseesscesesesensocosssesssasstssoseseoesess| 
134 Sessonsssesssaesensesesseesccscessensessesesessssosssscccossssesesesses © 
0001 135 xRl 4 =©6©E€QU. = xK*OL® x Sas 
. es 
DATE  29AUG7S PROG 10 Di-0) \. DATE  29AUG75 PROG 10 001-0 
—C NO. 6827804 PAGE © £C NO. 627604 PAGE 4A 
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18M MAINTENANCE OJAGNOSTIC PROGRAR bane NO. 


0010 CPU AND MEMORY TEST LOADER PROGRAM 01 MOO 12 
CROSS-REFERENCE 
SYMBOL T LEN VALUE DEFN REFERENCES 
AcoM & 002 0106 0118 00387 0082 0126 
AC2 A 002 0195 0099 0026% 0033% 0034 0035 0036 0037 0038 0041 00429 
ACS: A 002 0186 0106 0034* 0052 
acs A002 0182 0109 0035% 0059 x 
AC6 A 002 O1B8E 0112 0036% 0066 
ACT A002 O1CA O11LS 00379 0073 
ADO A 002 0193 0098 0087 
Als € 001 0016 0137 0033 
BACOOR A 004 0145 0044  O0e8 
BoOoT A 004 0169 0080 ote 
BooT2S A 004 O1E1 0125 0130 
BUSY C 001 O0€2 0142 0089 
CNTFLO A 005 0108 0119 0080* 0081% 0118 
COMHLT A 003 O1FO 0129 0090 0125 . 
OCR € 001 O00C& 0139 0041% 0052% 0059% 0066* 0073* 00682* 0126% 
COR C 001 00C4 ea 0087 
ERR € 001 OOCd O14 9034 0090 0125 
EXIT A 004 0178 0086 004 0053 0060 0067 0074 0083 
HALTA A 003 0100 Seca 
HALT2 A 003 0137 040 0032 
HALT2A A 003 0149 0045 
LOR2Z & 004 010C 0032 0044 
LOAD2 A 004 013A 0041 0027 0039 
LOADS A004 0104 0026 
LOADS A 00% 0140 0052 
LOA05 A 004 0154 0059 
LOAD6 A 004 ors 0066 
LOAD? A 004 O16 8073 
READ Cc 001 O0C1 14 0088 
UVWXYZ A O01 OOFD 0004 
xR] C 001 0001 0135 
a ARS C 001 0002 0136 
TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 
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0010 


- THE CHARACTER * INDICATES A BLANK COLUMN AND THE cHaracrers OB E A INDICATE NUMERIC SHIFT. 
CL 49 THROUGH 64 CL 65 THRCUGH 80 


e se 
Ae” 
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Oo oO 


© 


ny 
es 2 


“, 


em, 
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ry 
ee 


ae 


CPU AND MEMORY TEST LOADER PROGRAM OL MOD 12 
OBJECT CARD LISTING 


CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 


“GaK’ GBD’ "PN'42 48200 EC’ 827804" 





CPU ANO MEMORY T €STS 
1e-07aV)EaF/?2°CO CR?” 920% A(OO *°nQ"e-0° Esav-0 ~ 
T4-E2E’ <RI-FN]”” «= AX"H <a” G30EE® * <#QAZ7H ICGE $e 
14-6782" C=" CKMEAUMIA KGB OF ao’ Goo. *ayi- RO 
es ees eee eae ee eee e2e20 aee e@ ese eee eoo¢eeo ee ese 

T4+GY & $<. OD we sa OD as *g «OO 6 
= ee e eeeeseeed eevevecenseeee2ed 
TCEG6IS OHFAEA Y=<BG 3D 

Ent 8 sE7e2-00"PHS eemery be ce” es asc” RA SO 

OATE 29AUGT5 

EC NO. 627804 


* $<av-0° SaAv-0 


2° aGll-F=a- 0.*Q 


SOSSOOCHESCSTHEHHOAEE 


28S Seeeeeeeee 


g¢aassaa_ 


*eZAv-0° | }*AV7H 


A2?H C30. )02 G 
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CL 81 THROUGH 96 


00100000 


ae ee = 


# .£ yod100001 


-¢#Q° KLE00100002 


@e o@e8 


A’ "R2-0D10G003 


F°)Q *"TYOD 100004 


42*00100005 
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PART NO. 4248201: ’ PART NOe 4248201 
PART gt - TM MAINTENANCE DIAGNOSTIC PROGRAM PaRt o} 
0040 CPU AND MEMORY DIAGNOSTICS: PROGRAM 04 MOD 12 | ©D@0 CPU AND MEMORY DIAGNOSTICS: PROGRAM 04 MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 4 ERR LOC OBJECT CODE SOURCE STATEMENT 
| g QEGK 3 a 0023 FO 73 18 3 ALTS HP H4 »HD * (JUMPS) OK 
1 . 
0000 4 UVWXYZ START 0 | 70 § : ? * ( 1914,20 } 
* R ; 2 
i cessagessensassstssesennanssssssessessaunsssssssnsanassassesssoscesens gm. 0026 F2 FF 03 qe JHPS Jc HLT6 sUNCOL . maa ie TRY ONCE JUNE 
«648 . coat, * M ERR 
8 saseee Bade be CERES gereee 0029 FO 73 18 74 WLTT HPL H4 HD tJ ee 
10 teeege eSe6C4 76 & 
Th cecese TEST (1) EXCLUSIVE oR goaeee © 2C FO 73 4g HLTS HPL H4sHD *® (JMP5) OK 
13 t4eee6 (2) IR SKP TRUE sseeee ve : ty 78 at ( Le2918e19,22) 
14 teeeee (3) BR OR SKP TRUE Steeee 80 
te ecesee ts) ae cR BN teaaee O 002F F2 00 D > JMP6 C BOOT, UNCD2 UNCO JUMP TO BOOTSTRAP 
Os J 7 
i Seca 1S} tsk INTERCHANGE ee caee 0032 co 00 0039 83 3 BE HLT10,UNCO2 * (JMP6) ERR, TRY UNCD BRANCH. 
19 ¢xenee (8) 8R DECODE eeeaee * 
19 sseses (8) BR DECODE | eeetee 0036 FO 73 18 5 HLTS HPL H4sHD (BR3) ERR iia 
2] teense {10} Pl Seseee 87 ¢ 
35 Sexes 12) kag 0 TO 8 settee 83 e1eR3 
a. : 
23 sees (12) AND Ses Cc 0039 FO 73 18 BQ HLTLO HPL H4eHD (BR3 90K re 
25 seeene €14) MOVE NUM {KILLS AND ZONE? ShStte 91 & 
o¢ gessse {12} BRAG Bei seaen0 7 «693 NOOPL EQU x*7E® 8 REG BIT 0 LINE DOWN 
38 eneese (17) CLOCK 3¢-S¢ eessee | Oe ee ee eens: ee ALU-BLANK LINE DOWN. 
oF asesee {18} StOEe 28, 4 sasees ; 32 ON *g08 REG BIY 0 LINE uP 
3] *eese8 €20} BIN SUB GATE €4848e peer 3S ore eed 80 BLUCBLANK LINE UP. 
32 sesese (21) INTERNAL cecees. © oo 6 ‘ERS B REG BIT O LINE UP 
3% SSESSSSSSRESSSECERECKE SSERSACSSSEESESESLSSTESELSERASARSTSHEAESSSESEKSERKSSSSASKATE ooFE 100 UNCOL equ BOee ALU-BLANK LINE DOWN. 
— . 101 ¢ eens snes 
33 Cc ; 008 B REG BIT O LINE DOWN - 
0000 FO 73 18 36 HLTL HPL HéeHD INITIAL HALT = 06 OOOO peg uNcbe FOU: x ALU-BLANK LINE UP. 
Hi core te ie fou Ta 7 
0003 F2 TF 20 38 JMPL JC JMP5,~NOOPL  —~=------ND-OP (le 29 39 4» 5) €- . O1BE 106 AC2 EQU X*18E* 
39 * 0002 107 BOOF EQU xX*D2* 
0006 F2 80 14 $0 yuP2 sc JMP4,NOOP2 m—--==-NO-OP {ly 4» 12, 13) FFFE 108 END 
0009 CO 7F OO1A 42 BRI Bc HLT4,NOOP1 --=--NO-OP {6 ) ; . Side ta nh, iy oS 
O000D CO FF 002F 44 BR2 BC JMP6,UNCDL —=—==-UNCD BRANCH. (ls 69 7, 8, 10) 
OO1L F2 FF 03 46 JMP3 JC HLT3,UNCD1 | | | | ——-% (BR2) ERR, TRY UNCD JUMP. Ge 
0014 FO 73 18 48 HALT2 HPL H4,HD @ PROG 3, HALT 2. ERROR HALT. 
49 * © THE FIVE PREVIOUS INSTRUCTIONS ‘ 
50 ¢ ® WERE NO-OPED. C: 
a s S € 129011,16.18) 
0017 FO 73 18 53 YLT HPL Ha eHD ——>© {JMP3) OK a 
| 22 $ : 
001A FO 73 18 eo —--=> BRL) ERR (6) f 
8 5 > - 
0010 F2 00 03 1 ymPe aC HLT6 pUNCD2 * {JMP2) ERR»TAY UNCD JUMP. , 
63 ? 
0020 FO 73 1b 64 HALTS HPL H4eHD * PROG 3, HALT 5. ERROR HALT. 
65 @ @ {JMP4) FAILED TO JUMP. i: 
66 ¢ s ( 4Sel2e130e17 3} XK. 
«67 8 ; ae 
DaTE = 29AUGTS PROG 10 OD4=0 PROG 10 OD4-0 
€C NO. 827804 . PAGE 6 DAT Eo. o3 eee pace : bA 
{2 , 
“> soe 8 


CECH HOCCEHCOCHOCEOKHEH OOH OEKCC OCHO OOO E SOKO ESE 








eae et ma ennai 2 ligne es iteees ra ata ptrmeciermmenarar = eT Bee eee ~ i A ce RRA Ras Rae ee inte oc eee a, = ogiaki, perenne - 
aes — meneemin nee mere oem: + - eee ~ ae meer eR en TR nee ie pee I Ee TN 


IBM MAINTENANCE ODJAGNOSTIC PROGRAM 


0040 


sy¥mg0 


2 
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BRI 
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DOONAN Spor 
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| 
PART NO. 4248201! 
PAGE 7 | 
CPU AND MEHORY DIAGNOSTICS: PROGRAK 04 MOD 12 | 
CROSS-REFERENCE | 
L T LEN VALUE OEFN REFERENCES 
C 001 O18E 0106 
€ 001 0002 0107 0082 
A 006 0009 0042 
A 004 0000 0044 | 
A 004 0032 0083 
A 003 0014 0048 
A 003 0020 0064 
C 001 0073 0104 0036 0048 0053 0087 0064 0069 0074 0078 0085 0089 
A 003 0000 0036 
A 003 0039 0089 0083 
A 003 0017 6053 0046 
A 003 OO1A 0057 004 
A 003 0023 0069 006 1 
A 003 0029 0074 
& 003 002C 0078 0072 i 
A 003 0036 0985 | 
C 001 0018 G105 0036 0048 0053 0057 0064 0069 0074 0678 0085 0089 
A 003 0003 0038 | 
A 003 0006 0040 
A 003 0011 0046 
A 003 001D 0061 0040 | 
A 003 0026 0072 0038 
A 003 OO2F 0082 0044 
C 001 OO7F 0093 0038 0062 
€ 001 0080 0096 0040 
€ 001 OOFF 0099 0044 0046 0072 
€ 001 0000 0102 0061 0082 0083 
2 4 001 0000 0004 
STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 | 
| 
| 
| 
| 
29AUGT5 PROS es 
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an, 


fo 


f”- 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


0040 


THE CHARACTER — 


CL 


ee TT ee rte 
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Ts~" 23G<$axa-2Y- 


T #FO 
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48200 EC 827804 


MOGa FSC" 6"2"0} 


SHeoeozeeeHeeaevseoees 


="7MEFL fC 


AP EE EP EP AE DOE AE EEE OD EAD RS PED CRD NED we TENS CO Co 


DATE 
EC NO. 


29AUG7T5 
827804 


cee ORT TY ORS a I EN te ge eR ca AT en cin ee ee te ne creme ” nists rs eae: - £ Fee et we eee ee See 


¢ 


NO. 4248201 
TA 


PART 
PAGE 
PROGRAM 04 MOD 12 
OBJECT CARD LISTING 


INDICATES A BLANK COLUMN AND THE CHARACTERS BD E FH INDICATE NUMERIC SHIFT. 
1 THROUGH 16 CL 1? THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 86 


Ct B81 THROUGH 96 








CPpUAND MEMORY’T ESTS’’”°’°maD'12 84a9a84aa" SSS 0400000 

0#17061708172°° 1 0#17200122"0}0%17 0*172°(.° 9aG< $aG<" 0, 000400001 

eeaeee ox es 802 6 eevee ® weweeseovanoovsecesd eaeesaecaeaorteasesnee wee eg  *0n400002 

“*eg asc’ RA S0°° O° 77°" 12010630750 828750Qa00400003 
~--------—-- LAST PAGE setae ntedeccedewseweeess a spay 

PROG ID 0D4-0 

PAGE 7A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM Pant NO. 4248201 IBM MAINTENANCE DIAGNOSTIC PROGRAM : eART NO. 4248201 
OD50 CPU AND MEMORY DIAGNOSTICS: PROGRAM DS MOD 12 0050 CPU AND MEMORY DIAGNOSTICS: PROGRAM 05 MOD 12 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ! ERR LOC OBVECT CODE ADOR STMT SOURCE STATEMENT 
2 DECK 4 ' , 68 & 
c000 2 UVWXYZ Fear 9 . 0035 FO 73 50 $8 HLTS HPL H5,.HD * (JMP6) ER 
5 TREP eee 2 ms , * FAILING FUNCT (7,8—13) 
$ SeseeenessnaeeecesnOPeteeneneeeescesteasceaeneaeseenseessssencesesses! mo is 73 
8 **902% estou, * 0038 38 0038 7% HIOVFL OC XL1°38¢ 
Q *etee% PROG D5 (L) & (8C) SERKES: 0004 75 PSR EQU = xX?#O4t 
10 *se44% S4ESEE 0083 7 LOEQ EQU = xX*#83* 
1] *ene80 | TEST (1) LO CR INSTRUCTION #44204: C. 0088 77 DECOV EQU = x*BB* 
12 “e044 (2 FIRST E Cy aeankee: ( 0090 78 FALSE EQU x*908 
13 #4484 (3) CR $2040. OOAO 79 BINOV EQU- xt~AoFe 
14. s#e0¢0 44) LSR WRT LO SEEAES 0020 680 NBINGV EQU  <x*#208 
15 t#s8¢8 (5) NOT RECOMP Seeees. Cc: 0073 81 HD EQU xt 738 -D0- 
16 #*e42% (6} ALU BLANK eeeeee §__ 005D 82 H5 EQU xX*50! 
1] #ee2%% €T) CR RESET SEC44E 014D 83 BOOT EQU X*14D% 
18 te¢e04 (8). MOVE ZONE (KILLS AND NUM ) St£E4% FFFF 84 END 
19 see80¢ ¢9) TIG ACTIVE €t8ee¢ c 
20 *#a84% (10) B&-REG BIT 32 ACTIVE settee ©! 
21 ##es9% (11) 68 REG BIT 4 ACTIVE Se2te8 
22 Seeeee (12) ALU BEY 7 ACTIVE SECCCEe 
CH 242448 (13) «PROG INTERLOCK ¥S¢tSEE *, 
4 £etee0 (14) ALU BIT 6 steese. |... : 
25 &%449% (15) CLC SB S408 
26 tesen6 (16) INTERNAL S62" ys seeee8 ted ee 
27 ten402 seesee  7- 
$8 SSSSESCESESEESEES SOS OE 448944 06 $E0S4F4SESE44S SEES EEEEESEESE4EESEEDEESEE e 
29 + , % t 
9000 FO 73 5D 30 HLTL 8 HPL) = §6HS,HD INITIAL HALT = 05 ; C 
31 a 
0003 35 04 0038 32 L HIOVFL,PSR LOAD CR WITH HI,BIN & DEC OVFL & FLS 
_ 0007 F2 84 09 33 JMP1 JH JUMP ON HI. : 2 4 1 & pi ono ee 
OO0A F2 83 03 2 ghPe JC HLT3,LOEQ * (JMPI) ERR, TRY JUMP’ ON LO OR EQ: 
O00D FO 73 5D 36 HLT2 HPL HS5,HD * CR NOT HI, LO OR EQ. 
37 * * FAILING FUNCT (224) of 
333 te 
0010 FO 73 50 40 HLT3 HPL 3 H5,HD * CR SET TO LQ OR EQ 
a : * FAILING FUNCT (123,12914,15} \ c 
43 * ; io 
0013 F2 88 03 * JuP3 JC JMP4 DECOV JUMP ON DECIMAL OVERFLOW. | . 
0016 FO 73 50 46 HLT4S HPL #5,HD * (JMP3) ERR. C: 
af - * FAILING FUNCT (3¢596,11) 
0919 F2 88 19 49 JMP4 JC HLT6&eDECOV CHECK FOR RESET OF OEC OVFLK. |e 
' 9O1C F2 90 03 20 JhPs JC UNPe saree JUMP ON FALSE. . | €. 
OO1LF FO.73 5D 52 HLTS HPL H5,HD * (JMP5) ERR. 
33 $ * FAILING FUNCT (3¢6,10,16) be 
55 « i 
0022 F2 90 10 56 JMP6 SE HLTS, FALSE CHECK FOR RESET OF FALSE. 
0025 F2 AO 03 2! ghPr JC JMP8eBINOV — JUMP ON BINARY OVERFLOW. ee 
0028 FO 73 50 59 HLT6 HPL = H5,HD * (JMP7) ERR. * 
60 § * FAILING FUNCT (3,6) Con 
62 & ats : 
0028 F2 20 04 63 SMPs Jc HLT7 eNBINOV CHECK FOR RESET OF BINARY OVERFLOW. 
OO2E CO 87 0140 64 Z 8 800T BRANCH TO BOOTSTRAP. es os : 
0032 FO 73 50 66 HLT? «HPL =-HS,HD * (JMPB) ERR. i 
se 67 @ ae * FAILING FUNCT -€7.9) : fs . Hels det, ce aha . 
: DATE 29AUG75 PROG ID o0s-0 |. OATE 29AUGT5 PROG ID 005-0 
- . EC NO. 827804 ; PAGE 8 EC NO. 627804 , PAGE BA 
. 
oe 
re 
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gos 


am, 
on 


®eeeoeseeaenasnsevneaoeaeonaeneeenaeeeeeeeeeeeeeeee 6 © 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248201) . IBM MAINTENANCE DIAGNOSTIC PROGRAM oaer NO. 4248201 
a 
0D50 CPU AND MEMORY DIAGNOSTICS: PROGRAM 05 MOD 12 | ODS50 CPU AND MEKORY DIAGNOSTICS: PROGRAM DS MOD 12 
. CROSS-REFERENCE | c . OBJECT CARD LISTING 
SYMEOE. “ELEN VACUE . OCT SEP erenees | ’> THE CHARACTER " INDICATES A BLANK COLUMN AND THE CHARACTERS BD E R INDICATE NUMERIC SHIFT. 
BINOV C 001 OO0AG 0079 0057 | 
BOOT € OOL 014D 0083 00 CL 1 THROUGH 16 Ck 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 Ci 65 THROUGH 80 CL 8&2 THROUGH 96 
DECOV C001 0088 0077 0044 0049 
False € Oot ors Soos O038  OO36 0040 0046 0052 0059 0066 0070 Ct doweeie 
HIOVFL A 001 0038 0074 0032 | *GBKx GBD PN'42 48200 EC 827804 CPU AND KEMORY T ESTS MOD'12 64aa8eaa opscooco 
Give A $83 668 Sap \ - . 
HLT3 & 003 0010 0040 0034 I< ge’ *saGtn (66 +18 OB-RC"A3P7A3P-A oH @A3P—AHF-AAe 8A) 3P-HEDIFe ©A3P—H = -A<BG N702570854 8 6-YOD500001 
HTS 4 863 Bole G38 | 
HETS =A 003 0028 0059 | ~. ENOtSET@=E-DC@PHS <@7MEFI” f° °C” "CFs °° asc’ °°R°A So QS *°* "12016630756 828750H80D500002 
HLT? A 003 0032 0066 0063 poke 
HLT8 A 003 0035 0070 0049 0056 
H5 C 001 0050 ‘0082 0030 0036 ©040 0046 0052 0059 0066 6070 | 
Jip1 £003 9007 9033 G 
JMP2 A003 OOOA 0034 bi 
3mP3 «A 003: «0013 «(0044 0033 
jmp4 = A 003: ««0019 «0049 0044 
JMP5 A003 OO1C 0050 1G 
JMP6 =A 003 0022 0056 0050 a* 
JMP7 & 003 0025 0057 
JMP8 A 003 0028 0063 0057 
LOEQ C001 0083 0076 0034 gy 
NBINOV C 001 0020 0080 0063 A 
PSR € 001 0004 0075 00322 
UVWXYZ A 001 0000 0004 y 
TGTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 l 3 
re 
| 
| 
1 
Cc 
i 
C 
cc 
| 
i @ 
1 
tee 
ie 
f anenee Gee Ee Oe Ne LAST PAGE LIE IOI Le YL LL — Gs eben cs hie iatatese Sn Soatg amas 
PROG 10 005-0 ‘\. DATE 29aUG75 
PAGE oe EC NOe 6827804 page a meek 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248201 ¢ IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248201 
| 
0D60 CPU AND MEMORY DIAGNOSTICSS PROGRAM D6 MOD 12 | _ OD60 CPU AND MEMORY DIAGNOSTICS: PROGRAM D6 MOD 12 
ERR LOC OBJECT CODE AODR STMT SOURCE STATEMENT hae CROSS-REFERENCE 
2 DECK «4 "SYMBOL T LEN VALUE OEFN REFERENCES 
3 SEQ 0 ee 
0000 & UVWXYZ START 9 : § Boo C 901 154 0059 0046 
5 TREP EQUAL A O01 0025 0053 0039 
6 ¢ SECTOR 04 HD C€ 001 0073 0057 0024 0029 0035 0042 0048 
TF CESSES EESSEEES SERESESERESSESSSS SEECESEEESCEESEELESSSESESSESSSEESESESESS © HL TL A 003 0000 0024 
8 #44409 eeseee © HiT2 & 003 O00A 0029 
9 *#42%2 PROG 06 (Ll) & ¢5C) eteeee HLTS A 003 0010 0035 0033 
10 *%e9%2 stases HLT4 & 003 OOLA 0042 
ll #ees04 TEST 1} LO Td 49 Seeee2 §~ HLTS A 003 0021 0048 
12 eeese¢ 2 ALU BLANK eeeees 6 C 002 OO7D 0058 0024 0029 0035 0042 0048 
13 *¢se00 3) CR Secese JMP1 A 003 0007 0027 
14 seeee9 (4) BIN_ADD SUB NOT MOVE sesees JMP2 A003 0000 0033 0027 
15 +¢4eee (5) EDIT ACTIVE seesete = - MP3 A 003 0017 06040 
& seaeK9 6) DEC INSTR ACTIVE SOceee . MP4 8 £004 OOID 0046 0040 
17 *¢s%9¢ (7) ALU BIT 3 ACTIVE $3294. LOW & 001 0024 0052 0026 
18 *e¢s%9 8) ALU pit 4 ACTIVE FESESS NOVFHE €C 003 0030 0056 0033 
19 *e4e00 (9) «ALU BIT 2 ACTIVE Seetee .- NOVFHL C 001 O03E 0055 0046 
20 sseeee (10) INTERNAL perineal € 001 0004 082 0026# 00398 
22 FEREEEETESCESSEEESET EEE SOORESEEEESESEESCEESEESSEEEEEEESEEESESESESEEOEEEEESNEES UVWXYZ A COL 0000 a006 
23 | (TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 
0000 FO 73 7D 28 HLTl HPL H6sHD = = _ INITIAL HALT = 06 ns ° 
25 a 
0003 35 94 0024 26 L LOW,PSR LOAD CR WITH LOW « | > 
0007 F2 82 03 at JmPi Jt imps JUMP ON LOW. 
OOOA FO 73 70 29 HLT2 HPL H6,HD * (JHP1) ERR | © 
30 ‘ ® FAILING FUNCT { be2 3 | & 
32 & : : 
—  000D F2 3D 03 33 Jup2 JC HLT3¢3,NOVEHE JUMP ON NOT HIZEQsFLS, DECsBIN oveLu e ; 
0010 FO 73 70 35 HLT3 HPL Hb6eHD * (JMP2) ERR. | 
31 : @ FAILING FUNCT (354072829210) ! CS 
8 s . a 
0013 35 04 0025 39 t EQUAL »PSR LOAD CR WITH EQUAL. | 
0017 F2 81 03 40 jne3 JE JMP4 JUMP GON EQUAL. | 
001A FO 73 70 42 HLT HPL H6eHD ..... _.. .- # (JMP3) ERR : = 
a5 : . ae & FAILING Ronct (1,204,506) Lae ‘ roe 
45 ¢ Law 
CO1D CO 3E 0154 46 jmPe BC BOOT »NOVFHL BR ON NOT HI, LOSFLS, BINeDEC OVFL | ce 
0021 FO 73 7D 48 HLT5 HPL H6,HD * (IMPS) ERR | 
49 ¢ *# FAILING FUNCT (3,10) C 
03 ie 
0024 02 002% 52 Low oc XL2°O2* | 
0025 01 0025 53 EQuAL OC XL1°O1* tO 
0004 54 PSR €Qu  xK*04* bee 
OO3E 55 NOVFHL EQU  X*3E* | 
0030 56 NOVFHE EQU X*3D8 
0073 «57 EQU xX*73* -D- | gt 
007D 58 Hé EQU -X'7De | & 
0156 59 BOOT EQU X*154* | 
FFFF 60 END 
ioe, 
: ‘? 
"7 a 
i os : 
pate 29aUGT5 PROG ID OD6-0 «. PROG 10 oDe-0 
EC NO. 82780¢ PAGE fo" pate. g3gugzs PAGE 10A . 
- ©3 
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T6M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248201 - 18M MAINTENANCE OLAGNOSTIC PROGRAM PART NOs 4248201 | 
> ; - 
! 0060 CPU AND MEMORY DIAGNOSTICS: PROGRAM D6 MOD 12 '  OO70 CPU AND MEMORY DIAGNOSTICS: PROGRAM 07 MOD 12 | 
eo, GBJECT CARD LISTING | '*. ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
: . ae 2 DECK 4 
THE CHARACTER ” INDICATES A BLANK COLUMN AND THE CHARACTERS D ER TNOICATE NUMERIC SHIFT. ee See 3 wwunve fesar 9 
CL 2 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 58 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 ~~ 2,  . TREP sectodins 
: : €° Z saatgs eeteetesestestennssenenssessssenensseseserssssssssesnssccsease 
e ° e oe e 2 e oe e asreee e @eeuseve evescecse : &k&tbb8 
: GBK GBD" "PN"42 48200°EC"827804" CPU AND ’MEMORY'T ESTS MOD 12 684aa86aa°°°”° 00600000: 12 eeeess PROG 07 (ctr? seseee 
| 
i ° e ° e © MOP eesee eescncenssecneee § esece : gf 1] t#se80 TEST (1) BIN AOD SUB NOT MOVE $ta4b0 
TIE VaGC*CEE TIA 8 eAa—H @AsaLM D’BP2-E10877 I-E  MaGi* =D te ***x2<on600001; > 12 sesees (2) CSR LG TO A seeees 
eee, ese & ef eee eco o eee evececevcs § exoce i 14 #40228 4 CR SET #tab¢ 
a0 0 SETe "PHS ="7MEF c FZ aSC” RA SOQ 12010630750 828750880D600002 15 ¢ea00¢ ta} DATA Td STORAG s20e09 
€ ET#=—DC"PHS = tof s | © 16 teen09 (8) SINGLE EB CYCLE INSTR. sees 
: 17 *see00 (7) OP END GaTE eeeees 
: 16 *e¢s09 (8) REGISTER INSTR seeese 
: 19 ekese0 (9) BIN ADD GRP 42089 
, & 20 seeee¢ 439} SET OR TEST OFF cetete 
| 21 seeee 11) LOAD CR NSTR 20000 
22 teesas {12} RECOMP ACTIVE +4920 
| oO 23 tesen¢ (13) EB CYCLE #92929 
| & 24 teese8 (14) ALU BLANK eeeses 
25 #40842 (15) ARITH CARRY S4oo80 
| : 26 tee428 (16) EB CYCLE in sebe89 
CO 27 sesees (17) INTERNAL Sr aie oe senses 
| iw 28 *¢4¢02 ‘ stesb0 
\ €3 SHSSeseRSeesesssecesesesescoseseeseeseseseeeceeseeceeseeeeSRCEeeesesone 
‘ | (7 0000 FO 73 07 31 HLTL HPL H7eHO INITIAL HALT = 07 
0003 35 04 0019 33 i HIGHSPSR LOAD PSRICR? TO HIGH. 
— abs) 29 oh gas gy comms Ge Eee at coRPMRE Of tout 
= C7 Oboe £3 BF 83 36 JE eS . ® JUMP IF CR EQUAL. 2 Se a | 
0011 FO 73 07 38 WLT2) H7 »HD * CR HIGH 
| C 39 st be - * FAIL IAG FUNCT (Le 7013016) 
i S* 0014 FO 73 07 $0 MLTS HPL HT oHD * CR EQUAL 
28 ® FAILING FUNCT (253) 
eos 0017 3D FF 0037 44 COMP2 CLI XEF,xX°FFS COMPARE FF & FF. 
0018 F2 B1 OS 45 | JE Comb3 jum“ TE ER Eat. Bk Nesey 7 
pe ORE Fo Teor aR ks MPL HT OHO : FAILING CURT (47 659)10912014) 
0021 3D FF 6037 49 COMP3 CLI XFF,x¢FFe CHECK FOR STORING(NOT REGER)” 
,. 0025 F2 81 03 50 | JE Conds JUMP IF XFF NOT ALTERED SY (CLI). 
\. 9028 FO 73 07 52 HLTS HL HT7,HD $ STORAGE ALTERED BY (Ci) 
0028 3D 02 0037 22 Comp: CLI XFF,x*02¢ COMPARE EF CNS o2008 
7? 
(002 Co 84 of35 35 5H =. Bout BR TO GSOOTSTRAP IF CA HIGH. 
, 0033 FO 73 07 SE ULT6 «HPL H7eHD $ CR NOT HIGH. peace 
nie o019 39 HIGH EQU xe age ey Sea 
; 0036 FFFF 0037 60 XFF XL2*FeERe 
0038 0000 0039 61 ZERO OC xXL2*00008 
G004 62 PSR EGu X'06s 
G Soo? en; ERY ORS E3t ae 
0158 65 BOOT EQU xX*i5Be 
eas FFFF 66 END 
oO 
LL LE YO A SE a nh eh n-th emee ems cna cast PAGE ee eae eran ais - Cc x ~ eee Mh est 
DATE  29AUG75 PROG ID 006-0 © pate  —-29ayG75 Peo 7- 
i: EC NO. 827804 | PAGE 11” EC NO. 827806 pace °° S0TT9 
. . a | 
, Fao 
? . 1&3 
3 Re ae oe ee ' ; : i “ : 
t Poe : : 7 : t 
Ee ee Lom o : 
| a a . : — oe 
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PART NOe 4248202 
PAGE 12A 
0D70 CPU AND MEMORY DIAGNOSTICS: PROGRAM 07 MOD 12 OD70 CPU AND MEMORY DIAGNOSTICS: PROGRAM 07 HOD 22 
CROSS-REFERENCE OBJECT CARD LISTING 
SYMBOL T LEN VALUE DEEN REFERENCES ; 
pane, etae Wate annus anes - THE CHARACTER © INDICATES A BLANK COLUMN AND THE CHARACTERS DBD E Al INDICATE NUMERIC SHIFT. 
COMPL A 604 0007 0034 T t t 4 tT 4 THROUGH 80 81 THROUGH 96 
COKP1 A GOS O07 003% ae CL 1 THROUGH 16 CEL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 Ct 65 UGH BO CL 
EONes 2 00s Bek bose 86 Gost c 
HD € 001 0073 0063 0031 0038 0040 0047 0052 0057 “GaK’GRD’° PN’ 42 48200°EC’ 827804 CPU AND MEMORY'T ESTS""”"’'MOD'12 B4aassaa” SOD TO0000 
mee? & 883 8098 8037 99%? | 
HLT2 A003 0011 0038 pes GaGeGlEE ELS A°CX2=-X2-E4060- 0#08*90° 7TaYDCaG< G1I-a° ("RA "A3a36 8 °C~ s Esac<cceea ~"""°NzZe0D700001 
mee GSE Bats EERE 03s | 
HiT A 003 0028 0052 anes @=o- a = ee0e @eo eo es eee ees s eee eae eee" e2028 @eooeee ¥ 0 
HLTS5 A 003 0028 9052 ic & E7T*=-DC°PHS ™meFl of) OC Fe’ "asc. RA SO 12010630750 828750Y80D700002 
H7 € 001 0007 0064 0031 0038 0040 0047 0052 0057 c | 
PSR € 001 0004 06062 0033* 
UVHXYZ A OOL 0000 0004 lo 
XFF A 002 0037 0060 0044 0049 0054 e 
7ERO A 002 0039 0061 0034 | 
TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY =. 0 | C 
-" G 
| 
{ i, 
io 
lc: 
{ 
| 
iS oz 
1c 
\ 
i €3 
Ci 
DATE 29AUGT5 ale 
EC NO. S27bb6 pace '° OD75° ‘ DATE, = «ggaug7s _ peee #9 00758 
i rf 
nS 
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I6M MAINTENANCE DIAGNOSTIC PROGRAM PART NO- *24eggh (18M MAINTENANCE DIAGNOSTIC PROGRAM ; Pane 0s 4248701 
0080 CPU ANO MEMORY DIAGNOSTICS: PROGRAM 08 MOD 12 | _0D80 CPU AND MEMORY DIAGNOSTICS: PROGRAM DB MOD 12 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT | CROSS-REFERENCE 
2 DECK 4 l _~ SYMBOL 7 LEN VALUE OEFN REFERENCES 
2 ‘. $§INOV € 001 OOAO 0058 0027 
eae $ UVEEYE nee’ 2 | oot COOL 0162 0062 0046 
6% SECTOR 06 | HD € 001 0073 0060 0023 0030 0039 0048 
7 EESCSSELESE SK KHKSRE SSE SERS IE CSCSEE REF SEESEKES FKAKEL TEESE LRIESSEKASELERSE SKE EE ELE, mote HLTL & 003 9006 0023 
8 $eeen0 aeeeee, § HLT2 & 003 0011 0030 0027 GO28 0045 
9 «e803 PROG 08 $8444, HLT3 A 003 0022 0039 0035 0037 
10 *s@ee8 / : SER48E: HLT4 & 003 0034 0048 0044 
Ll ##eee6 {CLI} COMPARE LOGICAL IMMEDIATE aeceee, HE C 001 OO7F 0061 0023 0030 0039 0068 
12 #0609 sesese § LOVFLW A 001 0038 0056 0025 
13 +2000 TEST {1} BINARY OVERFLOW 49924 SR C 001 0004 0059 00258 
1q@ #44060 (2) ALU BLANK 249082¢' UVWXYZ A 001 0000 0004 
15 teenage i2¢ ALU_ BLANK S49444 c XBF A 0023 803A 0055 0036 
16 +8006 (4) CONDITION REGISTER secass { XFE A001 0038 ©0053 0026 0043 
17 #40890 (5) TEST ON/GFE INSTR. $44843, X7F A 003} 0039 0054 0034 : 
18 #44640 (ey BR OR SKP ACTIVE - $4429 
19 seesee (7 INTERNAL settee (TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 
2l FEKEEESESEEKESSSSE SESS SS SESE ESSE SAESESSASLAEESESSESESSESSEKESSSSESESEREE ELS RES 
22 
22 
0000 FO 73 7F 23 HLTL HPL H8.HD INITEAL HALT = DE | ° 
24 | 
0003 35 04 0038 25 L LOVFLW, PSR LOAD PSRICR) TO LOW & DEC OVERFLOW | cto - poreric. : : 
ooo? 3D OO 0038 $§ Cit XFF .X*QO* COMPARE FF € 00. ' # 
OOOB F2 AO 03 2 JC HLT3.8 NOV JUMP IF BINARY GVERFLOW IS SET. | 
OOOE F2 84 03 28 JH HLT2¢3 SUMP IF HIGH SET. Pe ‘ 
0011 FO 73 7F 30 HLT2 HPL H8,HD $ PSRICR) SET WRONG. i 
31 $ © FAILING FUNCT (2e607) | 
fee cee foal, 33 © | eS Sea al ee merece eA VRE ID 
’ 0016 3D 00 0039 34 CLI X7E,x*008 COMPARE 7F & 00. é a 
0018 F2 04 O7 35 ee HL fone IF HIGH NOT SET. : 
0018 3D 00 GO3A 36 ul XBF .X*00* GMPARE BF & 92s | 
OOLF F2 84 03 3) e JH HLT3¢3 JUMP IF HIGH SET. i €3 
0022 FO 73 7F 39 HLT3) HPL 8 H8-HD ® PSRICR) sev WRONG. | 
40 * * FAILING CU (20307) ! 
23s 1@ 
0025 3D FF 0038 43 Cul XFESXOFRS-- -. COMPARE FF & FF. | : 
0029 F2 90 08 44 J HLTS JUMP IF FALSE SET. ' 
002C CO 08 0011 45 BNOZ HLT2 GO HALT IF DEC OVERFLOW WAS RESET. CG 
0030 CO 87 0162 46 8 Boot BRANCH TO BOOTSTRAP. 1 we 
0034 FO 73 7F 48 HLT4 HPL h8,HD ¢ PSRICR) SEY WRONG. 
49 2 * FAILING FUNCT (4,5) a a 
03 | 
0037 FF 0037 52 oc XLLCFFS | 
0038 FF 0038 53 XFE D XLL*FE® iO 
0039 7F 0039 S54 XTF D XLit7es ! ? 
OO3A BF OO3A 55 XBF Oo AL} Sars i 
0036 0A 0038 56 LOVFLW O KLi* Oat 
OOAO 58 BINGV EQU  x*AOF 6 
0094 59 PSR EQU  xX*O4? 
0073 60 HD EQU  x*73¢ -0- 
OOTF 61 H8 EQU he ' C 
Olez 62 BGoT EU x*16z8 ; 
FEFF 64 end 
28 { fe . tos 
DATE 29AUGTS PROG 10 0D8-0 ‘.. DATE 29auG75 PROG 10 008-0 
EC NO. 27004 . PAGE 13, EC NO. 827804 PAGE ? 3A 
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PART NOe 4248201. IBM MAIMTENANCE DIAGNOSTIC PROGRAM PART NO 4248201 
PAGE 14 PAGE 14A 
0080 CPU AND MEMORY DIAGNOSTICS: PROGRAM 08 MOD 12 ' _ ©D90 CPU AND MEMORY DIAGNOSTICS: PROGRAM 09 MOD 12 
CBJECT CARD LISTING ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
. Ss ECK 4 - 
THE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS BD E AeINDICATE NUMERIC SHIFT. | Ce secu 3 ises BES 9 
CL 2 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96) = se TREP 
| % > abeekcdbGeesecernkonceeskcudcsansdeasncasncenwssaececasssecacaunecas 
a) e eee s oe e e ° e e eeenes e eseeode00 exe0aene0e0 + 8 eSSaee ‘ PROG 09 os34hs 
GBK GBD PN 42 48200 EC 827804 CPU AND MEMORY T ESTS MOD 12 84aa84aa 0D800000) og eecess (MVE) MOVE LOGICAL IMMEDIATE saeeee 
° e oe o © eee oe ‘ai ° « o e@ ee a * ll &«*+*6% T T INARY COMPLEMENT £24848 
Te- saG("(GE #34 CT2Y 12/ l0#7@ *  Ga-EGIE +27 0° "A337" CT2U T “B JOH*AQ7A3—8" BQ =cuopso0001. C 12 eceeee . Baa eT eee rere eeeeae 
: 2 seseet at PgR PALE reaNSEER seaees 
T 2 #8- @eeeoae @eeeesenseoceocesoee @eeseeooecoeateoeeseces @eeeee@c@ ceeseoene 2800938 @e@eeeseeoeceeceseeaedoee ee * ae £0D800002! QO 15 KSEE (5) MVI LOCKS LIKE CL I *tbbUE 
beat 16 eeee44 (6) BIN ACD GROUP 28069 
eee 2009 © ee eee eee _ e eco eocecsecees eecece : 17 **#*%%% (7) OR ACTIVE 2624608 
ENM'SETS=4DC™PH$ ="TMEFL 1 C FZ ASC. RA SOQ 12010630750 8287530a0D800003: 18 #3eee2 {8) DEC SUB GATE ACT:VE eases 
Cc 43 Sseass 3b FREE RARE! TEES 
‘ 21 #eee08 Sette 
| 22 FESESSSSKEHESSESKASSEKSESSSERSESKSSSSLKSKAKSTAESSSSECSEKSKLS SS AEE KSEKSEKEEREEKSKESETESR 
iC 33 
0000 FO 73 5F 24 HLTL HPL H9¢HD INITIAL HALT = 09 
| ¢ 25 
| © 9003 35 06 0036 26 L HIGH»PSR LOAD PSR_TO HIGH. 
0007 3C FF O03E 27 MVI PAD, X*FF® MOVE FE TO PAD. 
000B F2 84 13 28 JH HLT443 JUMP IF CR STILL HIGH. 
OOOE 30 01 O03€ 29 CLI PAD, X* 01° ® CHECK RESULT 
0012 F2 81 09 30 JE HLT4 * JUMP IF RESULT IS Ol. 
0015 F2 82 03 31, Jt HLT3 ® JUMP IF RESULT IS 00. 
‘cm } 
0018 FO 73 SF 33 HLT2 HPL H9eHD * CR ERR 
6 34 $ # FAILING FUNCT (2,8,10} 
0018 FO 73 5F 36 HLT3 HPL H9,HD ® DECODE ERR. 
bog 37 ¢ . ® FAILING FUNCT (5,10) 
OOLE FO 73 5F 39 HLT4 HPL H9eHD @ NO COMP A REG. 
nae 40 ¢ ® FAILING FUNCT (1,20) 
t , PS 
. 0021 F 003E 42 CLI PAD, xX*FFS CHECK RESULT. 
0025 F2 81 03 43 Je HLTS¢3 SUAP IE RESUCT IS FF. 
( 0028 FO 73 SF 45 HLTS HPL H9,HD * FF NOT STORED IN PAD. 
ee 28 ® FAILING FUNCT (39699¢ 10) 
| 0028 3C 00 003E 48 MVE PAD» Xe00" MOVE 00 INTO PAD. 
Ee 0033 3c 08 Olen 33 hut BouteL +x* x*o8? SE Ge FS READ 8TH RECORD 
0037 CO 02 0169 21, BNE 80 . BRANCH TO BOOTSTRAP IF RESULT NOT FF 
if 0038 FO 73 SF 53 HLT6 HPL H9-HD ® STORE OR BLOCK SOR ERR 
JOM 24 ¢ © FAILING FUNCT (497-10) 
003E 00 003E 56 PAD oc XL1°008 
c 003F 00 003F 37 HIGH OC XL1°00* 
0004 59 PSR EQU = K* 048 
0073 60 HD EQU  Kt73s -D- 
© OOSF 61 H9 EQU 
0169 62 600T EGU Xs fEoe 
C: FFFFE 64 END 
DATE 29AUG75 | . PROG 10 ops-0 ©. OATE  29AUGT75 PROG ID 009-0 
EC NO. 827804 | PAGE 14 EC NO. 68276804 PAGE 14A 
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IBM MAINTENANCE OIAGNOSTIC PROGRAM PART NOe 4248201 | IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOw 4248201 
PAGE is < PAGE 15A 
0090 CPU AND MEMORY DIAGNOSTICS: PROGRAM 09 MOD 12 0090 CPU AND MEMORY DIAGNOSTICS: PROGRAM 09 MOD 12 
CROSS-REFERENCE Pe OBJECT CARD LISTING 
' SYM T LEN VALUE ODEFN REFERENCES a Ae ” 
Soe c oe a BOEo: > Gnene tosh i THE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS BD E A INDICATE NUMERIC SHIFT. . = 
HO, § OOF 9073 0060 0024 0033 0036 0039 0045 0053 CL 1 THRUUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 
ThE BSS Sete Sees es . 
HLT3 & 003 0015 0036 0031 GBK GBD PN"42 48200°EC"827804 CPU AND MEMORY T ESTS’°°°°°MoD'12 eéaassaa °°“ Opg00000 
HIS fE3 SBME S822 GREE 0020 ¢ 
HLT6 A003 0038 0053 \ Te" 2860-66433) |" Ce2sa<*’e°=aYD «1avH a 34 "Aap *"caeng =f -aEZ A OU 
HL A 003 9038 9053 eek baud! (aeioe, ease: deca, bee | i CaG(-aGi~aGt =~|-a° 47HA *A3P30 ""Cat*o =|°-aEs” A QU 0&000900001 
ben e oat OSE Bose Oo e ue 0029 0042 00488 0049 i i TA "act @eeeeeooe @eeeeaeecoeoeceaeonneeeee eeeeseeneaneeooeoeooano eeeeseoeoeeoceaecean eee eeesaeoadnveaeano aoe oeeonn eeeaeeoese 
' 2 
UVWXYZ A 001 0000 0004 € Eaaopyaeos 
TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 | EM@SSET#=5DCMPHS =MTMEFI EC” “CFs °Pasc’’°R°a ‘so’** a" °""°""" °°" 12010630750 828753Ha0D900003 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOw 4248201) | M MAIN A PART NOw 4248201 
Pant gO1) IBM MAINTENANCE OLAGNOSTIC PROGRAM eaRt <oi 
ODAO CPU AND MEMORY DIAGNOSTICS: PROGRAM DA MOD 12 _ ODAO CPU AND MEMORY DIAGNOSTICS: PROGRAM DA MOD 12 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ’ ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
3 CEGK GS - QO4E FO 73 3F 03 HLT6 «HPL HAsHD rae ee ai ia abeee2) | - 
0000 4 UVHXYZ START 0 . , gi : ®@ FAILING FUNCT (19298) 
6 # OR 08 0051 30 00 OOFF 69 CLI PAD,xX*00* CHECK FOR ANY BITS SET ON BY TBR 
: seeeetessssesssessererseussssensssseesesesesoosssee sees eens tes eu 0055 F2 81 03 79 JE HLT7¢3 JUMP IF PAD STILL 00 
Q £24482 PROG OA SEEECE . * De 
19 setess cet eee as setae 0058 FO 73 3F 4 HLT7 HPL HA,HD : reo aurerco cA 
is 14 * 
LZ seetee eeeees, | 0058 FE OOFF 15 MVI PADsX*FES PUT _FF_IN PAD. 
13 #4808 TEST (i) OR SEREES, O05F 35 FF OFF 76 TBN PAD,X*FF! TEST FOR ALL BITS ONe 
3 pideede +3) STORE Dare pipteeninded 0063 F2 10 03 at JT STARTL BR TO NEXT TEST TF FALSE NOT SET 
fo 
6 £8484E SeSeee © o 
ii seca eeSREOESOHSHESESESELEDSSER SE SESEERSEES ESSER OS SUSE SS SES SS SSESESTS, "s 0066 FO 73 3F &6 Bets Bet MAsHD . cR SET TOUner (49607) 
18 
0000 FO 73 3F 33 HLTL HPL HAeHD INITIAL HALT = DA | Q 3 seauCEneeeeneOeeeeseneeeeeensesesssesseesseeseseseees esse ses ses sees ey 
: 83 £4693 
20 FEKERS *EKuaE 
0003 00 OOFF 21 PPP MVI PAD» X*00° PUT HEX -00- IN LOC HEX -FF- i Bed £44ES8 (TEN) TEST BITS ON heats 
0007 3A FE OOFF 22 SBN PADeX*FF® SET ALL BITS_ON AND © 86 *eee85 TEST 9) ALU_CRIPPLE BITS? oesest 
e3or ee 81 83" zB GET RtaESTT" CHER ATR HEK’ pee Nex “FPO SHIP Nos ef Ssthts oS seeees 
3° | BS SOHES | aeueeEeEsetsOeEESEGHEDeeSeeeTTesesses seS44SSFSsse Ase see sseee es 
0012 FO 73 3F 26 HLT2 HPL HA,HD ERR-SBN FAILED. NOT ALL BITS ON | C wane ac PECOOER 30 STARTL MVE PADsX*EE® SET ALL BITS ON EXCEPT BIT 7 
0015 35 98 SReE 3 MUA BABS SG cur wHi00-gAN4tge nex -Fe- | UGB BE 08 go se UN Eger on” TERE GP*reLT LAPSE varcu wor set 
0019 30 90 QOFF 30 GLE PADSKS00" CHECK RESULT LOC HEX -FF- SHUD now! gork be eB Gore oa RVI PADSXTEDS Ser ALL BITS ON EXCEPT BIT 6- 
~00- { 9 1 PAD, X*02* ° 
32 ote Bs 15 te 38 yen Are. . Whee TF TEST FALSE LATCH NOT SET. 
tte ee Ue 0024 FO 73 3F 22 HLT3 HPL HA,HD ERR-SBN FAILED, NOT ALL BITS OFF | pa OO7F 3¢ FB OOFE 37 MV PAD ext Fe SET AE eT ON EXE? BIT 5. . 
0027 3C FF OOFF 35 MVI = PADs X* FF S PUT HEX -FF-_IN LOX HEX -FF- | 0087 F2 10 70 99 JT HLT JUMP IF TEST FALSE LATCH NOT SET- 
002B 3A 00 OOFF 36 SBN PAD»X*'00! SET_NO BITS ON OO8A 3C FT? OOFF 100 MVI PAD,X*FT7* SET ALL BITS ON EXCEPT BIT 4 
OO2F 30 FF OOFF 37 CLI PAD geT rE” CHECK RESULT | OOBE 38 08 OOFF 1OL TBN PAD. X*08* TEST FOR BIT « ON} 
0033 F2 81 03 ae JE START BR TO NEXT TEST IF ALL BITS ON _ 0092 F2 10 65 102 JT HLT9 JUMP ITE TEST FALSE LATCH NOT SET~ 
0036 FO 73 3F 40 HLTS HPL HAsHD -wERR-SBN FAILED, NOT ALL BITS ON | 103 
re | Cc 13? gacacacesarsenceccusseesessnssensessesssegessssseeeseees eeeees ese Seee es 
ae nssnasessenacnssnesnssnsensenssnnesnessssnensenssuessssneseseneeeeessey 106 seeaes (TBN) TEST BITS ON saeco 
ie Sesees (TBND TEST BITS ON | seas] © 108 sexes TEST (11) ALU CRIPPLE BITS) seeees 
46 *ee44¢ TEST (1) TEST FALSE &SSESE: 110 oo0eee i cenceessesesneseascessnsessssesseeeses seneeesss ses seessss sees? 
8 Stisss 13) SURE" BatatectsTe® BEC te 
os 112 
49 beee48 (4) LU £45 %88| 0095 3C EF OOFF 113 MVI PADsX*EF* SET ALL BITS ON EXCEPT BIT 3- 
50 seee8e (5) TAN DECODE SeetSS, 0099 38 10 OOFF 114 TBN PAD,X* 10° TEST FOR BIT 3 ON. 
5] #88088 (6) 8IN ADO SUB GROUP eeseee 009D F2 10 50 115 JT HLT1O JUMP If TEST FALSE LATCH NOT SET 
52 ttee8 (7) TEST FALSE ACTIVE eeeses, QOAO 3C DF OOFF 116 MVE PADsX*OF* SET ALL BITS ON EXCEPT BIT 26 
53 ee9482 (8) OEC COMP A REG Seeset OOA4 38 20 OOFF 117 TBN PAD,X*20° TEST FOR BIT 2 wae 
54 Seeses Steet: OOA8 F2 10 52 118 JT HLT1O JUMP IF TEST EALSE_LATCH NOT SETe 
2? ee eee NL ReeteSESEESESESESESESSEESESSSREERSSSERSESESSSESESSSS ESSE OSSSSSS ~ 0048 aC BF OOF 119 MVE PAD» X: BF Sey ALL ott? ON EXCEPT BIT le 
0039 35 04 OOCT 4] START PSR OAD c 00863 F2 10 47. 121 JT HLTLO JUMP IF TEST FALSE LATCH NOT SET~ 
$938 32 09 Soer Ba START ys Bh6ngto0: LaF BS ENCBLoTO MECH — B8BR 35 88 SBF 13 HEA BABES Sot SEL ALL AOLIT GhOWs ten wot’ 
0041 38 FF OOFF 59 TBN PAD) X*FES TEST FOR ALL BITS ON» is.  QOBE F2 10 3C¢ 124 Jt  wLTLO Sune If TEST FALSE LATCH NOT SET 
0045 F2 AB 06 60 JC HLT6_X*AB* JUMP ON LOW, EQUALe OEC OR BIN OVFLW 
0048 F2 90 06 61 JE HLT693 JUMP ON FALSE | 
0048 FO 73 3F 63 HUTS HPL HALHD * PROG DA, HALY 5- ERROR _ HALT. | € 
64 ¢ & CON. REG NOT SEY TO FALSE BY TEN | 
oo 
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o0A0 CPU ANO MEMORY OLAGNOSTICS: PROGRAM DA “oD 12 
OBJECT CARD LISTING 


ODCO CPU AND MEMORY DIAGNOSTICS: 
ERR LOC OBJECT CODE ADDR STMT 








THE CHARACTER ° INDICATES A BLANK COLUMN AND THE CHARACTERS DB E A INDICATE NUMERIC SHIFT« | o é 
CLL THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THRCUGH 96! pee? 3 
: 6 
eo e eee @ oe se e ® ee e @aeeaeee es eeeas eee eceveee ene © q 
GBK GBB PN 42 48200 EC 827804 CPU AND MEMORY TESTS MOD 12 84288438 ODA00000. ~ § 
1G 
pee" taGen} "3, farmoceaypcac<. st" "aay" "tat °C  “avocaG<e {1a *3¥ *"igesoceavocac<e tee’ ~e00paco001 ©: i} 
13 
re-aS cea’ "CMtla OMT AZHEAZAZIMA 3134 1"2-E1083a BIOCsla PMHE “A 3133= [a8 ECPA/B F114” olpepaccoo2 © ie 
J 16 
T+-Bo fas -CtavA aie’ @3-D° 48206" atoces”—"emHERL3 2° 1asD Cwasariia “az-—" fR2DEHA?0C *4+D *0~0DA00003 i7 
; a . : ; . ; : © 0000 FO 73 6C 18 
TH<Ce [82008906 HH OMHELCZ™ 12 SOC FMHECLT 8° 1M2-E10e3"0F3a § CrayOCaG<s| U AES *L*0DA0000¢ 13 
eos ee @ os gaenenee2oneoeesaeoatree eonetcaeeseoaeoaooces eemerzeseseoen2 eee? eeea2usd ; ce 0003 33 0} 90C 1 go 
TDOC®’ C"+4E° 8a” & OX0#3"03"0838 2o<opan0005 { Boer 32 Oe oocs 55 
eea eee e ee eee ees ee eee ceoeceoasecoee od eeoesed O00F 3 ee pe 23 
EMueeETH=<DCMPHS =°7MEFL 1 C F2°"°asc’’ "RA SOO 12010630750 82875 *HY0DA00006. OOle ae Oe ObET $3 
D018 34 OL OOF2 26 
DOLE 34 02 OOF% 37 
0023 34 04 OOF6 28 
0027 34 08 OOFB 29 
0028 Co 87 002F 30 
31 
—_ : e 31 
It a 32 
33 
iC 36 
37 
: a6 
I €: 40 
| 41 
| $ 
| 
| Cc 44 
45 
| 46 
+ &7 
| Xe 48 
49 
| 50 
iO 51 
: «52 
53 
QO2F 3D 04 OOF6 54 
0033 F2 01 0 55 
‘ 0036 30 10 OOF2 56 
003A F2 81 03 57 
0030 FO 73 6C 58 
o 59 
. 60 
61 
0040 3D 01 OOF1 2 
bist oe ON iH 
= wn nen een mene LAST PAGE mene 8048 23 Bf 82 és 
DATE  29AUGT7S PROG 10 opa-0 © 
EC NO. 627606 PAGE 16 Daten. Batoe 
wo 
{3 
€) 
ae, 


PART NO. 4248201 
PAGE 18A 
PROGRAM DC MOD 12 
SOURCE STATEMENT 
DECK 4 
SE 
UVEXVZ START O 
TREP 
= SECTOR OF 
FERRERS ERERESESSAESESESSSERERESES SS ASS ESRALSSSELEASHLAEKS HERS SSS SSS SESS 
BRK SS SERERE 
RKVRKG proc oC SeREEE 
FEKRRS ti, ST} LGAD & STORE REGISTER ShESSE 
SSEKESS £HEREE 
RESTS LOAD LSRS AND STORE LSRS. IF SELECTION SeEeSSH 
REEKSES 1S WRONG. *A* PEG CHECK MOST LEKELY SESSHE 
Ree te WILL GCCURS SEECSE 


eEKETES SKSSSSK 
AHHSSRECKES CESREGRERSELERESSSARSERATE SSS SL SLE SHLES SS SHHLSS SSSI ESHER SRS LASS 


HLTL HPL HC »HD INITIAL HALT = OC 
i XOLLOeXRE LOAD XRL WITH HEX ~0110- 
L X26204XR2 LOAD XR2 WITH HEX -2020- 
£ X4004, PSR LOAD PSR WITH HEX -4004— 
L X8080¢ARR LOAD ARR WITH HEX -—8080- 
MVi XRILOeXSOFF SET XR1_ SAVE AREA TO 
VI XARLHIoX*FFE HEX ~FFOF$« 
$T XRILOsXRE STGRE XRE 
ST AR2L0eXRZ STORE XR2 
Sf PSRLOePSR SYGRE PS$R .- 
ST ARRLO,ARR STORE ARR 
B TST 


terete nneciinenmneteeeensee 
RESSESEESESERESKERSSESERES2S59SROSESESESSESSESESEESEREE ESSERE GESTS ESSS 
SSeessd Seeeoes 


#eee% {Le ST} LOAD & STORE REGISTER CESSES 
SEIEER $4440 
FFSSSS TEST (1) tS$R LOK $eeese 
Sk2bSE (2) SIN ADD/SUB GRP esos 
#44464 (3) STORE DATA *esnE8 
SEERSE (4) INHIBIF SOR TRANSFER eesoee 
SHSCKES (9) ARRAY LOW SEEREB 
SEREEE (6 ARRAY HIGH SESE 
#ekOSe 7) FIRST EB CYCLE Sass 
SEKSES (8) WRITE HIGH Seetet 
SEEKED (9) LSR HIGH YG_A_ REGISTER SSStes 
eeeeee (10) ZONE/NUR_ INTRCHNG SESERE 
REKEES 411) SINGLE EB INST SHEERS 
SEESED (12) 2 ADORESS FORMAT SOd3ee 
SEESES {32} CLK 5-6 Settee 
£kS5E 14) INTERNAL SSeeee 
SHH4ER SCR4GE 
CSSSSSSSHSESSCSESESEOSOSOE 4S ESESSSESTESSESISESESESSETESSESESESE SES SOS SEES 
s 
& 
¥sT¥l cu PSRLO_X* 04° CHECK PSRLOW 722 HIGH CONDITION 

JN HLT2 SUPP rs®c. Ow NOT HIGH 
¥$t2 cil KRILO,X* 10° CHECK LUaAD/STORE oF KR1 LOWER BYTE. 

JE T$T3 JUMP IF XRILO EQUALS HEX ~10~. 
HLT2 HPL HC »HD 
: &® FAILING FUNCT (152e3e4e5el2e24) 
* 
TST3 Cul KRLIHEX*OL* CHECK LOAD/STORE OF KRI UPPER BYTE. 

gf TST5 JUMP IF KRIHE EQUAL HEX -Ol-~ 
¥ST4 Lt XRLHIex*00* 

JE HLTS 

PROG 10 odc-0 
babe Tea 


eseoseeaeeoesenseeaeeeaeseddscseo@onoeeaeeoaesgeoeeeoe@eee 6 8 8 @ 








eeeeovoeoe eoeoaeaeaeeaeneaoenoanenenoenenenaenenaeneeeaeeeed © 
» i | | : “: < | 
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‘ PART NOw 4248201 - : TIC P AM PART NOs 4248201 
IBM MAINTENANCE DIAGNOSTIC PROGRAM Pace 201 ¢ IBM MAINTENANCE DIAGNOS IC PROGR eae eOA 
ODCO CPU AND MEMORY DIAGNOSTICS: PROGRAM DOC MOD 12 - QDCO CPU AND MEMORY DIAGNOSTICS: PROGRAM OC MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ’ ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | 
7 P HD '  OOTE 35 O1 OOBF 115 STARTL L- ZEROES »XR1 SET XR1 & XR2 TO ALL ZEROES 
OGRE TD: 13.86 Se ENS: ONDE: Ge * FALLING FUNCT  (6,8)10512y)13) , 0083 35 02 OOBF 116 ZEROES, XR2 | ~ 
68 * 0087 C2 O1 0088 Li? LOadDl tA HLT10,XRi LOAD XR1 WITH -0088- 
* 
0051 3D 20 COF4 $3 Tst5 cul XR2LO»X*20! CHECK LOAD/STORE OF XR2 LOWER BYTE. 008B 34 02 OOFA 119 st PAD1L»XR2 STORE XR2 IN LOC -OOF9 & OOFA-. 
oO88 55 BO OOF8 42 TST6 a ARRLO, K*80° CHECK LOAD/STORE OF ARE LOWER BYTE. OOSF C2 02 FFFF 121 LOAD2 LA X*FEFF* yXR2 LOAD XR2 WITH -FFFF-. 
005C F2 81 06 73 L -80- 
HP HC «HD 0093 34 01 OOFC 123 ST PAD2eXR1 STORE XR1 IN LOC -OOFB & OOFC-. 
O0OF 2hG. P2280 42 gbt4 . : * FAILING FUNCT (14) G 0097 34 02 OOFE 124 ST PADS XR2 STORE XR2 IN LOC -OOFD & OOFE-~ 
x 4 * : 
a8 * 0098 3D 00 OOFD 126 CLI PAD3-1,X*06! GO HALT IF XR2 WAS NOT St LECTED 
0062 FO 73 6C a8 HLTS HPL HC »HD Sc heiaereunkt aaa ‘ OO9F F2 81 16 127 JE HLT9 BY LOAO2. 
9 9 f 
80 * ‘ OOA2 30 8B OOFC 129 CLI PAD2sX*BB? GO HALT IF XR1 NOT SELECTED BY LOADI 
81 ; OOA6 F2 01 OC 130 JNE HLTS : OR IF XR1 WAS SELECTED BY LOAD2. 
gi é O0A9 3D 00 OOF9 132 CLI PADI-1,X*008 GO HALT IF XR2 WAS SELECTED 
B2 EREEEAEEEEREREREERSESEER EERE APE TASS TE EEREREES SEER ES EGE ESHER SESS SESS BESS N ObAO SC GK: G1KA 32 * ays AOOT SI. xtOAT gee uh ey READ ‘ora RECORD 
83 €eeeee + 
of aaseae {Le ST, A) LOAD, STORE & ADD REGISTER mee ee 0031 CO 81 0169 135 BE Boot 
£ECRSK on 
82 eeeeke TEST (1) AR easaee 0085 FO 73 6C 137 HLT8 HPL HC,HD * PROG DC, HALT 8- ERROR HALT. 
87 +ekeee (2 BAR eeEKEK : 138 * * FAILING FUNCT 1 
88 «*xeae (3) LSR SELECT epee 139 * : 
ERK * F 
$0 EEKEEAREEESESAREEERERKESSE SEALE ESS EAELEEARERSE EEE SEER SESH RESER ER SR ESE EHEEE CS 0OB8 FO 73 6C 141 HLT9 HPL HCeHD * PROG OCs HALT 9. ERROR HALT. 
31 * 142 * * FAILING FUNCT (19293) 
0065 35 OL OOCE 93 START L XFF,XR1 LOAD XR1 & XR2 WITH FFFE C; 0088 FO 73 6C 144 HLT1O HPL HC+HO * PROG DCe HALT 10. ERROR HALT. 
0069 35 02 OOCE 95 L XFF gXR2 146 ® THE (LA) WAS DECODED AS A (BNE) 
apap 26 8) gets 2 fo 20, YERGG°BRAT BUEEBL* conc 3 * See 
0074 36 02 00C9 98 A ONE ¢XR2 AOD HEX -0001- TO 5 ©  oose 0000 OOBF 149 ZEROES DC XL2*09000! DATA USED TO SET XRly XR2 & PSR. 
0078 CO AO OOTF 123 Z BOL S$TART1 CHECK FOR BINe OVFLGW COND. G0CG 0110 occ] 130 X0110 oC XL2rO1198 XR1 DATA 
ROnS ire a cw ee: See eee + PAMtiNGOFONCT tise) C OBES seo ooes 13S Xsoec «DE | xto*eo808 ARR DATA 
103 * 7 00C8 0001 00C9 154 ONE DC XL2*0001* 
104 OOCA AA5S OOCB 155 XAA55 OC XL2"*AA55§ 
104 ¢ OOCC AA OOCC 156 X55AA_ OC XL1°aaé 
104 s OOCD FFFF OOCE 157 XFF oC XL2°FFFF* 
105 SEKKCKKSSERE RESKSEREAKESSKSERSE CHFKSESAKAASKERKKSEKKESAKKKESEKESKSEKEKESTHKSESKEESESESESSE 158 
106 *ee284 #40488 0001 159 xRl EQU 1 
107 *#s40% {LA) LOAD ADDRESS aoesse 3) 0002 160 xR2 EQU 2 
108 +#+424 #oeeet 0004 161 PSR EQU 4 
109 #e¢ae2 TEST (1) -XR1_& XR2 SELECT #o280% C008 162 ARR EQU 8 
110 #*es0¢ (2) (LA) GP DECODE eeares OOFF 163 ALLREG EQU 255 
11] #eeee0 (3) INTERNAL 898404, © OOFA 164 PADI EQU 250 
112 #ees84 *seee8 OOFC 165 PAD2 EQU 252 
113 EEEKEKESESERECEKRESHKESESKESESRESSEKSESERESEKSEKCSESAKSESSESES ESSE SKS SSESESKASSESSERES POEL 198 rAOe eeu sit 
Oo OOF2 168 XR1LO EQU 242 
OOFS 169 XR2LD EQU 244 
OOF6 170 PSRLO EQU 246 
OOF8 171 ARRLU EQU 248 
e 0169 172 BOOT EQU  X*169* 
_* 0073 173 HD EQU x73) -D- 
006C 174 HC EQU X*6Ct 
© FFFF 175 END 
! CG 
1 a . 
DATE 29auUGTS PROG ID ooc-o ‘.- DATE 9AUGT PROG ID 0C-0 
EC NO. 6827804 PAGE 19 EC NO. 535862 PAGE Ton 
| © 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


PART NO. 42482 
PAGE 2 
o0oco CPU AND MEMORY DIAGNOSTICS: PROGRAM OC MOD 12 
CROSS-REFERENCE 
SYMBOL T LEN VALUE ODEFN REFERENCES 
ALLREG C 001 OOFF 0163 
R C 001 000 0162 0023* 0029 
ARRLO C 001 OOF8 O17] 0029* 0072 
BOGT C 001 0169 0172 0134* 0135 
HC € 001 Q06C O174 0018 0058 0066 O07 OO78 0101 O137 OGL 0144 
HO C O01 0073 0173 0018 0058 0066 0074 0078 0101 0137 0141 0144 
HLT1 a 003 0000 0018 
HLT10 A 003 OO8B 0144 Gli? 
HLT2 A 003 0030 O28 0055 
HLT3 A 003 OQO04E 006 
HLT4 A 003 OOSF 0074 0071 
HLTS & 003 0062 0078 QG65 
HLTT 4003 OO7TC Q101 0097 
HLT8 A 003 0085 0137 0130 : 
HLT9 A 003 0088 0141 O1l27 
LOADL A 004 QOO87? OLLT 
LOAD2 A 00% OO8F 0121 
ONE A 002 O00C9 0154 0096. 0098 
PADI C 001 OOFA 0164 0119* 0132 
PAD2 € 001 OOFC 0165 0123% 0129 
PAD3 C O01 OOFE 0166 0124* 0126 
PSR C 001 0004 90161 0022% 0028 
PSRLO C 001 QOF6 90170 0028% 0054 
STAKT A 004 90065 0093 0073 
START1L A 004 OO7F 0115 0099 
TSTl A 004 O02F 0054 0030 
TST2 A 004 0036 0056 
TST3 A 004 0040 Ree 0057 
TST4 A 004 0047 0064 
TST5 A 004 0051 0070 0063 
TST6 & 004 0058. 0072 
— UVWXYZ A 001 0000 0004 
. XAA55 A 002 OOCB 0155 
XFF A 002 QOCE 0157 0093 0095 
XR1 € 001 0001 0159 0020* 0026 0093* 0096*% 0115* OL17* 06123 
XRIHI C 001 OOFL 0167 0025* 0062 0064 
XRILO C GO1 OOFZ2 0168 0024* 0026* 0056 
XR2 C 001 0002 0160 0621* 0027 O0S5* 0098* 0116* 0119 0121* 0124 
XR2L0 C 001 OOF4 0169 0027* 0070 
X0110 A 002 OOC1 0150 0020 
X2020 A002 O00C3 0151 0021 
X4004 A 002 O0C5 0152 0022 
X55AA A 001 OOCC 0156 
x8080 A 002 OOCT7T 0153 0023 
ZEROES A 002 OOBF 0149 0115 0116 
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SYROOL WW RER -VAEvE ee es THE CHARACTER ° INDICATES A BLANK COLUMN AND THE CHARACTERS B E A INDICATE NUMERIC SHIFT. 
Boor. ‘ got 9000 gos aa CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 66 CL 65 THROUGH 80 Ct 61 THROUGH 96 
HALT10 A 003 0088 
HALT 2 603 Sere GIS LAE gag tee | 
HALT2, A 003 0014 0027 0025 "6Bx°GBD Pu°42 48200 EC 827804 CPU AND MEMORY T ESTS MOD 12 84aa843a@ | © ODEOO000 
HALTS A 003 OO1E 0034 0032 
HALTS A 003 0028 0041 0039 ; : gate ae . 2 ‘ ae oe Bur. 
HALTS & 003 0033 0049 Te-":actalfin’"0- B ja 2Tew "2 6] O*870*%Y C#a-pCaGt alfa "HA "A3-Ce 2° 1°°-& eaGlalAM ~"0-" P880DE00002 
HALTS & 003 0047 OO71 0069 
HALT? & 003 0052 0079 ba tec 3 - é eee ‘ 
HALTB & 003 006A 0106 0104  Te-AS° EC® <V"VEC «@a-0CaG(a}OM’"aB A EPOeT70aD-C™iEM ""-oa ta 2L7"° 1" 7-€10870'#-C=aYD Ail~a M9D0DE00002 
HALTS A 003 OO7B O115 10 an 
He £ oot eete Stet 36i8 post 034 1+-B0" 1#2-670970 ("EC®"<x"-EB.aGt ac” "@OCEC-"" "0c ‘GaS°wa-DTCE’ "0B <a-DIC-"""0" aD’ sco" "4 
+ a ~EBe - -DIC- 
HE, € 901 gg7c O16T ates B8340 2038 a aS Wa-OTCE "0B <a 0 JCO ODE00003 
START2 A 004 0036 0064 004 : * s ss ie es Re! ‘ ‘ a a @eeaeaeeee TRE RARER ERR ER EE SE @Seeecevsaseeecanen esoee 
STARTS A 00% 0055 0100 0077 TFECH 12 17R-830 < Oy EZaGiaaG 3a*0G>"9Q K1DODE0000¢4 
arnt . a R088 Oaae o119 ee EMntsETe OC*PHS emMEF, I *°e *"* asc’ ** “A so’ ° e@esveeoaneaens ecteen 7 0 7 Dp 
ae = a 
UVWXYZ A 001 9009 9004 ! c z R Q 12010630750 82875aHUODEC000S 
XFF A 001 oOO0C6 0158 0137 0145 i . 
x00 © € «GOL O08 0163 0141 a 
x01 A 001 00C? 0159 013 oe 
X96 A OOL OOCA O161 0022 0066 ' 
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M MAINTENA T Pp 2 4 os PART NO. 4248201 
1B INTENANCE OIAGNOSTIC PROGRAM PART NO 42 6201 - IBM PAINTENANCE DIAGNOSTIC PROGRAM parr $2} 
ODFO CPU AND MEMORY DIAGNOSTICS: PROGRAM DF MOD 12 ODFO CPU AND MEMORY DIAGNOSTICS: PROGRAM OF MOD 12 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 

2 DECK 4 56 88EFESEEE SE ESESEEEEEESEEEESEESEEESEESEEESEEESEREEERESESESSESSESOSESO REE 
3 © & 57 eneeese senses 
0000 é UVWXYZ START 0 ca 38 sees (ZAZ) ZERO AND ADD DECIMAL eeecee 
6 * SECTOR 12 60 #848284 TEST (1) OECIMAL COMP CARRY eeeeee 
7 FRRRESSEREEREEESESESEEEEERESEESEECERTESESESESEEEKESESESERESERESESEESSEEEREESE 61 *#tee% (2) RECOMP $4404 
8 +8eess eesess & 62 *eee2 (3) OECIMAL SUBTRACT eeee48 
Q se88e2 PROG ODF SO4Kes 63 seeeee (4) 6 CORRECT Seesese 
10 #ees82 (ZAZ) ZERO AND ADD DECIMAL costes 64 844888 (5) CARRY IN ON DECIMAL COMPLEMENT See088 
1] *se¢e2 setae . 65 eeeten (6) INTERNAL eee 
12 see¢e8 TEST (ny CONDITION REGISTER wesese € 66 *eenK2 sheets 
13 #ee44¢ (2 DECIMAL_INSTR Settee OT SHESKEREREEKEEKSESERESRSESKESSERESE ESSE SASESSORSESESERSESTKESEKSKESESSHS SSE REESE 
14 eenee¢ (3) ARR WRITE SF+ese: 68 
1? sess {3} CHANGE ALY BIT 2 gescea F6 OOFF es START2 MVI PAD,X*F6! MOVE HEX -F6- INTO PAD 
ie 003A 6 69 v —F6- ° 
17 ¢eeees (6) OEC COMP A_ REG setees OO3E a 00 Ore OOFD 70 ZAZ —- PAD 1):e XEBUL) ZERO & ADD DEC 3. 
18 ¢keees (7) = ALU NUMERIC BLANK S59ekS 0044 30 F3 OOFF 71 CLI PAD »X*F3* CHECK RESULT. 
19 esesee (8) SOR SIGN MINU eeeeee 0048 F2 81 28 72 JE START3 JUMP TO NEXT TEST IF RESULT EQUALS 
20 eeeee2 (9) 8 REG BIT 2 seecee \. 73 DECIMAL 36 
2) sseese eeeeee 74 EEEESRECEREEESEEEEEEEESEEEESEEEEERE OE EES ES ESEEREEEEEEEKSEEERESESESSESERE 
22 SHSESEESESEEESESEESEESESESESESESESSESSESESESESESS SEE SEETESSECEESESERESERES. 75 * NOTE: PAD ANDO SAVARR ARE EQUATED TO 255 AND USE THE LAST 2 
om, * o 
0000 FO 73 3c 33 HLTL HPL HFeHD INITIAL HALY = OF © iF Seeeeaeeesecensces sesCESeSISeLESSRSSRESER SSE EEECESeHERSSSESEESESSSEEES 
= 4 F F PAD.X*FT7S * 
25 ; Oost be OL OS” 3 i SNE ae ree % JUMP IF RESULT NOT EQ TO DEC 7. 
Le 
0003 35 08 O00D 26 L HIGH, ARR SET CR TO HIGH & ARR TO HEX -0000- = °.. F F 
0007 35 04 O00D 27 t HIGH, PSR Shae eta Se gt Se EE aD ® FAILING FUNCT (19296) 
000B 04 00 OOF? OOFT 28 ZAZ = KFOCL) eXFOCL) ZERO 3 ADO DEC O 83 * ‘ 
OOLL F2 61 03 $3 JE HLT2+3 JUMP If EQUAL CONDITION SET. bogs Specie bvauee 84 * Seah, upger peeps . 
0014 FO 73 3C 31 HLT2 HPL HFeHD SINC RONEE: Tiel . b058 fe 81 es ; Be ie H To eas * JUMP IS RESULT EQUALS DEC 0. 
7 aie sai al Le 0025 #2 OL OS Bs 3 GRE | ALY Tea # JUMP IF RESULT NOT EQ TO DEC 9. 
0017 34 08 OOFF 35 st SAVARR, ARR SAVE ARR : 
OOLB OD O12 OOFF 0010 36 Cic = Savarrl2},A0xFO COMPARE IT WITH ADDRESS OF XFO Cee Oe 36 38 ad teh, Em * FAILING FUNCT & 
0021 F2 81 OC 37 ‘ JE HLT 343 JUMP IF EQUAL an 92 ¢ 
0024 OD O1 OOFF OOF9 39 CLC SAVARR(2).ADNFO GO YO HALTS If ARR . D 94 PAD, X*F6* 
Oe Geers at oe oun ae eee Pecan eueees =. ote: Fz 61 03 oF SE) HL NB * JUMP IF RESULT EQUALS DEC 6. 
002D FO 73 3C 42 HLT3 HPL UHF,HO ® ARR WRT SELECT t 7 
43 ¢ : @ FAILING FUNCT 2 | ee eee 38 aie pe NED * FAILING FUNCT (4) 
45 8 a a 100 ¢ 
0030 CO 08 CO3A 46 6c START2.X°O8! BRANCH TO NEXT TEST IF DEC. OVERFLOW *. # CARRY IN_ON SUB 
a7 ¢ 7 CONDITION NOT SET. ROTO FOS 26 ee Mee: SBESED *® FAILING FUNCT  ¢5 
0034 FO 73 3C 48 HLT4 HPL HF,HD * DECIMAL GVERFLOW WAS SET 2571 103 ¢ 
: 49 @ FAILING FUNCT 3 | am, 
50 $ | & 
0037 FO 73 3C 52 HLYS HPL HFeHD ®PROG 1F, HALY Se ERROR HALT i 
53 ® FAILING FUNCT (8) : 
54 @ iC 
ee 
. 
c. 
DATE  29AUGTS PROG 1D ODF-0 ~. DATE | 29AUGT PROG ID O0F-0 
EC NOwe 8278046 PAGE 26 EC fio. 527886" PAGE .  @6B 
C 
oes 
ue 
; 
C2 





eeceoeoeseveeneeeseeeeegeeneeeneneeeeeeees 


{ 
| 
| 
i 
| 
\ 





PART NO. 42482011 16M MAINTENANCE OIAGNOSTIC PROGRAM PART NO- 4248201 
IBM MAINTENANCE DIAGNOSTIC PROGRAM PACE sgh PAGE STA 
ODFO CPU AND MEMORY DIAGNOSTICS: PROGRAM DF “#00 12 | ODFO CPU ANO MEMORY DIAGNOSTICS: PROGRAM OF MOD 12 
ERR LOC OBJECT CODE ACOR STMT SOURCE STATERENT ! ERR LOC OBJECT CODE AOOR STMT SQURCE STATEMENT 
105 €H#EESREREEERREEREREERESESES SERA EERE CREE EREESEEELES EE CEORESERLES SE SHARES 158 ©£¥898S4989E598F$E8SSEESEESESEEETESESESTESHSSSESSSEESPRESHEAKESERESREL SEK ESESD 
106 e%e%08 #24844, ie 159 eeeaee *£%404% 
107 **eee% (ZAZ) ZERO AND ADD OECIMAL SERGR6, *. 160 #4240 (ZAZ) ZERO AND AOD DECI Mat eSCSSS 
108 «#*«*e4¢ KSESES, 16] **8e%% *£ES8KR 
109 #e248 TEST (1) SOR TO B REGISTER REEKEE 162 **ee¢@ TEST q1) SOR SIGN MINUS SERSSS 
110 *as%4% (2) RECOMPLEMENT CYCLE SEKtER| ce 163 tee%¢8 (2) CHANGE ALU BIT 2 eeeees 
11] #¢%¢e6 13) DECIMAL COMPLEMENT B REGISTER sesgaee *& 164 *eee0% (3) NOT FIRST RECOMPLEMENT CYCLE #4ehSt 
112 *eee0% (4) FORCE BIT 7 ; #4488! 165 **¢ee8 (4) FORCE BITS #44044 
113 ##sa2%% 05) 6B REGISTER SIGN MINUS SSeS 166 *4#444% (5) Q REGISTER #24448 
114 #e4%2% {6) SOR SIGN MINUS *teaes! C 167 #4428 (6) *E*® CYCLE #4445 
L15 #e¢e8¢ (7) CHANGE ALU BIT 2 ESS), \- 168 #4#%48% (7) INTERNAL pide 
116 ***%4% (83 CARRY TO BIT 3 eEtRES, 169 24428 #44844 
117 **exen (9) ARR SELECT £heeed| 170 8XSG45E44 CF E4ESEESESERERSEECERSESSESESESESSEEEE SERSESBEREESESEREESELESLESES 
116 ###e*4¢ (10) ADO TO REG ¢ STORE INSTR SHEERS. f 171 
119 ****e% ttt RECOMP GATE eeeene| § i7i 
120 #*4%4% {ig AL : 4eREEE 0obO0 3C OF OOFE 172 START4 BVI PAD-1,X*OF* INITIALIZE PAD-1 TO HEX —OF-. 
12] #**#%% 13) INTERNAL REESE: 00B4 04 00 OOFF OOFA 173 ZAZ PAD(1) »XB801) ZERO & ACD DEC MINUS ZERO, HEX ~BO- 
122 ¥4#+e44 SERRE, OOBA 30 FO OOFF 174 CLI PAD X*EO? CHECK RESULT. 
123 SEEKHEASESRAESSESEKERES SEEEFARESES SKESLIRAASLESALSERERSSSAESASESHTASRES VSS OOBE F2 B1 03 175 JE HLT1443 JURP IF RESULT EQUALS DEC ZERO. 
124 176 # 
124 | 00C1i FO 73 3C 177 HLT14 HPL HF »HD 
0073 3C 00 OOFF 125 START3 MVI PAD,X*00* RE-INITIALIZE PAD TO -00- | C 178 * * FAILING FUNCT (1.227) 
OO7TT 04 00 OOFF OOA4S 126 ZAZ padl1),xD0(1) ZERO &€ ADO DEC MINUS ZERO. at 179 
0070 F2 82 2D 127 JL HLT13 GO HALT If CR SET TO LOW | 180 * 
0080 3D FO OOFF 128 CLI PAD, X*FO® CHECK RESULT. OOC% 3D OF OOFE 181 CLI PAD—-1_X*OF® CHECK FOR ALTERING GNLY ONE BYTE. 
0084 CO 81 OOBO 129 BE START4 JUMP TO NEXT TESY IF SIGN CHANGED. l ¢ ooce F2 81 03 182 JE HLT1543 JUMP IF OK. 
0088 30 F9 OOFF 130 CLI PAD,X*FO® * | 183 * 
OO6C F2 81 11 131 JE HLTI1 *® JUMP IF RESULT EQUALS DEC 9. oocsm FO 73 3C 184 HLT15 HPL HF .HD 
OOBF 3D Fl OOFF 132 cil PAD, XFL * 185 * * FAILING FUNCT 3 
0093 F2 01 03 132 Ps JNE HLT1043 * JUMP IF RESULT NOT EQ TO DEC 1. Pee 186 . 
t be 
0096 FC 73 3C 135 HLTLO HPL HF ,HD : COCE 04 10 OOFF OOFD 188 ZAZ PAD(2)sXF3(1) ZERG & ACD DEC 3 INTS 2 BYTE FIELD. 
136 * * FAILING FUNCT 3 | 00D4 GD 01 OOFF OOFC 189 cCLe PAD(2) »XFOF3 CHECK FOR ALTERING BOTH BYTES 
SS i37 * oo OODA 3C OD O16A 199 MMVI BOOT+¢1,X*OD# SET UP TG READ 13TH RECORD ee 
138 # fas Hee OODE CO 81 OOES 191 BE NEG BRANCH TG CHECK NEG IF OK. 
0099 30 20 OOFF 139 Cut PAD, XK*20* } 192 *® 
0090 F2 01 140 JNE HLTL1+3 * JUMP IF RESULT NOT EQ TO HEX ~20-<e: OOE2 FO 73 3C 193 HLT16 HPL HF HD 
141 # tits, 194 €5>3>>35>>>> * FAILING FUACT (4,6,7) 
OOAO FO 73 3C 142 HLT11 HPL HF HD id 195 # : 2>>3>>593>> 
143 * * FAILING FUNCT 24224 : 196 *# >>>>>>>>>> NEG AND HLT16 MUST REMAIN TOGETHER 
ee : OOES 4 00 OOFF OOEC tah NEG ZAz PAD(1)¢XD3e101) zERO + ADO NEGATIVE 3 
| 
146 #2 QOEB 3D 03 OOFF 199 xXD3 cul PAD, XK*D3* CHECK IF IT IS NEGATIVE 
00A3 30 OO OOFF 147 CLI PAD,X*'DO* s ; OOEF CO 01 OO0Ci 200 BNE HLTL¢ HALT IF NOT 
OOAT F2 81 03 ase 2. JE HLTA * JUMP IF RESULT EQUALS DEC -0O. Big OOF3 CO 87 C169 eat 8 Boot BRANCH TO BOOTSTRAP IF OK 
OOAA FO 73 3C 150 HLT12 HPL HF »HD \ C.. 203 8FEEEEESEHESERKESTES SS OEEEEEEESESESERSEETEEESE SESS KEEERESOESESESSESESEEESE 
151 *# ® FAILING FUNCT 204 * NOTE: PAD AND SAVARR ARE EQUATED TO 255 AND USE THE LAST 2 
13¢ 2 { 205 # BYTES OF THIS SECTION. 
53 # Ce 206 SERHSRSEKSEKEEESEERESESESSESESESEEASESSEREEE STOVES SESES LE SHARKS EREESESS ES 
OOAD FO 73 3C 154 HLT13 HPL HF »HD - oN. 207 
155 2 * FAILING FUNCT (2eS5e60ellel2,i3) OOFT FO QOOF7 208 XFO oc XL1°FO? 
156 & OOF8 OOES OOF9 209 ADNFO OC AL2(NEG-1) 
1 OOFA BO OOFA 210 XxBO DC *B0° 
OOFB FOF3 OOFC 211 XFOF3 OC aL2*FOF3* 
QOFD F3 OOFD ere x3 oc XL1°F3* 
' €: OOAS 214 XDO EQU X*Aat 
, : 0000 215 HIGH EQU x*oo* 
{ 0010 216 AOXFO EQU xX*10* 
wee hy C008 217 ARR EQU 8 
i ¢ 0004 218 PSR EOQU 4 
_ 4 0O3C 219 HF EQu x*3c¢ 
0073 220 HD EQU x°73¢ -D- 
x 0169 221 BOOT EQU x*169* 
t OOFF 222 SAVARR EQU 255 
OOFF 223 PAD EQU 255 
224 
DATE 29AUGTS PROG 10 ODF-0 ( OATE JAUGTS PROG ID ODF-O 
EC NOw 827804 PAGE 27 EC NO. 537664 PAGE 27A 
4 
qo 


ae 
ts Sa 


PART NO. 
PAGE 


18M MAINTENANCE DIAGNOSTIC PROGRAM 

ODFO CPU AND MEMORY OIAGNOSTICS: PROGRAM OF MOD 12 
CROSS-REFERENCE 
SYMBOL T LEN VALUE ODEFN REFERENCES 


4248201 
38 | 


MOD 12 


PROGRAM OF 
ADDR STMT SCURCE STATEMENT 
END 


FFFF 225 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 
CPU AND MEMORY DIAGNOSTICS: 


ERR LOC OBJECT CODE © 


ODFO 


oo N 
ww mn 
~~ nt ot 
o 28 ° 
NN o 
wv a 
ot nd ot 
oo oO 
wm wu Oo 
ma © ND 
~aA et 
oOo oo 
4 
ot nt or 
Oo oO NO 
ot ond mio 
oo oo 
* 
rR ff No 
ae NO 
Oo °o tod 
o oO Ooo 
Qo 8 Ta 
ao o neo 
oo on 
oo oo 
~~“ «tl fr ond 
o @ Qo 
o oO Ont 
Oo oO Oo 
NN ny 
wwe. aor 
o Oo On 
Oo oO oo 
oman aon 
PHS H a 
QxnOn On 
folalol eo) oo 
NINYS mtn ON 
yore mee 
OHO- : On Oo 
ooo°o aoo °o 
* # 
ULV erat rnd frum cael Pe Paw o 2o aor 2 oa ® 
MOMM OMY t +o ore ™m N © 
ONOMOHO mm oN NOx © Oo w« 
oooo0oo o oo ; ooo Oo o oO 
ee oe 4H 


POWOLTYE SLO Met MIAN A OMDNOKAAEWMONA MOMrORO 
MOANONWAAN AM NEO NM PODDROMNALSEN MADNOP 
COOnOHOHO att aint OD} OCOOOOKOHOOOCOM stxinOnO 
SQ000S9000 20 8200 20 2000000090900 200000 


BORHO BD WSANOSE SRMMNONMO—mAm mM 
OMMNIN 6 MANA PUAMODMO ST FNDMOONKN 
NNNNN NO NON sted OOOQOOO4AN 
fololoelolo wo ME lololelelelolalalololalelolelelelela) 
POOOM WY DOVOAOHANVTOSHNMOOWME 
weHtSOM HM COCA QOOWANMGMN OOM WiLL 
(ololol lo wo mE olelolaloleleolelololololelololelolol a 
folelelolo Me mE olo(=lelelolelelalelelelolelolalealelo) 
Netatmtet Bt RLATMMOAT MAA MMM MIAO mt 
lololololo Mom olololelololololalolelolalalolololelo) 
Sooece SC SOC CoooooO0oCo00 80000 
QBOVOO Oo Udddddddddddddddddty 
oo OHNO SO 

Unb b> ad ed ped od ed ot ed CNL EAL SPU WO OO OP 
Z2xxvo Dom fam fm fue rae fm ewe fmm fore frm rue face fam» fro fre me 9) 
SOLO hd hd ah ed ed el ad sd eed ed eed) ead ed wed UI 
qaq@qQ0nt © LOLI rrIrTrrrrrirrrza 


DNOMANT OS HOM 
NONE OM MH tet 
NNOAMONNANNA 
SOOO009000009O 


Th 90047 ODO 
Ob MP OO ube EZ Ud be Ub Ub 
OOoooodooacoo 
9900000090085 


ht SPS od et wd Hf vd Nort 
2000000000990 
BOOOS00900000 


VOdtCdddodddd 


TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 





ODE-0 
28A 


0 


PROG I 
PAGE 


29AUGT5 
827804 


DATE 
€C NOw 


# 


opF-0 
28 


PROG ID 
. PAGE 


G75 
04 


2a 
<r 
N 


DATE 
EC NO. 


Me, 77 


€% 


ew O GO G 


eee eseee eee eee @ 





@ee2e2eoeoe 809008080808 @. 9080802080908 009 80808 @ 
| 








PART NOe 4248201 _ P AN PART NOW 4248201 
16M MAINTENANCE OLAGNOSTIC CROGRAN pane 2o1 . 186 MAINTENANCE OLAGNOSTIC seats | PAGE 59h 
OOFO CPU AND MEMORY DIAGNOSTICS: PROGRAM OF MOD 12 OE00 CPU AND MEMORY DIAGNOSTICS: PROGRAM EO "0D 12 

OBJECT CARD LISTING ERR LOC OBJECT CODE ADOR STMT SOURCE STATERENT 
. ; DECK 4 
THE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS DB E H INDICATE NUMERIC SHIFT. e anes 3 Gowns seC 9 
CL i THROUGH 16 CL 87 THRGUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 Ct 8&1 THROUGH 96 : 5 TREP SECTOR 13 
Cc $ SSESSESESEESSSES SS SASSESS ESSE ED TOSS SS SET SSE NSS SESE S ESSERE NOS SES SSRs ESS 
. e eco e e © e e e coeeoeace C eeoeesece ecoeusoe . 244263 
GBK°GBD PN°42 48200 €C°827804 CPU AND MEMORY T ESTS MOD 12 84888428 7 COFCO000 g $20tts PROG £0 ste008 
2 19 rpmiedd (AZ) AOD DECIMAL wecaee 
Te-" saG<ale-"CLM 0° 40° "C7 42-6) 083048 C#CED' "O° EaYD<CED "OC9aYD HaG<ao’-"+7a311A 31¢0°4-cooFocoo1 © 12? se0sK2 TEST (1) DEC COMP A REGISTER oeeees 
13 *ee0s9 ig en Ow LATCH F444 
wee ° ° e ° . « ° ecee 14 es0st% (3) R DECIMAL GVERFLOW seosee 
T#-AS'=C8A MOC tine (MHARCTT §% «2 E10%30'@ C™A@YD MisU ""HA "AZIC7T 6 1"2-610%330%30 a P/OODFO0CS2 o 15 eeee08 (4) ADD DEC INSTR #94449 
i 16 saeeee (5) SOR SIGN MINUS StSSSt 
eo a e e 2 - e e s t ee s . i7 SStose (6) ALU NUM BLANK ttt 
Te-B0"0E $28 ZI BeLTO [* -EBOI-U 8 @*HADLT72 1°2 GI 0#30°H C™2-OCaG< af} "HA "4311 31C0 TAHODFOO003 18 #*s40% (7 CLOCK 3 CD eteCCE 
Cc: 19 %*4048 (8 ARITH CARRY SSO48E 
ace ee e e e e e e e © ee e e = 26 $82442 (9} OP BIT 7 Stteee 
T+#-C,COC=A =6080C )06si= HA MABICS | 1 #2-610%3000 C | 144 EC*® JOSaCEE BOHD ASI & 1a #C& GABODFODDNS 21 astees (10) INTERNAL eseese 
oe e e coe aeaaaceseeccvecse evvoeccearenerese eesevceseossecess eaesse eo Cc: 23 FESSRSVASSSSESSESSSA SSS SLTCESSESRISTSSSE SS SSSESSKS VSSES SSE SSHBRERERGAMSSEKSTE 
TOEC*40C"0 O 088 G GOXxO +KOS8I13 2 DODFO000S: Bee $2. 
mec ene @ ee eco ee eee seeeeveece eeceso : € e ALY = EO 
EVetse7e=.0C@PHS =RIMEFI ( c FZ ASC RA SO Q 12010630750 82875asYODFO0006 -- oeee ree $3 = ne nee NEE ERL ee 
‘ e003 F2 88 00 27 JOZ NEXT RESET OEC GVERFLOW IF PRESENT. 
0006 3C DS OOFF 28 NEXT MYI PAD ,X*D9* INITIALIZE PAD TO MINUS DEC 9. 
O00A 046 00 OOFF O0A3 29 Az PADL1) »XD9(1) ADD MINUS DEC 9 TO PAD. 
0010 F2 08 24 30 JNOZ HLT4 JUMP IF DEC OVERFLOW NOT SET 
0013 F2 O2 LE 31 JANL HLT3 JUMP IF LOW NOT SET 
0016 3D 08 OOFF 32 CLI PAD, X*O8* CHECK RESULT 
OO1LA F2 O1 Ag 33 JNE HLT2 JUMP IF WRONG 
—~ ee ae 0010 06 OO OOFF OOAS 34 Az PADC1L) »XF201) ADO OEC 2 TO PAD 
2 0023 F2 88 11 35 JOZ HLT4 GG TO HALT 3 IF DEC OVFLW S 
0026 F2 O02 0b 36 a HLTS GO TO HALT 3 IF LOW COND. WAS SET 
0029 3D Be GOFF 37 LI PAD B06" CHECK RESULT 
0020 CO 81 003A 38 r BE START2 GO TO NEXT TEST IF RESULT CORRECT 
0031 FO 7C 6F 40 HLT2 HPL HO, HE * WRONG RESULT 
; 4} : @ FAILING FUNCT le4 
* 0034 FO 7C 6F 43 HLT3 HPL HOeHE * CR WRONG 
os : * FAILING FUNCT (5960758) 
in AF 0037 FO 7C 6F 46 HLT4 HPL HO,HE * CR WRONG 
i 4a ¢ @ FAILING FUNCT (398-9,10) 
_ $8 
€: 4D $84090099006 2009008800000009094908600999008S00404000898084848888887R008 
; 50 *¢en08 e888 
is 51 seese0 (AZ). ADD DECIMAL ; sesses 
C. $2 sseee8 (ZAZ} ZERO & ADD DECIMAL Sttes0 
i 53 esseces seeeee 
54 sneese TEST (1) SIX CORRECT 40848 
. 55 teset8 (2) OEC COMP @ REG o4Oe00 
C 56 *e884e8 (3) CLOcK 3CC e808 
- 57 #94086 (4) INTERNAL e8¢220 
58 easee *o0808 
59 €98990SS$90664686S848SESF8FS9SS9SFESS5O$539ESHSTESETHSONESEEEESEEESESSTREE 
€ 
a 
C a 
DATE 29AUGTS PROG ID OOF-O pate 29AUGT5S 
P 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOe 4248201| 1BM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248201 
PAGE 30 PAGE 30A 
OE00 CPU AND MEMORY DIAGNOSTICS: PROGRAM EO MOD 12 te O£E00 CPU AND MEMORY DIAGNOSTICS: PROGRAM EO MOD 12 
ERR LOC ObJECT CODE ADDR STMT SGURCE STATEMENT | < CROSS-REFERENCE 
0034 os 98 OOFr QOAE 6} START2 ZAZ BADE 9) eDATACS) Ripe re ee LOGIC INPUTS | SYMBOL T LEN VALUE OEFN REFERENCES 
, | Boot Cc 001 0169 0118 oc99*% 0100 
oorevhe 6) 0 $2 * a BEN? SS JUNE TE OS DaTA A009 OOAE O115 006i 0062 0070 0071 
0049 FO 7C 6F 65 HLTS HPL HO,HE * WRONG RESULT HE C 001 oo7c 0119 0025 0040 0043 0046 6065 0074 0102 0105 0108 
66 & * FAILING FUNCT 1 HLT1 A 003 0000 0025 
en * p «HEYA 383 8838 8863 8832 onas 
004C 3C DO OOFF 68 MVI = PADe X*D0° 
0050 OC 07 OOFE OOFF 69 MVC  PAD-1(8),PAD SET PAD TO MINUS DEC Oc HLT4 A 003 0037 0046 0030 0035 
0056 06 08 OOFF OOAE 710 AZ PAD(9} sDATA(9) RIPPLE DEC COMP B REG INPUTS | HLTS5 A 003 0049 0085 0063 
gas OB BF oso 3 CLC TARTS CHES NEXT TEST | HETG 8 003 Boss G1o2 9095 
af | HE 8 883 Bese 8198 gags Oat 
* T Bs 
O06G ere GN er ie oe BEE SAOsHE * WRONG EO EUNCT (20304) l NO ¢ 001 O06F 0120 0025 0040 0043 0046 0065 0074 0102 0105 0108 
4 PAD € 001 OOFF 0117 0028% 0029% 0032 0034* 0037 0061* 0062 0068* 0069 0069 0070* 0071 
7 sacacanepecsansuesneseehscensntseeneesheseshaeObeSSSEESeseseeeeesesese £ 0089* 0090*% 0092 009% 0096* 0098 
ag Saaves {SZ} SUBTRACT DECIMAL caseee eek ar2 k B82 esR gare 0028 
BO ease TEST (1) OEC COMP & REGISTER eneess oyaels A eT Hint ted oore 
SESE eT 
8} R4494E ES th} CR LOW LATCH axeeee; - XD1 A 001 OOA2 OLE 0090 
83 ¢sse0¢ (3) ITC ACTIVE SEESEE xd9 A 001 O0A3 0112 029 
84 844048 (4) $uB DEC INST SEeeee! XF2 A 001 COAG 6123 0034 
85 eeee8 esseee - XF3 A&A 001 OOAS 0114 096 
86 CttEES  ssnneeceeteeenesenneneenaneesEREseenessseTeseseses ses enserses R 
BT : ' TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 
0069 3C Fl OOFF 89 STARTS MVI PAD,X*FL® INITIALIZE PAD TO DEC 1 | c 
0060 07 00 OOFF O0A2 90 $Z PAD(1L) eXDL CL) SUBTRACT A MINUS OEC 1 {te 
0073 F2 04 26 91 JNH HLTS JUMP IF CR NOT SET TO HIGH. | 
0076 30 Fl OOFF 92 CLI PAD, X*F1* CHECK FOR PAD NOT ALTERED 
OOTA F2 81 22 93 JE HLTS JUMP ITF PAD WAS NOT ALTERED. | C: a 
0OTD 30 F2 OOFF 94 CLI PAD,X*F2* CHECK RESULT FOR DEC 2 a 
0081 F2 O1 15 95 SNE HLT? JUMP IF WRONG RESULT | 
0084 07 00 OOFF OOAS 96 Sz PAD(L) »XF3¢1) SUBTRACT A DEC 3 | 
008A Fe 02 OF 97 JNL HLTS JUMP IF CR NOT SET TO LO ' G 
0O08D 30 01 OOFF 98 cll PAD,X*D1* CHECK RESULT FOR A MINUS DEC 1 | - 
0091 3C OE 016A 99 MV BOOT+1,X*0E* SET UP TO READ 14TH RECORD 
0095 CO 81 0169 100 m BE g00T JuMP IF RESULT CORRECT | ; 
0099 FO 7C 6F 102 HLT? HPL HOHE @ WRONG RESULT | {> 
103 : @ FAILING FUNCT 124 
OO9C FO 7C 6F 105 HLT6 HPL HOHE * CR WRONG 1 ¢: 
106 . @ FAILING FUNCT 2 \ 
OQO9F FO TC 6F 108 HLT9 HPL HOHE * PAD NOT ALTERED BY FIRST SZ 
103 © @ FAILING FUNCT 3 €. 
ooa2 021 QOA2 11} XOl oc XL1°D1® \ 
00A3 09 OOA3 112 x09 oc XL1i'D9¢ | 
OOAS F2 OOA& 113 XF2 oc *F2 i C: 
OOA5 €3 OOAS 114 KF3 oc XL 1°F3* ial 
OOAG COFGF TFOFSFSFSF2 OOAE 142 DATA oC DL9*987654321° i 
0004 116 PSR EQU _«K068 oe 
OFF ie PAD €Qu 237 te 
169 eoor £QU x?169* { 
core 23 mb Eau rere = iC 
FEFE i39 END | © 
re 
ie 
OaTE 9aUuGTS PR 10 0E9-0l ~ . DATE 29AUGT5 PR 30 G£&0~-0 
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| 1 
| 
> 
© 
| 








18M MAINTENANCE DIAGNOSTIC PROGRAM 


OE00 


THE CHARACTER ~ 

CL 1 THROUGH 26 
*6BK° GBD’ PN’ 42 
Te~" saG12aY—-" FU 
T+-a58 C* Fats C 
T+" B>1-D° ©“RAHTT 


EWnt SETHE“DC “PHS 





ot 


DATE QAUGT 
EC NO. 527866 





5 


CPU AND MEMORY OIAGNOSTICS: 


CL 17 THROUGH 32 


48200 EC" 827804" 
"#00°° ta VOHHIEH 
#°Fe2-610-Faae C 
2° 182" KG” ce "Hp 


=“7MEF) oC 


AS AS TS AES KOS YS LEED LP OEP AY LS 


PROGRAK EO 


M00 12 


OBJECT CARD LISTING 


PAR 
PAG 


INDICATES A BLANK COLUMN AND THE CHARACTERS 0 E ReINOICATE NUMERIC SHIFT. 


CL 33 THROUGH 48 CL “9 THRCUGH 64 CL 65 THROUGH 80 


CPU" AND’ MEMORY T 
BGT7Q ("2 ser C 


®C" o° mCaA-—" #08 


ESTS MOD 22 
©" FL2SAG2 —£°5-C 


>CE~' "0B>0HD E=A 


2°-a'4ec"! BSAEZB A OX0~F"0-F 80-58 
eee asc’ oR A so. eeseooes ences 





84aa8saa 

“QHD +7AdS"AaS™A 
@$331 {a6 c* A. 
367632477 * 2P 4a". 


12010630750 


LAST PAGE sem rnc een nnne 


PROS 10 
PAGE 


t 
t 


t 


TNO. 4248201 
E 31 


1 


| 


CL 82 THROUGH 96 


| 0£000000 
$06 ~LYOE000001 
2A80 98Z0E000002 


1° °°" s9yo0E000003 


828751 QU0E000004 





OEO=-0 
31 


— 


- - 1BM MAINTENANCE DIAGNOSTIC PROGRAM 


OE10 


‘ 


© 


©” gece 
f*:- 

Nee 

© 

c 

C: 

C, 0000 
0003 
x 0009 
; 0ooD 
* C013 
0017 
f—- 6010 
: 0020 
_ 0026 
‘9029 
a 

%s 002C 
C”ogoak 
O 

Cc 

con 

Wei 

‘e 

Cc 

\ pat 

EC NO. 

C. 

a 

C: 

C 

C 


C: 


03 


OOFF 00D2 
coos 

30FF OODD 
9032 

GOFF OODD 
oc 


OOFF 0002 
06 


03 
03 


03 


527864" 


CPU ANO MEMORY DIAGNOSTICS: 
ERR LOC CBJECT CODE 


AOOR STMT 


Wad La 0a) ed Und Cd Ua) ID PU PO RRUINIRD POROARII IID Pm bet Be ee feet ee et en fn fe 
Bases BSNS R SUN HO OONE UP UUNEHOOOVO SUNK OOO WOUSUIN 





PROGRAM E1 


AGO 12 


SOURCE STATEMENT 

DECK & 
SEQ. QO 

UVWXY2Z sn ant 0 
REP 


* SECTOR 16 
SSLSSSEKS DLE SSESSRESSSSSSSTESHHTSRSTSSSSSSSSSHASISACESLSSKES SESLGSHSSSLSRE 


FS4298 
#43228 
$3tSee 
224433 
s8sese 
BzeIHVS 
*ESS3R 
SEBLAG 
eSeGaS 
S&SLESG 
SIGKBE 
BsSERD 


SRKASHEEEESLISSELSLESESSSSSSASS FHSS SIS SSE SSVKE SHCSSESELSSIVES SVS STIVOTLE SKATE 


HALT 


HALT2 
* 
* 
2 
HALTS 
* 
e 
* 
HALTS 
e 
* 


HPL 


MYC 
L 
ED 
BH 


cic 
JE 
cic 
JE 
HPL 


HPL 


HPL 


TEST 


H1,HE 


PADi2)»X2020 
LO.FSR 
PAD(2).XE1FO 
START2 
PAD( 2) »XE1FO 


PAD(2},X2020 
HALTS” 


H1,HE 
W1 HE 


H1 HE 


ADB 


INTERMAL 


ecoeeeeeeseneeeeseeneeeeeesneeeseserne 


642206 
€1 09320 
seesee 
$040t¢ 


SkEREB 


SEEKS 
dete 
S*OSS3 
SEEKS 
BeSdSe 
#e6¢2%8 
SHKSLE 


INITIAL HALT = EL 


SET PAD (LOC OOFE & OCOFF) TO -2020- 
SEY ?SR (CRI TO LOW CONDITION. 

EDIT XELFO. RESULT SHUD BE -FIFO-- 
GO TO NEXT If CR SET TO HI 


* GO TO HALT3 IF RESULT 
2 WAS -FLFO-. 


GO TO MALTS IF RESULT 
WAS -2020-. 


: PROG Ele HALT 4 


ERROR HALT. 
FAILING FUNCT o5) 


30405 


. PROG Els HALT 


3e ERROR MALT. 
FAILING FUNCT 194) 


ERROR HALT. 


® PROG El, HALT 4. 
2 : (356) 


FAILING FUNCT 


PROG 10 
PAGE 





0E1-0 
SRA 


ae ne tm RMI SS NED 








PART NO. 4248201 - . PART NO. 4248201 
IBM MAINTENANCE DIAGNOSTIC PROGRAN paRT 0 2 29 : IBM MAINTENANCE DIAGNOSTIC PROGRAM een soi 
OELO CPU AND MEMORY DIAGNOSTICS: PROGRAM E2 MOD 12 _ QE10 CPU AND MEMORY OIAGNOSTICS: PROGRAM £1 MOD 12 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT * ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
, 50 FOEENEESEEEEEEEESEEEESEEEESEEDEEEEEEECTERESESSHESERESESRERESERES SEES EES 107 EREENEEEEOSCEEEEESEEEESESEEESDSSEERESESETSOESEESES SEEESSEOSEES SESS OS SES 
23 Saeeee eEkShR C 108 *2*4e8¢ $O3449 
52 eeeeece Test CL} B REG 20 » REPPLE TEST . eaeeee ; 109 #¢eee% TEST th) CONDITION REGISTER (FIRST EA CYCLE)  %88988 
53 *eeees SECKES 110 **4s¢% 2 ALU CONTROL seteee 
54 SECEERECRER RGREEEEE SESS EEEEESEE SE OOF EREEEEE TIE SESESERESE SEEHSECES KEES E LLL oeeeee 3} EA CYCLE ACTIVE cceese 
: +24 =. 
2? tig CESRERSEEEESREEESSEEESSEEEEEEEESEEEEESDEEDEESEESSESESESESESESS SES ESSESS 
O 03s Oe 8k Sore OODD 27 START2 Bye PAO ST RELES Serr aero ene | iis 
O03E OD OF OOFF 0002 29 gic PABEH ¢x2020 GO 10 HALTS If RESULT o 0096 35 04 0005 Lig STARTS L HI,PSR SET PSR (CR) TO HIGH CONDITION. 
61 = 009A OC 01 OOFF O0D2 118 MVC PAD,X2020(2) SET PAD (LOC OOFE & OOFF! TO -2020~. 
0047 OC 04 OOFF OODS 62 MVC =>PADePATTRN(5) SET PAD (LOC OOFB THRU OOFF! 119 
nike Oited ORES OGD: 63 * ve ponoee cas eee Forte OO ay ane we APVERED Pe OOAO OA O1 OOFF OOCE 120 ED PAD, XDSF1(2) EDIT XOSFL. RESULT SHUO BE ~FSFI-. 
oe33 P2 bi os EBe ARSFRTHRhss ER Fo MAL HESTNVerBbovNge"atteneo | O0Ne F2 06 24 i Se eee 
; 67 - ee OCAS OD OL OOFF O0DG 124 CLC PAD,XFSFL(2) GO TO HALTS IF RESULT IS NOT -F5Fi- 
OOSC FO TC 03 68 HALTS HPL HileHE © PROG Els HALT Se ERROR HALT. Ne OOAF F2 01 1S 125 JNE HALTS 
69 * @® FALLING FUNCT ¢f 126 
79 - OOBZ2 3C DO OOFF ie? MVE PAD,X*DO® SET PAD TO MINUS ZERO 
70 ce, 0086 OA 00 OOFF 0000 129. ED PAD, XESFLEL) EDIT -Fi-- CR SHUD BE HIGH. 
7l SESERSSEAESSRAETERESESEESSESESSEEREESESRETSEES SESSSSELSSLESLI LESSEE SE SEKES 130 
72 Seeeee $eee8% OOBC F2 82 08 131 JL HALTS GO HALT 1€ CR WAS SET TO LOW. 
73 #ee¢et TEST (Lt siGn CONTROL seeees 132 - 
74 Others 2 ONOITION REG SHEEEE QOBF 3C OF O16A 133 MVI BOOT+1,X*OF® SET UP TO READ 15TH SECTOR 
75 ¢eeset S$eaes 00C3 CO B87 6169 134 B BOOT GO TO BOOTSTRAP. 
76 SECKSESTRESREKESSESSESESSHESESERESSRERSEEEEESS RESET EE ESRERSE SEES SSERE SEE 335 . 
TT C OOCT FO TC 03 136 HALTS HPL HiesHE | * PROG El» HALT Se ERROR HALT~ 
78 - 137 ¢ * FAILING FUNCT 2 
OOSF 3C 20 OOFF a9 START3 MVE PADeX*20° SEY PAD (LOC OOFF! Ta -20-. 138 
panes 0063 35 04 0005 81 t HI,PSR SET PSR (CRE TO HIGH CONDITION. : é= Ooch FO 7C 03 146 HALTS HPL HIL,HE * PROG Ele HALT 9- ERROR HALT a kmeg tee od Se 
82 os 141) % * FAILING FUNCT led .- 
0067 OA OO OOFF 00D4 83 EDITL EO PAD(12 XBL EDIT XBie RESULT SHUD BE -Fl-. ee * 
0060 F2 02 23 85 JNL HALT? GO TO HALT6 IF CR NOT SET TO LOK. 900 OSFL GOCE 144 XD5F1 oc XL 2 O5E | 
86 OOCF F5F1 0000 145 Xf5FL O XL2¢*F5F1° 
0070 3D Fi OOFF aT CLI PAD,X*F1* GO TO HALT? IF EDITE OIC 0ODL 2026 00D2 146 x2020 OC xL2*2020¢ 
0074 F2 OL 19. 88 JNE HALT6 NOT SET PAD TO -Fi-- 0003 OL 0003 147 x01 OC XLI*'OL® 
89 . 0004 §i 0004 148 X81 pC XL1*81° 
0077 3C 20 OOFF 90 MVE PAD X*208 SET PAD (LOC OOFF! TO -20-- 0005 2624222100 0009 149 PATTRN DC XLS" 2824222100! 
91 OODA FF OODA 150 XEF Oc XLL‘'FFS 
0078 35 04 0005 92 bt HI»PSR SET PSR {CRI TO HIGH CONDITION. 000B 02 OODK 151 LO oc XL1°02° 
93 C: oonc ELFO OODD 152 XELFO OC XL2°*ELFO 
OO7TF OA OO OOFF 0003 94 EDIT2 ED PAD(1L}eXD1 EDIT XDle RESULT SHUD BE -Fi-. A 0003 153 Hi eQu x93" - 
0085 F2 02 O86 96 JNL HALT? GO TO HALT? L€ CR NOT SET TO LOW. 0169 155 BOOT EQU X* 169° 
97 C OOFF i156 PAD EQU 255 
0088 30 Fl OOFF 98 CLI PAD XFFLE GO tO HALTS IF EDIT2 DID “ 0004 i157 PSR EQU X'04? 
008C CO Bt 0096 mH BE STARTS NOT SET PAD TO -Fi-. 0005 158 HI EQU K*OS5* 
0090 FO 76 03 1Ol HALTG WPL H1eHE ® PROG Ele HALT 6s ERROR HALT. cc FFFE 160 ENO 
102 s @ FAILING FUNCT L ov 
0093 FO 7C 03 104 HALT? HPL HleHE @ PROG Ele HALT Ye ERROR HALT. 
105 # ® FAILING FUNCT 2 C: 
DATE 29AUGT5 PROG 10 OE ¢ DATE QauGTs PROG 10 OE}- 
EC ND. 827804 PAGE 33 EC NOw B27 86s pace 528 
| 
Cc 
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PART NQe 4248201 T NO. 
PART NOs 29 IBM MAINTENANCE OZAGNOSTIC PROGRAM PART NO. 4248201 
0E10 CPU AND MEMORY DIAGNOSTICS: PROGRAM EL MOD 12 _ OE10 CPU AND MEMORY DIAGNOSTICS: PROGRAM EL oD 12 
. CROSS-REFERENCE A OBJECT CARD LISTING 
SYMBOL T LEN VALUE OEFN REFERENCES 
Sane) eobei 1ekae Cee posta ane THE CHARACTER ~ INDICATES A BLANK COLUMN AND THE CHARACTERS D E A INDICATE NUMERIC SHIFT. 
EDIT] A 006 0067 0083 CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 6% CL 65 THROUGH 80 CL 81 THROUGH 96 
EDIT2 & 006 COTE 909% 
HALTS & O02 Boss OnSe mene 
HALTS) A 003 002C 0042 0033 “GBK"GBD"""PN"42 48200°EC 827804" CPUAND’MENORY’T ESTS°°°°°° MOD’ 12 B4aa8saa °° °°“ QE, QG000 
HALTS A 003 Ooce Bees poz8 
HALT6 A 003 0096 0102 0088 Te=":aGOCC D°"OC KLEE GOYA 1a°7#8 O°CHE’ECe"(72-£0 C7609" (.2-6802°1 0." 105° <<" 8c@ "tn Ae’ $8°0£100001 
HALE £883 E832 Bigs Gee cose 
HALTS A003 O0CA 0140 0122 0131 >. T#-AS5"0CICED @ KaYONC &°*"OCRB-& “*"OCECSE “ocRaYD “"asmD mM Ace (Lo sce "2-D° 
He é ber Bere B18 8032 8434 042 046 0068 0101 0104 0136 o140 € OC ICED” "0c DNC ocRe- OocEces ne a caccels 3M0 C* (L2 S<*aéC "a-D° 33Q0E100002 
fe A OOl O0D8 OFsi Bese 2038 0042 0046 0068 0101 0104 0136 0140 __,. Te-BOFLO-"1a5A°"  EB=""mOCLa-H.1-0 “"apa"1s0~"10~"< sa” "EC ’D"eOcKS-D “ocea-E/CeD’"0C &a-D" BCYOE100003 
vee een core 0136 O08T Bases Boaee OO88 ROPES Q0S8E 8052 g0sze Digos see ooree 0083s . “T.CDEL3E" LARC =" (Ca—zacoEDoHe AFsaa”#Aa” ¢P1 aD H(FiRBesHEc® >G a7 TTT" °°" oer oO00s 
penn’ € BOF ope o139 bosee Gosie 0092* 01168 es : ; cian a : a 
START2 A 606 0032 0057 030 es. nate ee: « =n eee eee e ee eee ese es eee eseeeeceoeeon @a2eese ; 
START2 A 006 0032 0057 9030 ace: E7s=~DC"PHS =MTMEE, Ec FZ ASC’ R°A $0 12010630750 828751H-0E100005 
STARTS A 004 0096 0116 0099 | 
UVWXYZ A 001 0000 0004 i 
XB} A 00l 0004 0148 0083 G 
XDI A 00l 00D3 0147 0094 
XD5Fl & 002 OQOCE 0144 6120 | . 
XELFOD & 002 0000 0152 0028 0032 0058 1 (7% 
. XEF A001 OO0DA 0150 0064 ioe 
XF5Fl A O0O2 OO0DGO 0145 0124 0129 | 
__ X2020 & 002 0002 0146 0024 0035 0057 0059 0118 
TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY © 0 e a a a 
[oe 
Che 
en 
aS 
ec 
bee 
/& 
iG 
C 
Wann nnn nennnn am nmmanmcnwsnmmaeemmmmns LAST PAGE nanan 
DATE 9AUG75 PROG 10 0E1-0 - 
ce mo. 627804 Pace 33) BETho. 824882" | BARE TO OS 
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PART NO- 4248201) IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOo 4248201 
PAGE 34 | PAGE 34A 
OE20 CPU AND MEMORY DIAGNOSTICS: PROGRAM E2 ‘MOD 12 | O£20 CPU AND MEMORY DIAGNOSTICS: PROGRAM E2 MOD 12 
i 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT - ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
K , { OOSF F2 81 03 68 JE HALTT GO TO HALT6 IF_RESULT NOT EQ TO -00- 
3 CFG $ L ; 0062 FO 7C 76 69 HALT6 HPL H2sHE @ PROG E2e HALT 6-6 
‘0000 : UVWXYZ orange Oo. 1 79 : *® FAILING ¢: NCT 4 
* T : ! 12 * 
$ © eeaeeeeneeer cc cect tL EREERERSEOESSCERREESSEREEEESSROESERESSLESESESESES - 0065 FO 7C 76 73 WALT7 HPL H2,HE * PROG E2e HALT Te 
8 #44498 eeeeee, \.. 14 * * FAILING FUNCT (165) 
9 see008 PROG E2 £OSSES, 15 * 
10 #**#*+%% $4442) 16 
1] **eee¢ (ETC) INSERT ANDO TEST CHARACTERS settee c: a Sesanessanesessensssssesscsesessssosascssenessessesesesesse seni eegt Tie, 
eeeee8 eeeeee, > 
13 4EEKEE TEST (1) OP DECODE Steed) 719 %4424% (ITC) INSERT AND TEST CHARACTERS 64eee8 
14 #48948 (2) BIN COMP A REG este! 80 seee¢ setts 
15 **s¢% $4s4e8' c BL +eeeKe TEST (1) SIGN DIGIT 40448 
16 SEASEESRESREEEERECEEERESHESRESEEESSERLESES SES ESEET SSS ENS ESSESHSSOSSFSESS aA 82 eeeeee 2} prs of Sly OIG STUCK DOWN oe ecea 
18 T | se a aacae ' ¢4) ARR SELECT STUCK UP er cece 
8003 ae 66 OOE0 48 weet c Teche ith abana ear | © 6 <5n2sahtReSeSeSSShSESFECEEEESERTESSEEESESESESESSSEFERESSSSESSSESESSS SSS 
8008 3¢ 00 OFS 52 fv PAB, x* 008 SET OSE Te berg ARR 10 00026 88 
OOOF OB OO OOF5 O0E2 23 1Tc PAD(1) yXO0OF4 INSERT & TEST PAD WITH ~F4- o 0068 OC 02 OOFT 0007 89 START3 MVC PAD+2 ,X007(3) SET PAO TO -—QOO00F7— 
0015 34 08 OOFB 24 $T SAVARR,; ARR STGRE THE ARR | . OO6E OB 02 OOFS5 O00DS8 90. ITC PAD, XFE(3) INSERT & TEST PAD WITH ~-FFEE- 
0019 OD OO OOFB OOE2 25 CLC SAVARRI1} yXOOF4 GO TO HALT3 IF ARR WAS ' 0074 34 08 OOFB 91 ST SAVARRe ARR STGRE ARR IW SAVA 
OO1F F2 81 OD 26 JE HALT3 DECREMENTED. i 0078 OD O02 OOFT OODC 92 cCLc PAD4+2 XFFT(3) GO TO ARRCHK IF RESULT WAS 
2838 5 8 8858 O° gi BRE SHRARBONYO COvOOMALYS TE ARR MRE SELECTED: |< —BO4i 38 EF Bare se dir EAB xveee obOYStuatra TFTEEE. as 
ooze FO 7 7 $3 aura np zene w PROG Eze HALT 26 "888 £8 $2 9 Bre th UE avARERTED, TALI Pore 
6 H H e ' : e 
3° ft : * FAILING FUNCT i ies 97 , * FAILING FUNCT (102) 
33 ce 33 
OO2F FO 7C 76 34 HALT3 HPL H2 HE * PROG E2, HALT 3- { 0088 FO 7C 76 100 HALT? HPL H2 HE ® PROG E2e HALT De 
—- = 35 ¢ : * FAILING FUNCT 2 | = 101 # 7 * FAILING FUNCT 3 laa ce eet oe se ees 
ae Lo 7 103 © 
0032 FO 7C 76 38 HALT4 HPL H2 «HE * PROG E2- HALT 4. OO8E 3D F7? OOFB 104 ARRCHK CLI SAVARR K*FT7* GG TO HALTLOIF ARR NOT EQ TO -O0FT- 
23 § ease 8888 FO Fe 98°" 10? WALTIO HPL AeeHE COMO MEE ros 
41 . 107 @ : @ FAILING FUNCT 4 
‘1 | 108 * 
42 pedeeeeeeeCeeeecceaneeesdaceeeseeeceneneseceseeseansaseseeeeseesesssese G 
43 442802 $e603% 
44 £84408 (1TC) INSERT AND TEST CHARACTERS biped 
45 #e4bS8 $4899) C 
46 44448 TEST (1) «SIGNIFICANCE eseeen \...: 
47 #4444 (2) ARR SELECT SECSEE 
48 +848 (3) «CLOCK 6 GOR 8 $4448 
49 #4484 (4) OP DECODE $6446; C 
50 *#4844 (5) SIG OR SIG OIG STUCK UP esests, <.. 
Sl] eeeee8 Seness 
22 SEESESESERESSEESESEEESEEESEES$6004490468858ESE6ESESESSSSEESESTESSSESESSE SE 
0035 3C 00 00 55 START2 MVI PAD,X*00* SET PAD TO -00- 
0039 35 08 0004 56 t KIBFEF ARR LOAD ARR WITH -1BFF- 
003D 0B 00 OOFS 00D2 57 1¥c PAD(LS  XFF INSERT & TEST PAD WITH -FF- : C 
0043 34 08 OOFB 58 et SAVARR, ARR STORE THE ARR : 
0047 3D FF OOFS 59 ul PAD, X*FF® GO TO PAOCHK IF RESULT NOT 
004B F2 01 OD 60 JNE PADCHK EQUAL TO -FF- 
CO4E OD 0O OOFB OODE 61 cic SAVARR( 1). XO0FE6 GO TO HALTS IF ARR gt SET TO -OOFE- =~. 
0054 CO 81 0068 62 BE STARTS GO TO NEXT IF ARR IS SEF TO -O0F6- Ne 
0058 FO 7C 76 63 HALTS HPL H2 eHE * PROG E2, HALT 5- 
64 * @ FAILING FUNCT (2te ¢3) 
oe 8 : c: 
0058 30 00 OOFS 67 PAOCHK CLI PAD,X*00* GO TO HALT? IF RESULT EQ 70 -00- 
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THE CHARACTER — 

CL 1 THROUGH 16 
*GBK’ GBD PN 42 
Te" :aG16(6- BCH 
Te-A5 (bs C5 CH 
T4-80 12¢°-C7 (3 
T<ECS "Aa)-4D LU 


Ewe ee 7 e=aDCMPHS 


0 EP AP IP Ae Pe OY 


DATE 29AUGT5 
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PROGRAM E2 


MOD 12 


OBJECT CARD LISTING 


Ct 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 


48200 EC’ 827806 
p’+'a C5B0 *6C 
4b C#|7a *HACES 
2-64 #-CoaY0CaGl 
"4L0& 0, —&E2aG1 


=" 7MeF | i Cc 


Cpu AND MEMORY T 
$(°-"=04° "12 87H 
"12° 728A FTO~GO 
6aGi6I~* =aBA IX 
6 1X0 a?tcnmnAee 
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ESTS MoD 12 
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«° *c5avDCaG16aG1 
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9912" CTMxgNANS 


eee eeoeooevocesne 


so 


CL 65 THROUGH 80 


84008400 
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6CH *OCPBOH "EC 
5° (H4B C#CE =0C 
wee 


12010630750 
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co, 3 
Me 0030 4 
5 
6 
C 7 
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om 15 
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aa 19 
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Oo 33 
wl 23. 
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c: oooo FO 7C 57 26 
ae 27 
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29 
: 0003 35 01 OODC 30 
‘ 0007 35 08 OODC 31 
0008 OC 02 O112 0039 a5 
- 0011 DO 80 FE 38 
36 
0014 34 08 OOFF 37 
7 0018 OC 02 0112 OOES a3 
OO1E OD O1 OOFF OOE2 40 
i 0024 CO 81 OO3A res 
: 0028 OD 01 OOFF oooc 43 
QO2E F2 81 03 a4 
45 
f £6 
s 0031 FO 7C 57 4 
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0034 FO 7C 57 52 
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0037 FO 7 5ST 56 
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ADDR STMT 


em 


PROGRAM €3 


PAR 
PAG 


T NO. 4248 
E 


wr 
oo 
pe 


MOD 12 
SOURCE STATEMENT 

DECK & 

SE 0 
UVWXYZ START 0 

TREP 
* SECTOR 16 
* pecesscasessseccetceenassenansecscsessecsensessesesessee senses ee es 
¥EKSES SHRECE 
#6498 PROG E3 +oeeee 
£6498 INDEXING TESTS $44B84 
SEEERE $46EK8 
¥44SE TESTS (1) ARR SELECT $8E448 
4444S (2) FORCE BIT 7 TOA &eeeee 
St4SSE ¢3) LSR LO EQUAL TO ALL ONES Stetet 
++0eSB (4) CARRY CONTROLS— CARRY FROM 3-4 Lost #%KSE8 
SSS48E (5) BIN COMP & BIN SUB £4EEt 
SERSES (6} XR1 SELECT SS88S 
SESEBS (7) CLOCK 3-7 eeeees 
&4E4ER (8) CLOCK 4¢+8 Seeees 
$EEECE (9) INTERNAL e4OC8E 
*46442 Senece 
tEESS  eeaeaccsasecensseeesseresaceseeessessessessess ssees ee seeeeees 


HALTL 
* 
* 


LOAD 


CHECK} 


& 


7 HALT2 
* 


HALTS 
s 
s 
HALT4 


USING HALT1Lel 


cree ANAL LN 


HPL H3eHE INITIAL HALT =_E3 
: @ FAILING FUNCT (7) 
L X¥0001eXR1 LOAD XR1 & ARR WITH -O001-. 
L XO001,ARR 
NVC xX OLS pHALT4#2(3) MOVE HALT4 TO LOC -0110 THRU 0112-. 
BC K*FE* ()XRLD»NOOP BRANCH NO-OP. THE ARR SHOULD NOW 
CONTAIN —OOFF—- : 
ST PAD, ARR STORE THE ARR IN LOC -OOFE & OOFF-. 
RVC 0 X*®OL12" FF IXLDIS) FIX LOADER 
CLC PADL 2) e XOOFF COMPARE THE STORED_ARR WITH -OOFF- & 
BE  START2 GO TO NEXT TEST IF EQUALS 
CLC  PADL2)»X0001 © COMPARE THE STORED ARR WITH -O001- 
j— HALTS * E£ CG TO HALTS IF EQUALS 
* €G TO HALT2 IF NOT EQUAL. 
HPL OH © PROG E3, HALT 2- ExROR HALT 
NOE e EAILING FUNCT @ TF ARR= O1FF 
@ FAILING FUNCT S IF ARR= OLFE 
HPL H3-eHE © PROG E3- HALT 36. ERROR HALTo 
* FAILING FUNCT (1)_ (9) 
HPL  H3eHE ® PROG E3, HILT 4 ERROR HALT. 
S FAILING FuntY (293) 
PROG ID 0€3-0 
PAGE 360A 
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: PAGE Tv PAGE 37A 
O0E30 CPU ANO MEMORY OIAGNOSTICS: PROGRAM E3 MOD 12 0E30 CPU AND MEMORY OZAGNOSTICS: PROGRAM €3 MOD 12 
ERR LOC OBJECT Code ADOR STMT SOURCE STATEMENT . ERR LOC CBYECT CODE ADOR STMT SOURCE STATEMENT 
60 cern te tttFOFSSt SOSSESSS EES ESSSETESEONEEELELCEREREREDESEERESEERES 103 sacaea eettseeseseeseresessesesecessesesssseeesseceetessecesoseessees. 
61 See242 INDEXING TESTS areees C 104 see¢02 INDEXING TESTS eteeu8 
eS sasses 2 SELECT ceseee. locceeseee TEST 1) LSR LO = FE seseee 
S554RR TEST XR XR 7 
2 REARS ES 3} See x é E eteese 107 teee¢ {3} LSR WRITE HI AT I-x CLOCK 2. adintptiedednd 
65 ekeeee (3) CARRY CONTROLS~ CARRY FORCED aT 7-8 s32¢26 C 108 *ee202 (33 GATE LSR HI TG B AT I-X CLOCK 2. SESR42 
66 +e4enn8 eeeeeq 109 ##e288 (4) FORCE BIT 7 70 A. Setens 
67 CESSENSSESERESRRSS SED SSSESERERSSS NE SHESREERESE EERE EOSASTEERSEOOSESEEoke 110 *ese2¢ (5) SEL XR2 GATE Stones 
68 lll] *ese8¢ (6) INTERNAL *te2s% 
$3 GAO XRL & ARR WITH ~OOOA & 144 seeces . sscece 
ose 32 83 OOF. 0 Syaete t sooca rane . : 114 COSSEERSSSSESE SSE OS OSES SE SAS SSNS R ERSTE SESESES RENNES ONSSERESEERERENIO Re 
0042 35 02 OODE ig L X0005 sXR2 LOAD XR2 WITH -0005-. we +22 
714% : COS6E 35 01 OODA 117 LOADL & X0000.XR1 LOAD xR1 WITH ~0000-. 
0046 £0 80 FF 75 SRNCH1 6C X*FF¢(,XR2) NCOP : INDEXED BRANCH NO-OP. THE ARR 118 ‘. 
78 = SHOULD NOR CONTAIN -0104-. ae 0072 35 02 OOED 123 t X0019eXR2 LOAD XRZ WITH -O019—. 
0049 34 08 OOFF 78 ST PAD, ARR STORE THE ARR IN LOC -OOFE & OOFF-. { . 0076 CC O02 O2FF OO09E 121 MOVE MVC) 8 =—s- X*O2 FF* , BRANCH*2(3) MOVE THE INDEXED UNCONDITIONAL 
73 ; 122 & BRANCH TO LOC -O2FO THRU O2FF-. 
0040 OD 01 OOFF OOE4 80 CLC PAD, X0104(2) COMPARE THE STORED ARR WITH -0104-. 123 
0053 CO 81 OO6E 81 BE LOAD} GO TO NEXT TEST IF EQUAL. ; C OO7C CO 8&7 O2FD 124 8 X*O2FD* GO_TO LOC —O2FD-. THE INDEXED BRANCH 
82 i : 125 *% AT LCC -O2FD— wILL SRANCH BA Ta 
0057 3D OE OOFF 83 CLI PAD, X*OE? * COMPARE STORED ARR LO WITH -OE-. | 12% & THE NEXT INSTRUCTION (STORE 
C058 F2 Ol 03 84 JHE  HALT543 * GG TO HALTS TE couse. 127 
ss ¢ * BYPASS HALTS IF NOT EQUAL. fe, 0080.34 O8 OOFEF 128 STGRE ST PADs ARR STORE THE ARR {OLO 1AR) IN 
86 «SS 129 ¢ LOC ~OOFE & OOFF-. 
OOSE FO 7C 57 87 HALTS HPL H3,HE * PROG £3. HALT 5. ERROR HALT. 130 
88 *% * FAILING FUNCT 1 0084 30 03 OOFE 131 Cur PAD-1,X*03* COMPARE STORED ARR HI WITH -03~-. 
: be * .* 0088 CO 81 OO9F tae BE LOAD2 GO TO NEXT TESY IF EQUAL. 
0061 30 09 OOFF 91 cul PAD, xX*09# * COMPARE STORED ARR LO WITH -09-. - 0O8C 3D O02 OOFE 134 CLI PAD-1,X*02° * COMPARE STORED ARR HI WITH -02-. 
0065 F2 O01 03 92 JNE HALT? * GO TO HALT6 IF EQUAL. 0090 F2 O1 03 135 JNE HALTS * GO TO HALTS IF EQUAL. 
SE ee: anes a? * * GO TO HALT? IF NOT EQUAL G i26 * * GO TO HALTS IF NOT QUAL rere, 
0068 FO 7C 57 95 HALT6 HPL H3 » HE * PROG E3, HALT 6. ERRGR HALT. 0093 FO 7C 57 138 HALTS HPL H3 HE * PROG £3, HALT 8. ERROR WALT. 
36 : * FAILING FUNCT (1,2) as +23 : * FAILING FUNCT (10294) 
98 Ke 14) 
0068 FO 7C 57 99 HALTT HPL H3 e HE * PROG £3, HALT 7. ERROR HALT. 0096 FO 7C 57 142 HALTS HPL H3,HE * PROG £3, HALT 9. ener HALT. 
100 « * FAILING FUNCT 3 143 2 * FAILING FUNCT 3 WITH ARR=0100 
101 ng? ioe: e 
0099 FO TC 57 146 HALT10 HPL H3 HE * PROG £3, Cabs 10. GRROR pat 
147 2 : ® FAILING FUNCT (5), (6 
C re 
0O9C 00 87 80 150 BRANCH B STGRE( .XR13 INDEXED UNCONDITIONAL BRANCH. 
i © 
ne 
Ci 
C. 
i 
PROG 10 OE3-0 «= DATE 29AUGT5 PROG ID 3- 
PAGE 37 €C NO. 827806 PAGE es 
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PAGE 38 «AB INTENANCE DIAG I OG! PAGE SBA 
O£€30 CPU AND MEMORY DIAGNOSTICS: PROGRAM E3 MOD 12 _ 0€30 CPU AND MEMORY DIAGNOSTICS: PROGRAM E3 MOD 12 3 
ERR LOC OBJECT CODE ADOR STMT SGURCE STATEMENT CROSS-REFERENCE 
152 SEECLEERESSETESES SESS ELSES SSS ESET IRS S SN ETTTE SE SENSES HSS SE TTT ST SHS 2 ee ees SYMBOL T LEN VALUE OEFN REFERENCES 
* 5 
154 #8044 INDEXING TESTS Steeee ARR C 001 0008 0207 0031 0037 OO70*# 0076 01268 O171 0180 
155 ¢*ee2¢ SEXES soot C 001 0169 0210 0183 0184 
156 *#+448 TESTS qh) RIPPLE THE LSR LO = FF LOGIC. SeEEES BRANCH A 003 O009C 0150 0221 
2f eceues rppbeded Plaats ; 003 one 0075 0163 
159 SFSSKKESEESESESREESRSSESESESKSKKESESAERSEEKESESEESESESEAKESKEKE TALE SEE SES SEL ESS eR NeHS A p83 goes 813? 6 
160 CHECK] A 006 OO1E 0040 
169 «RARER 2 003 G008 0026 © Ooze 
OO9SF 35 01 OODA 261 LOAD2 L X0000 »XR?i LOAD XR1 & XR2 WITH -0000-. HALT1O A 003 0099 0146 
GOA3 35 OQ2 OODA 162 t X00005XR2 HALT11 A 003 OODO 0187 0174 
COAT OC 05 OOFD 0008 163 MOVEi MVC X*OOFD* (6) ,BRNCH24¢2 MOVE BRNCH3 € BRNCH2 TO LOC : HALT2 A 003 0031 O047 
164 * ~OOF8 THRU OOFD-. : HALT3 A 003 0034 0052 00 
165 c HALT4 A 003 0037 0056 0032 
OOAD CO 87 OOFS 166 8 X*F8* GO TO BRNCH3 AT LOC -OOFE-. HALTS A 003 OO5E 0087 0084 
167 “ HALT6 A 003 0068 0095 
168 # BRNCH3 WILL BRANCH BACK TO STGREL HALT? A 003 0068 0099 0092 
169 * (NEXT INSTRUCTION). HALTS A 003 0093 0138 . 
170 ‘ HALT9 A 003 0096 0142 0135 
0081 34 08 OOFF 171 STORE] ST PADs ARR STORE THE ARR IN LOC -OOFE & OOFF-- | - HE € 001 oOo7TC O212 0026 0047 0052 0056 0087 0095 0099 0138 0142 0146 0187 
172 3 C 003 0057 0211 0026 047 0052 0056 0087 0095 0099 0138 O42 0146 0187 
0085 3D O1 OOFE 173 CLI PAD-1,X*0O1° COMPARE STORED ARR HI WITH -Oi-- LOAD A 004 0003 0030 
0089 F2 81 14 174 JE HALTI2 QO TQ HALT 11 IF ARR HI = -Ol-. ! LOAD! A 004 OO6E O117 oosi 
OoBC CO 87 OOFB te? B xX*FBt GO TO BRNCH2 IF ARR HI NOT = -Ol-. f coeee - pee OOTE Sa et 0132 
177 * BRNCH2 WILL BRANCH BACK TO STORE2 MOVEL A 006 OOAT 0163 
179 . ee eee PAD. E O01 OOFF 0309 ooats S040 0043 0078* 0080 0083 OO91 01284 0131 0134 01716 0173 
OOCO 346 08 OOFF ee STORE2 ST PAD .ARR STORE THE ARR IN LOC -OOFE & OOFF-. a Seana ACOOe OO “BOTS o18oe 0182 
Q0C4 30 O1 OOFE 182 CLI PAD-1,X*O1! COMPARE STORED ARR HI WITH -Ol-. STORE A 00& OO080 0128 0150 
aes aa Oo0csg 3C 11 O16A 183 MVI BOOT+1,X*L1i* SET UP TO READ L7TH SECTOR _ = STOREL A 004 OO0B1 O172 0191 sta tecee 
ooce Co Of 0169 184 BNE BOOT GO TO BOOTSTRAP IF ARR_HI NOT -Ol—e. STORE2 A 004 OOCO 0180 0193 
185 # GO TO HALT 11 IF ARR EQ -Ol-. ! UVHXYZ A 0G) 0000 0004 
186 XR1 € 001 0001 9205 0030 0034 0071% 0117% 0150 0161% 0191 0193 
ooDpo FO 7C 57 187 HALT11 HPL H3,HE * PROG E3, HALT Ll. ERROR HALT. XR2 C 0Q1 0002 0206 6072* 0075 0119 0162% 
188 * * FAILING FUNCT 1 XOOFF A QO2 OQOE2 0200 0040 
169 ®# XOOOA A 002 OQOE6 0202 0070 0071 
190 x0000 A *N02 OODA 0196 O117. O161 02162 
0003 DO 87 Bl 191 BRNCHS B STOREL(eXR1) INDEXED BRANCH - X000l A vO2 OODE 0197 0030 0031 0043 
192 : x6005 A 002 OODE 0198 0072 
0006 00 87 CO 193 BRNCH2 B STORE2(,XR1) INDEXED BRANCH x0019 A 002 OOEO 0199 0119 
138 X0104 A 002 COE4 O201 0080 : 
. 0009 O000 QODA 196 x0000 OC Xt 2*O0000* TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 
0008 0001 oopc 197 x0001 OC XL2*0001° 
ooDD 0005 GODE 198 x0005 DC XL2*0005° 
OODF 0019 OOEQ 199 x0019 OC xL2'0019' C 
OOE1 OOFF QOE2 200 XOOFF OC XL2°OOFF® < 
OOE3 0104 OOE& 201 X0104 OC XL2*01048 
OOES QOOA OOE6 202 XOOQ0A OC XL2*QO00A! . 
OOE7 OCO00) OOES oon FIXLD OC xL3*0C0001° ‘ C. 
0001 205 XR1 EQU x*o1e 
0002 206 XR2 EQU x*O2° ; 
0008 207 ARR EQU x*08* huge 
008G 208 NOOP EQU X*80* a 
OOFF 209 PAOD EQU X'FFe ' 
0169 210 800T EQU K*169° 
0057 211 H3 EQU x*578 i 
oo7c gig HE EQU K*7C¢ -E- to ERS 
FFFF 214 END 
te 
DATE 29AUG75 Proce 1D O€3-0 ° OATE 29AUG75 PROG 10 OE 3-0 
EC NOw 827804 PAGE 38 EC NOew 827804 PAGE 3BA 
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PAGE 39 PAGE 39 
0E30 CPU AND MEMORY DIAGNOSTICS: PROGRAM E3 MUD 12 OE40 CPU AND MEMORY DIAGNOSTICS: PROGRAM E4 MOO 12 
GBJECT CARD LISTING ERR LOC OBJECT CODE ADOR STMT SCURCE STATEMENT 
° | 2 DECK & 
THE CHARACTER INDICATES & BLANK COLUMN AND THE CHARACTERS BD E A INDICATE NUMERIC SHIFT. Le ean 2 ieee SEQ. 9 
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH %8 CL 49 THROUGH 64 CL 65 THRGUGH 80 CL 81 THROUGH 96, 5 TREP <ceTOk 
f g saeececseseensssesceeeseenaasenssesensseneseaseseeseetesesaeaensesseree 
e e oe0o 2 oe 2 a e ° e @eeeed¢s a eaeoeencoet @oo2eeceo oe 3 SEGRKS * 
GBK G8D. PN 42 48200 EC 827804 CPU AND MEMORY T ESTS MOD 12 84828422 0£300000: 9 #39e%9 PROG E4 CHERSES 
10 *#ese¢ INDEXING TESTS Seeeee 
s ° ° oe ® o ° 2 e = a e ® | f> 11 42339 SOK34%E 
Te-":aGIP(ED 70M H (O< DK CXE-48 4B C™C HAD-CZCED OCSOHD 4-4 fa TIAA *ABN®hANSA = BN3M J220E300001' * be acct? TESTS ia) RIPPLE THE LSR LO = FF LOGIC. aetece 
e e ° ° ° . 2 e «© ° ce 14 BSSERKGLALRRSSSERSSOLAKSTS FHSHSTRSERSSSSERKIRES SOE SLESSKSSESSSES STG SHSHKERS 
T+-ASB CWLED 91M B (#1048 C™CED  “GCUOHD $T4¢ 1" Z EFOnER*BECMa-D CAGLPAGIPCED 6™ B+ ~CYOE3000G2 ~~ 15 
bok 15 
© e 2 @ e @ ry s e e a e e i 00 60 i 6 u ® HA T 
T¢-BOC HB"OB;30H* BRFLEH Ja? OC=CHO X34B 1#2 EJOVE* OnESO~E-E/6 5 EC Et6H 6-0EF 14 6<B G [- =EHCE30C003 0000 17 eine eran ts 
[Pe 18 
oo @ > = es e eo * s e@eceo 2 s oe ee ee *eoee I 7 5 > 
Te°CLU- 3GA 18 2-JL OCH =" "34 A” 18aDEEDO DAE=A ali" BGZ!8G0 D “AE R’ {aAA FAC’ ” «A Ma@HOE3000046: ORR ER Heke PRET MEE. ON eSIE INTTIAL BALE SSeS 
a 0003 35 61 OOCD Zi toad oL XOC00.XR1 LOAD XR1 WITH -0000-. 
ENMIRETHEADCMPHS = TMEFL i Cc Fa ASC RA SC Q 120106307506 828751¥-0E300005. Q00O7 Of 02 GOFD 0036 23 HOYEL MVC X°QOFD*(3),BRNCH142 MOVE S8RNCH1 TO LOC -OOFB THRU OOFD~ 
000D F2 87 EB 25 3 X' EB? GO YO BRACHL AT LOC -O0OFB-. 
on 27 2 BRNCH1 WILL BRANCH BACK TO STORE} 
28 * AT LOC -G010-. (NEXT INSTRUCTION) 
0010 34 08 OOFE 30 STOREL ST PADSARR STORE THE ARR IN LOC -OOFE & OOFF-. 
0014 3D 01 OOFE 32 cut PAD-1,X"0O1* COMPARE STORED ARR HI WITH -Ol-. 
a4: 0018 F2 81 16 33 JE HALT2 GO TO HALT2 IF ARR HI = -Ol-. 
ao CO1B OC 02 CODF 0039 35 MOVE2 MVC X*OODF°(3),B8RNCH2+2 MOVE BRNCH2 TC LOC -OODB THRU OODF-. See eT 
0021 CO 87 OODD 37 8 x' 0D? GO TG BRNCH2 AT LOC -O00D0-. 
Le av 
1h 39 2 BRNCH2 WILL BRANCH BACK TO STORE2 
“0 * AT LOC -0025-. (NEXT INSTRUCTION) 
0025 34 08 OOFF 42 STORE2 ST PADs ARR STORE THE ARR IN LOC -OOFE & OOFF-. 
0029 3D 01 OOFE 44 CLI PAD—1eX"OL! COMPARE STORED ARR HEI WITH -Ol-. 
002D CO 01 003A 45 BNE MOVES GG TO NEXT TEST IF ARR HI NOT -O1-. 
be ie 26 * GO TO HALT2 IF ARR HI = -Ol-. 
| 0031 FO 7C 18 48 HALT2 HPL H4,HE @ PROG E4, HALT 2. ERROR HALT. 
49 # @ FAILING FUNCT 1 
es af 
0034 DO 87 10 28 BRNCH1 B STORE1(,XR1) INDEXED BRANCH TO LOC -0010-- 
0037 DO 87 25 24 BRNCH2 B STORE2( »XR1) INDEXED BRANCH YO LOC -0025-. 
! 22 
We at 56 OO48S8FO984S8408S9SSEFH4SSETEHOEREEERISSONE ST coo EEESPESSSSSSHESSSSESAS SSS 
\, 57 *eae8% SSeaee 
58 teeee8 TESTS 621) RIPPLE THE LSR LO = FF LOGIC 3Osae2 
59 828388 SOSReB 
’ 60 OS &O8S4EREEFEETEOESEESSESEEDDESESEREE FESSESESEETESTES SESS SESESSESESSESE ESS 
S 61 
61 
003A OC O02 OOEF O06A 62 MOVES MVC X*OOEF*(32e8RNCH3¢2 MOVE BRNCH3 TO LOC -OOED THRU OOEF-. 
0040 CO 87 OOED 64 8 X*ED* GO TO BRNCH3 AT LOC -O0ED-. 
DATE 29aUGT5 PROG 10 0E3-0 
EC NO. 627804 PAGE 39 Date. goakgs” prog 10 o& 4-0 
C 
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| y 
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PAGE 40 | PAGE 4OA 
OE40 CPU AND MEMORY DIAGNOSTICS: PROGRAM E% MOD 12 |  0£40 CPU AND MEMORY DIAGNOSTICS: PROGRAM E4 MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | . ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT : 
66 * BRNCH3 WILL BRANCH BACK TO STORES 131 * * FAILING FUNCT L 
67 * LOC -0044—. (NEXT INSTRUCTION) | o 132 * 
0064 34 08 OOFF 69 STORES ST — PAD» ARR STORE THE ARR IN LOC ~OOFE & OOFF-. O0A% DO 87 80 134 BRNCHS B STORES ( »XR1) INDEXED BRANCH TO LOC -—0080-. 
0048 3D 01 OOFE 71 CLI PAD—1,X"OL" COMPARE STORED ARR HI WITH 501-- | ¢  -O0A7 DO 87 95 136 BRNCHE B STOREG( eXR1) INDEXED BRANCH TO LOC -0095~. 
004C F2 81 16 42 JE HALTS TO HALT3 IF ARR HI = -Ol- t 137 
004F OC 02 COBF 2060 74 MOVES MVC X*OQOBF°(3),BRNCH442 MOVE BRNCH4 TO LOC -00BD THRU COBF- | 137 
75 | C 138 FESE4KESEREESERE ER ERAEEECHEEEAESEDEE SERS EEERRSERSSEETESEEEESEEESEESEEEREO 
0055 CO 87 O0BD a6 8 X* BDF GO TO BRNCH4 AT LOC -O0BD-. te 122 sseeee aeee ne 5 tab sab: SMO ERED sores 
is HHS MTB BRANEL BET LORE, teh Stress U2} Eel SaRS BEREEE sense 
- ‘ REEKGH 
80 Q ins SEREEEEEESREESERESESESEEEEEERERE SON SAERERERS SES EEE SERED SESE SE SESOESEDES 
0059 34 08 OOFF 81 STORES ST PAD, ARR STORE THE ARR IN LOC -OOFE & OOFF-. 144 
44 
S850 28 Bt SOTE Ga Ravebexton" COAPOBE QUE SEOREDSABEANE MIBY Blo] “gone 35 01 goce 122 taaph t opgaeaay SET 38) 18 PRINT 78 toe ~sanee 
oe GO TO HALT3 IF ARR HE = -01-. | 00B2 35 04 0086 147 L0aD3 LL GvFAL$, PSR SET PSR TO LOsBIN OVFL & FALSE. 
0065 FO 7C lb ah HALTS HPL = H4,HE : = Phecine cunee 3e ERROR HALT. | é 0086 F2 00 07 145 Jc MOVE8.0 
. 50. 
He SHBe 9959 ans TES SORES BE HEAR 
0068 DO 87 44 91 BRNCH3 B STORE3( »XR1) INDEXED BRANCH TO LOC -0046-. | Oe. eee aenntces shales ies ee ene 
0068 00 87 59 §3 BRNCH4 B STORE4( »XR1) INDEXED BRANCH TO LOC -0059-. Ge : oeee tee me es . 
on | _ 00CO 1C€ 00 GOFF 00 156 MOVES MVC PAD, O(1eXR1) MOVE LOADL OP CODE -35- TO LOC OOFF 
o 
ie , 
35 Seace a he ee ten sttees Retest TEES FRESE SESESECES SHEETS ET OEE SES SES. 00C5 F2 F2 68 ree Jc K°O6' oX*F2° BYRASS NER OO BYSES 
o0ce 00 00cs 160 DC XL.1*08 
ns Q7 teeaes TESTS (1) RIPPLE THE LSR LO = FF LOGIC eeeeee 161 
B £eee%e teee46, ‘. = oe EOS ty RN Gg 
3 FEEREESSEERERSEREEEREEG SEEESEEEESESSSETREEKE £OSEESEEEEES SO88$09044944848, 00C9 FO 7C 18 re HALTS HPL H4 sHE : Pacing BOREL” penhor meer 
f 166 # 
100 a ins : ‘ 
006E 35 01 OOCD Tol LOADS 1 X0000+XR1 LOAD xRi WITH -CO00-. ae Sock cos oece 166 re858 BE 2590008 
0072 OC 02 OO7F 0046 103 MOVE6 MVC = X*OOTE*(3),BRNCHS+2 MOVE BRNCHS TO LOC -0070 THRU OO7F-.' 9009 2¢ 90 OOFE 00 168 MOVES MVC PAD@120(14xR2) MOVE 10403 0 CODE —0G- TO LOC OOFE 
078 co 67 0070 1s 8 xtTD CONC CREAT APES “ahs be na.s oor HP BE SHECK ST BESeRveonaPAc 
107 @ BRNCHS WILL BRANCH BACK TO STORES i72 
108 * C'-0080-. (NEXT INSTRUCTION) | OOEO 0D 01 O ; 73 CHECK P 4 BRANCH TO BOOT IF PROPER INDEX REGS 
007C 00000000 oo7F 110 DC —_-XL4 #08 RESERVED SPACE oe doe CO Bi Oleg ita rine “BEr" Boge ee WERE SELECTED OURING "10VE8 & MOVES. 
ill A * 4 LT 6. ERROR HALT. 
0080 34 08 OOFE 112 STORES ST = PADS ARR STORE THE ARR IN LOC -OOFE & OOFF-. ¢ ie ee as peo ee ASeME + FAILING FUNET °° 2 
bo = 
0084 3D O01 OOFE 114 CLI PAD-1,x°01° COMPARE STORED ARR HE WITH —O1-. | 148 3 
0088 F2 81 16 115 JE HALTS GO TO HALT4 IF ARR HI = -Ol- >: O9ED 900000 QOEF 180 3 OG XL 3108 RESERVED SPACE 
008B OC 02 OOFT O0A9 117 MOVET MVC X*OOF7"(3),6RNCH6+2 MOVE BRNCHE TO LNC -OOFS THRU OOFT-. - % , fs 13> : Ee : 
0091 €O 87 OOFS 119 8 X'F58 GO TO BRNCH6 AT LOC -00F5-. eh 9001 184 xR EGU i 08 
121 * BRNCH6 WILL BRANCH BACK TO STORES | “.- 0004 186 PSR EQU & 
122 © AT LOC -0095-. (NEXT INSTRUC*ION) | QOFE 1e7 Pad, EU 255 
0095 34 08 OOFF 124 STORES ST = PADsARR STORE THE ARR IN LOC -OOFE & OOFF-. |) - GO7TC 189 HE Fou | oketes -t- 
ty hoe e e 
0099 3D 0} OOFE 126 CLL PAD-1,x"0L* COMPARE THE STORED ARR HI WITH -O1-.! ee Lee cee ete 
009D CO 01 OOAA 127 6NE OAD! GO TO NEXT TEST IF ARR HI NOT -Ol-.| FEFF 192 END 
139 GO TO HALTS IF ARR HI = ~Oi-. ine 
OOAl FO 7C 18 130 HALTS HPL HeeHE * PROG E4, HALT 4 ERROR HALT. = 
DATE  29AUG7S ¢ he 
EC NO. 627864 pace | PF SO «BC Ro. - 829880? Pace '° ares 
t 
| 
C 
bor 
sf = 
1 €3 ' 
‘eo 
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18M MAINTENANCE DIAGNOSTIC PROGRAM BART NO- 
Of4O CPU AND MEMORY DIAGNOSTICS: PROGRAM E4 MOD 12 
CROSS-REFERENCE 
SYMBOL T LEN VALUE DEFN REFERENCES 
ARR C001 0008 0183 0030. 0042 0069 0081 O112 0126 
ARR, = Col (0169 «0188 01698 0174 
BRNCM1L &. 003 0034 0052 0023 
BRNcHS A 003 0037 005% 0035 
BRNCHZ 2 803 0068 0091 0062 
BAe. A 003 0068 0093 «0074 
BRNCtS A 003 00AS 0134 0103 
BRNctig A 003 OOAT 0136 0117 
BRNEHO E b06 O0LEO 0173 0170 
CRECE 8 03 0000 0019 0016 0017 
HALT) 4 $03 0031 0048 9033 
HALT3 A 003 0065 0087 co72 
Watt2 8 003 00A1 0130 O25 
Watts A 003 00cd 0162 
HALT6 A 003 OOEA 0176 
HE A 00s OOeA Otts = ong «0068 0087 0130 0162 0176 
HG Oot OOTe 8186 «©0019-0048 «0087 0130 0162 0176 
Head. «A 004 0003 0021 
{0A01 A 00% OQOGAA 0145 0127 
LOAD2 A 004 OOAE 0146 
pads «4 004 9082 0147 
OAD? 8 Gos «006E (O10k 
HOVEL A 006 0007 0023 
MOVE2 & 008 0018 0035 
MOVES £006 003K 0062 0045 
MOVES A 006 O04F 0074 
MOVED 6 006 0072 0103 0084 
MOVE? A GOS 0088 O117 
Move 64 888 Coto 0156 0149 
MOVES A 0OS 0000 0168 
BveacS a 001 0088 0152 147 
_ GYFALS A 00) 00BR O13e =O Sbe 0032. 0042 0064 00698 CO7L 0081¢ 0083 112% 0114 0124% 0126 
O1s6% O168® 0173 
PSR C 001 0004 0186 01478 > 
eeeeL & 004 0010 0030 0052 
STORE2 A 004 0025 9042 0054 
Ree oboe 0044 0069 0091 
STGRES A 004 0059 0082 0093 
STORES A 004 0080 0112 0136 
Tones A 004 0095 O124 0136 
UVWXYZ A Oot OOOO OOe §=—s.0021# 0052 0054 0091 0093 O101® 0134 0136 0145% 0156 
The OE BOL 0002 0185 0146" 0168 
yO00C A 002 OOBA 0151 0146 
1008S «6& 002 00CD 0165 O021 0103 
x0003 A 002 OOCF 0166 0145 
x0435 A OO2 OOFL 0181 0173 
TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 
DATE - 29aUG75 
EC NO. 627804 page 10 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM , PART ' IBM MAINTENANCE DIAGNOSTIC PROGRAK PART NOe 4248201 
PAGE 2 : PAGE &2A 

OES0 CPU ANO MEMORY DEAGNOSTICS: PROGRAM E5 400 12 | oOESsO CPU AND MEMORY DIAGNOSTICS: PROGRAM E5 MoD 12 

ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT \ _ ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 

2 OECK «4 57 SEEKEKEEECESSESEESESSEESESSESES 6O0898EESSESEEEEREESESESESERSSSSESES SESE 
3 SEQ | C: 58 steee¢ Settee 
0000 & UVWXYZ START O | . 59 e#t448 (SNS), SENSE CONSOLE Dara SWITCHES SESE 
Se : ef Street sists 

t 
§ © LL caaeseeseee rece entec thee eeaseeeeeeesroscercareeseeececesessseeseestes| {~ . 62 €¢%ee8 TEST (3) SNS 1/0 Saeee 
5s ate 63 404446 (2 2 AODR FORMAT £oeREE 
83 eae : es Sesses (2) Twgemnac're ACTIVE siiits 
1 ‘ 

* * 66 &e4448 CHEERE 
is (Le ST) LOAD & STORE REGISTER 2 © 67 seeeee NOTE: THIS TEST WILL CAUSE ERROR HALTS IF seeeee 
13e¢ TEST (2} 2 ADDRESS FORMAT s| 68 Seeesh -OOFE- WAS NOT ENTERED IN THE DATA SeeKSE 
14 ¢ (2) INTERNAL & 63 aercee SWITCHES PRIOR TO RUNNING THE TEST. ceenee 

¢ ‘ 

1 ERESEESEESEESESEEEESSETESESSSSESEESSEEEESESESEEREHESESESESTESESSOEE SESE, C a TEERSSSESESEREEERESSESEERESESSSSSECESESESSSSECESESEESESESESES SOS ESS EESE 
17 i 73 
0000 FO 7C 5D is HALTL HPL H5-HE INITIAL HALT © ES - 004A OC OL OOFF OOCE a8 STARTS MVE PAD(23 .X9999 SET LOC FE & FF TO -9999-6 
1¢ 0050 30 00 OOFF 76 SENSE SNS PAD eX*00* SENSE THE CONSOLE DATA SWITCHES 
oc03 35 01 0002 so t XFEF6,XR1L £CAD XRi WITH -FFF6E- | pe gs 2 INTO LOC FE & FFe 
O007 34 O1 OOFF ss §T PAD, XRE STORE XRL IN LOC -FE & FF-- me O835 p3 5 i on a ctr eee re sun TO HALTO IF LGC Fi Nte> 
Q00B 30 Fé OOFF 24 Cut PAD, X*FS6* GO TO NEXT IF STORED DATA EQUALS i 81 
OooF €O 8:1 0020 €2 BE START2 LOADED DATA. 2 : fr Spe 99 o} bore o00c HE Che Papier Axeete SUE ental eet! Loc FE & FEF 80TH 
0013 30 FF OQOFF 2? CLE PAD eX FFE® GO TO HALT3 EF LOC -FF- i 84 ‘ 
ee a ee ee 8886 28 2 8855 ge GT Sagat 00" OR TEREATEY LENtBCaErRtS "OT 
nage 2 ' ° 
OOLA FO 7C 58 30 HALT2 HPL HS HE * PROG EF, HALT 2-6 ERROR HALT 5. 8T 
3i * @ FAILING FUNCT z : i 88 
32 % : oo6ec FO 7C 50 89 HALTS HPL H5-HE ® PROG ES, HALT Se ERROR HALT 
32 * | £" $f S EATCENe FUNCT *eGTARY BIT SHOOT” 
colo FO 7C 50D 35 HALT3 HPL HS HE * PROG EF, HALT 3- ERROR HALT 7 92 & * HIGH GROER CONSOLE SWITCHES REFER 
ae : @ FAILING FUNCT (2) : ae a : @ TO CHART 
; i A 9S 
38 os OO6F FO 7C 50 38 HALT6 HPL HS HE : PROG Ede HALT Be see HALT 
39 geeneeneaeeaneseeseteseeseeeeseenee sesee sees esses esses ees es eS SEs eeeeees: C 38 & , 
ai = TEST TO CHECK IF Q BIT IS STUCK DOWN : oot2 FO 7 50 rhe HALT? _ HPL H5 eHE < PROG ES Hatt Te ERROR HALT 
vw 
43 ERESEREEEESEESEEESESS EEE EEESTSESEESESEESSESEEESESESEERESESERERESSSESESSESE = 102 * ® LOw GROER CONSOLE SWITCHES eREFER 
ss 1 Rae 103 2 * TO CHART 
0020 30 03 O1S8E 4&5 START2 CLI BOOT+37-X*03* CHECK FOR ANDO SETUP TO HALT ' 
0024 F2 81 04 46 JE e+ ‘ BEFORE EXECUTION IF THAT WAS | Cc 
0027 3C 00 OOBC 4T MVE BOOT3741,X*00* SELECTED BEFORE. : 
0028 OC 04 OOD&B 0108 48 MVC ALOAD¢5S CNTELOCS) SAVE CONTROL FIELO F-CC-HH ' 
60031 3C OO 0100 43 VE X00,X*00° MOVING 256 BYTES OF DATA .; 
0035 3C FF OLFF 50 MVI K004255_,K"FF & CHECKS OUT ALL QO BITS. IF A C 
. 0039 OC FF OLFE OLFFE 51 vc X004254(256) »X004255 Q BI*t IS STUCK DOWN THE i 
OO3F 3D FF 0100 - §2 cul X00, X* FF ® MOVE OF 256 BYTES ISN'T : 
0043 CO 81 OOA 22 BE STARTS COMPLETED THUS CAUSING HL TG: _ 
0047 FO 57 3F 55 HALT4 HPL X*3F*,x*57° #Q BIF ERROR HALT C 
z 
Mee 
eo 
AT AUG?S PROG \ DATE 29AUGTS PROG ID 0€5-0 
ee fi. $3 7804 PAGE ap oe75° EC NOew 827804 PAGE 42a 
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NS & L= & e ¢ Tv 
0 ¢ ona e ¢ © w 
t ® zx * a 4% ° 
: ™ 2 ou e * « 
: ¢ 9 og ¢ $$ & o 
# a 4 % a * ” = 
* fad sy e a "a 
® * us =x * e @ x a” & 
3 * a ocd * am & & ”* aw a 
* Qo wv g + & & - Ow F wo 
* ih CAND AN uN & © a ee | 
ud @ Q wid g *¢ o4 en @ oa ww wow 
ao * wl ws wteted eoo “O * & w w" Oo 
gq # 2 wd * & we’ a aad 
aa e w xe Gaafiee peso be pepe me & & Zuw Ta aa. 
. e Qa Qe named ag bent poet ome & OF uw gore ew 
* z Or * Noo Naa an © aa COW ew 
2 —_ Kad # eo * ® s ZT wn. 
4 < 2 wai wwwx “w~ @ & & 4 wd 
g a ox * WYO WOU UW & & se eva OO 
3 = & Us Wu ww & 8® «oO an OTe 
* Oo Ltt crit rx # &@ Ta OC iite 
* (3) ee WI Wu Uw € oe ec eee 
2 YT) ui eee eee ee # % Ww bed nefthd <f 
* wv a * ae *# O ¢@Oe £OwW 2 
e Om * & &# CXKOURCeE AO =i 
2 a 1S) * # # w~O0002Z0 w twa 
* o Qu * *& * WHOOWDLOAOR 1c 
® ~ 2x e *e 220 wt 
* Qe Ow * *e# *# xrOOoOar t- ~= 
* 2m oO e * &© nnd sore ' J 
* Zi wa e ee & mWQOWOWWU of 
a Oo une * e & Ors se EE ' 
* - “ * . e 2 
# nn & # * 
® ae Or * oman ae *e 
* me ore a * =n oN * * 
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PAGE 44; PAGE 44A 
OE50 CPU AND MEMORY DIAGNOSTICS: PROGRAM E5 MOD 12 _0E50 CPU AND MEMORY DIAGNOSTICS: PROGRAM ES MOD 12 
CROSS-REFERENCE pA. OBJECT CARD LISTING 
MB : 
a i os Bern REVERENCES - THE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS BE A INDICATE NUMERIC SHIFT. 
A * 
BOOT. COOL Oreo OLee Goes Stade 185% o1s2 CL 1 THROUGH 16 Ct 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 82 THROUGH 96 
BOOT37 A 004 008s 0149 0047% 
ENTELD € Oot Orbe oreo Bate orsie ie 
COMHLT A 003 OOAl 0142 0143 0148 “GBK GBD "PN'42 48200 EC°827804 CPU AND MEMORY T ESTS MOD 12 84aa8eaa 0€500000 
DOFADR & OOF Sone ores  otae™ ps 
DDR C 001 O00C4 0163 0144" CL T#-":aGhb(e0 4TE A fat*-C™OHD HC7T @°$"2°E{0E70—E4 *OF*aYDDI’°°7°0 D°(2a630° & a"0G "Cla OR<0E500001 
ERR’ EC Oot ones otes ©0143 0148 i 
HALTL A 003 0000 0018 oo Te-AS 8a"37" EC "-EAHaES*C “Dp *0C 4c °° m37="fm2 ye CECH IC2-68'° °C =OHD )~Aa@P-AaP=A  aPsH” ©3Q0E500002 
WETS 2983 $018 2038 ooze D : 
HALT4 A003 0047 0055 : T+-B0' 6 0-H” D4 "MOC ™PECHMEg MMs ("4g Bg4 MMs “YH MECHZECROH® ZIA aP*G HD11 CM<#Q °52<° 2EHOE500003 
HALTS” A O03. Obce’ Opes 0080 . wns 
HALT? A 003 0072 0100 0083  1.0C-0&CA0-B30% YLOC Q8aD0EDC & AGOCSOHFAERWRO?# Bt-ce(e "DD é 3#U0E 500004 
re E GRL UI G1s BEER cose 93s goer gens gi0e lez ic 
{ Se seo eee e ee eee _@aee e eee @eeeeoceeaesceo e@eseoe 
PAD € 001 OOFF 0175 0022* 0024 0027 0074* O076* 0079 00682 0085 0125 0125 0126 0126  \  €@meeeTe=nDCPHS «="7MEFL fC). UES ase’ "ee en? g 12010630750 &28750H-0E500005 
O127 0127 0130 0130 O13 0131 0132 0132 0135 0136 oe 
READ C001 OOC1l 0168 0146 
SENSE A004 0050 0076 be 
START2 A004 0020 6045 0025 aS 
START3 A 006 O04A 0074 0053 | 
STARTS A 004 0075 0122 0086 0120 0121 | 
UVAXYZ A 001 0000 0004 ce 
SERRE A 883 $280 8183 gugp ae 
XR1 C 001 0001 0170 0020* 0022 0122* 0125 0126 0126 0127 0131 0135 | 
— XR2 € 001 0002 O171 0123* 0127 0130 0131 0132 0132 0136 a eee eer ea 
x00 € 001 0100 0169 0049* 0050® 0051 0051*® 0052 | fre 
x9999 A 002 OOCE 0154 0074 
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2 

0000 2 
5 

6 

7 

8 

9 

10 

il 

12 

13 

14 

15 

16 

16 

0000 FO 7C 70 17 
i 

0003 3D 00 OO7F 43 
0007 CO 81 OO0E gh 
0008 FO 7C 70 53 
24 

25 

26 

26 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

QOOE 3C 00 OOFF 36 
0012 3C FF OOFE an 
0016 OD 01 OOFF OOTD 23 
OO1C F2 82 07 bey 
OO1F CO 84 0029 az 
0023 FO 7C 70 45 
46 

47 

48 

0026 FO 7C 70 49 
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PAGE 45 | 
PROGRAM E6 MOD 12 | 
SOURCE STATEMENT 
DECK 4 


Qo 
UVWXYZ START O 
TREP 


* SECTOR 19 
BEEVONNVS SS AEC HEEL CEKEEREELEEHESEGIESTERERERECKEKEEEEEEEEESSESEEESTESEEEERE 
s 


x 

* PROG £6 : 
* (CLI) COMPARE LOGICAL IMMEDIATE * 
* TEST {1) SINGLE EB CYCLE INSTR ‘ 
FEROS REE SE SSS SESSESE SESE SESE SES ESESES SESS ESESESSESSESEESSEESEREESEES 
HALTL HPL H6,HE “INITIAL HALT = E6 

CLI XFFO0,x*'008 COMPARE 00 TO 00 

BE START2 GO TO NEXT TEST IF CR SET TO EQUAL 
HALT2 HPL  H6sHE * PROG E6, HALT 2. ERROR HALT 
2 


| 
| 
| 
* FAILING FUNCT (1) | 
| 
stistenssonseseeseocesosssssonnssssnssssnssenssesnessnsasenssavenscones! 
(CLC) COMPARE LOGICAL CHARACTER ' 
TEST (h) OP END 


* 
SPEEEKSEEESESERESESESEEEEE HE EEEEEESEEDEESELEES OE EESHREOGESREERESEESOESETEKE 


ee ee 


= 
* 
* 


START2 MVI PAD, X*00! PLACE HEX -FFOQO- IN 

MMVI «=- PAD=1,X'FF® LOC FE & FF. 

CLC PAD(2),X00FF COMPARE PAD WITH HEX —OOFF- 

JL sOHALTS GO TO HALTS IF CR SET LO 

BH ss START3 GO TO NEXT TEST IF CR SET HI 
HALT3 HPL  HO6,HE * PROG £6, HALT3. ERROR HALT 
* * FAILING FUNCT (1) 
HALTS HPL HO6sHE * PROG E6, HALT 4. ERROR HALT 
* * FAILING FUNCT i 


PROG I0 OE6-0 
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ERR LOC OBJECT CODE ADDR STHT 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
0029 3C 09 OOFF 63 
0020 06 00 OOFF 0009 65 
0033 3D FO OOFF 61 
0037 CO 01 003E 69 
0038 FO 7€ 70 71 
72 
73 
73 
73 
74 
75 
1 
77 
78 
79 
80 
81 
82 
83 
003E Cl CO 005A 84 
0042 GC 64 0076 0108 85 
0048 31 C6 0071 88 
004C 31 C4 0081 87 
0050 F3 C3 OC 88 
0053 <i €2 0050 89 
0057 FO 7C 7D 91 
92 
93 
94 
005A FO 70 7D 95 
96 
97 
005D Fi C2 00 38 
0060 €) C2 0060 100 
0064 3C 14 016A 101 
0068 CO 87 0169 102 
006C 00 00o6C 103 
0060 FO 7C 7D 105 
106 
107 
108 
0070 0072 0071 109 
0072 0000010000 0076 110 
0077 0100010020 0078 ill 
007C OOFF OO7D 112 
OO7E FFOO OOTF 113 
0080 0400 oo8i 114 
QOFE 116 
0169 117 
0108 118 
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PROGRAM E6 MOO 12 


SOURCE STATEMENT . 
Sn eet ee ere er en ere re eeecees eens eee teeesosesesereeenvesces 
2 
s (AZ) ADD DECIMAL ¢ 
¢ TEST (1) OP BIT 7 + 
s {2} A REG BIT 2 ACTIVE : 
SVSSLSSSECHKSACSESSSSSESSASETLESSSSSSHSSKSSSVKSSE S$ STKSEVVKETESSSEEAESESOSSESESSSE 
START3 MVE PAD» X*D98 SET PAD TO MINUS DECIMAL 9 
AZ  —- PADL.19..X*D9° C1) ADD MINUS DECIMAL 9 TO PAD. 
CLI PADe X* FOF GO _TO HALTS IF RESULT EQUALS DECIMAL 
* ae ZERO, GO TO NEXT TEST IF RESULT IS 
BNE TST1 NGT DECIMAL ZERO 
HALTS HPL H6,HE $ PROG E6s HALT 5. ERROR HALT 
: *# FAILING FUNCT (le2} 


SEISEERSSHS SESSA SSESSESEKRTSES SN STSSOKOSHESSESSSHAKS ESTE EEEKEEESEEEKEDEESDESESD 
* 


: APL TEST . 
* TEST (1) APL DECODE + 
* (2) 1/6 COND B ® 
: (3) IR SKE TRUE , $ 
F8EESEESESSSEREEKEEESEEESOSSEEKEEEESENESEEESECEEESESEEEEEDEEEEESEEEEESESESEEE 
TSTL TIO HALTT,X*CO* TEST FOR ERROR OR NOT READY. 

MVC ADCE (5), NTFLO SET UP CONTROL FIELD : 

LIO AD255,x'Cee LOAD DDCR 

LIG DFextdee LOAD DOOR 

SIG x*OC*,x*C3" SCAN EQUAL 32 SECTORS 
TST2 TIO APLTST,x*C2* GO TO APLTST ON BUSY 
HALT6 HPL HO6,HE * PROG E6, HALT 6. ERROR HALT. 
‘ ® TSTI OR'TST2 ERROR 
HALT? HPL H6,HE ® PROG E6, HALT 7. ERRGR HALT. 
* * FAILING FUNCT °(3) 
APLTST APL 0,x°C2* WAIT HERE ON BUSY 
TS¥3. TIO HALTS,X'C2* GO TO HALTS IF STILL BUSY 

avi BOotel »x*i4e SET UP TO READ 20TH SECTOR 

De XLi*O¢ 
HALTS HPL H6,HE ®@ PROG E6, HALT 8. ERROR HALT. 
* # APL INSTR WAS NO-OPED 
AD255 0¢ ALzyes2) 
ADC DC XL5!0000010000° 

oC XL5*0100010020° 
XOOFF O€ XL2°OOFF® 
XEFOO OC XLZsEFOQs 
DF D XL2*40 
PAD EQU 25 
poor feu £2 F cos 
CNTFLO EQU  x*1DB° 

PROG ID 0E6-0 
PAGE 45A 
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CPU AND MEMORY DIAGNOSTICS: PROGRAM E6 MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT CROSS-REFERENCE 
OO7C 1i9 HE equ x*7c -E~ SYMBOL T LEN VALUE ODEFN REFERENCES 
CO7D 126 HE eGu 8 xt7oe 
EFEF 421 END ADCE & 005 9076 O110 0085* 
AD255 A 00Z OO71 0109 0086 
APLTST A 903 005D 0098 0089 
aor Cc O01 Gi69 O117 0101* 6102 
ENTELD € GOL O10B O118 0085 
DF A 002 0081 01124 0087 
HALTL A 003 0000 0017 
HALT2 A 003 GO0B 0023 
HALTS A 003 0023 0045 
HALT4 & 003 0026 0049 0C41 
HALTS & 063 0038 OO71 
HALT6 A O03 0057 OO91 
AiTT A 003 0054 0095 0084 
é HALTS A993 0060 0105 0100 : 
HE € 001 oo7c 0119 0017 0023 0045 0049 OO71 0091 0095 0105 
H6 € 900i OO7TD O120 0017 0023 0045 0049 0071 0091 0095 0105 
PAD € OOL OOFF O16 0036* 0037 0039 0063 0065* 0067 
START2 & 004 OOQ0E 0036 0021 
STARTS A 004 0029 0063 0043 
TST?i  &£ 9004 O003E 0084 0069 
TST2 & 004 0053 0089 
i 1ST3.  & 004 0060 0106 
UVWXYZ 4 001 0000 0004 
XFFOO A 002 OO7F 0113 0019 
XOOFF & 002 OO0O70 O112 0039 
' TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 ‘ 
he Re 
ny eee 1 fe 
oe oe HS 
le 
cc | 
ie | 
! 4 
ok ! 
ae 
pu, 
£ : 
oo Ried 2 
OATE 29AUGT75 PROG 10 CE6-0 DATE 29aUG7S PROG 10 OE6-0 
EC NO. 827804 PAGE 46 EC NO. 827804 PAGE 46h 
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. PAGE 47. PAGE 4&T7A 
0E60 CPu ANDO MEMORY DIAGNOSTICS: PROGRAM E6 MOD 12 ~~ CETO CPu AND MEMORY DIAGNOSTICS: PROGRAM E7 MOD 12 
OBJECT CARD LISTING ts ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
e OECK 4 
THE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS DBD E A INDICATE NUMERIC SHIFT. t": 6x0 3 Suiva SEG 9 
CL 1 THRGUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 66 CL 81 THROUGH 96 . ; . TREP SECTOR 
. 7 Phidseebdeudaness one sesseeseeaekecuessacdseskeesccscnesusakereseaceaese 
e oe eve ° e e e ° e e e2eccee ° eaenoeoee e@eeesesceo Xe QB *kSeSS PROG €7 864246 
GBK GBD PN 42 48200 EC 827804 CPu AND MEMORY T ESTS MOD 12 84836430 0£600000 2 setess (LIO) & (SNS), LOAD & SENSE 170 LSR¢tS sseese 
e oe oe ee e ° o e eo eo ° e ° e | ft. ll #*«s2%4 $40244324468 SREKSE 
T#- :aG1L'1& -3B8 A #0-G4a C*"}{ la ®4A {a --HBAaB D BX0-G70-G4a6EC "A~ "OCRI- "8 A C8 8Q OE&600001' *...’ 12 #*eee% * PRINTER © B24S98 
i 2 eee cee $h£046924008 ascot 
T+-A5aG1'0# 0-0 0 GQA63GF GD11 B Aa@a<<O#H P2Aa=A a2-GB <GB F4aE E DOH*AEECO-G4 2- 6° "*J60E600002) (> 1S eeaens FAILURE TO SELECT ANY LSR WILL CAUSE #94446 
jt 16 *&£4%44% "A" REG CHECK DURING (SNS) £8 CYCLE. £24448 
ee ee seeeeceoseee evesesesecesecce eeescoseeesovess eeseevesnereceoces eecose } 17 #44438 20446 
TBOBA D & = [@ 5140£600003. 18 **ee0% FAILURE TO SELECT CORRECT LSR WILL e22E88 
1 © a0 gscees RESULT IN ERROR HALT. oesece 
EM t cE 7e=-0C OP HS ="TMEFL 1° ees asc’ RA so" 9° en eerE i: 12010630750 8287 508U0E 600004. 21 SERESSELEKLASKEREESESRSEEERE ES FEEESEEESESESESE SEE EREREREETESE SEESDSEAAESSESE 
ako <2 
jo o™- 0000 FO 7C OF saceeree HPL HT eHE INITIAL HALT = E7 
| 24 
| C 0003 31 E4 O04F , 25 Lio XCFFFeX*ES* ‘ roee PRINTER IMAGE ADDRESS tSR 
ai 26 s WITH -CFFF-. 
| i. 0007 31 E6 0051 28 tI0 X3FFB,X*E6* aa reaneee DATA ADORESS LSR 
| 0908 30 £4 OOFB 31 SNS 251—X*E4! STORE PRINTER IMAGE ADDRESS LSR 
32 * IN LOC HEX ~GOFA & OOFB-. 
pease: ow i 33 
| ¥ ane QOOF 30 E6 OOFD , 34 SNS 253eX*E6* STORE PRINTER OATA apeces® LSR 
a2 s IN LOC HEX ~OOFC & OOFD—- 
j 
' 0013 30 F FO 37 cul 253,X*FE* GO YO HALTS IF DATA SWIT 
Gol? #2 BL LS 38 Je Hats WERE ALSOOGATE To {76 BUSS 
{ 001A OD O1 OOFD 90051 40 cic 253(2) ,X3FFS t YO RALT2 IF PRINTER DATA ADORESS 
; : 6020 29 at 03 a. JE Aaitss3 LSR wAS LOADED INCCRRECTLY 
0023 FO 7C 07 43 HALT2 HPL H7 »HE : 2 PROG EV, HALT 2.2 ERROR HALT. 
| 4a ¢ . ® REFER TO CHART. 
{ C mF * # DATA ADDRESS LSR SELECTION ERROR 
0026 OD 01 OOFB O04F 47 cic 23352) oXCFFF GO TO HALT3 IF IMAGE ADORESS 
ae 002C CO 81 0036 as BE START2 LSR WAS LOADED INCORREDTLY 
1 of : 
tS 0030 FO TC O07 50 HALT3 HPL H7 HE * PROG E77, HALT 3. ERROR HALT 24% 
2} = : @ IMAGE ADOR LSR SELECTION ERROR 
Psy 0033 FO 7C 07 53 HALTS HPL H7 »sHE * PROG ET, HALT 4&. ERROR HALT 
Le 54 8 ; @ «THE BATA SWS WERE ORED IN ALSO 
} & 
4 
rs 
t 
: 
OATE AUGTS PROG I10 O£6-0 OATE 29AUGT75 . PROG 10 O0E7-0 
ec NO. 348 804 PAGE a EC NOw 827804 PAGE 47A 
Mh 
ne 
= 
| - 
; £ ; 
lean 
oon 
) © 
| ~” 
me 
| ies 
| 
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| 
OE70 CPU AND MEMORY DIAGNOSTICS: PROGRAM E7 MOD 12 go ee CPU AND MEMORY DIAGNOSTICS: PROGRAM E7 MOD i2 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT (|e CROSS-REFERENCE 
57 Ss GOS CLS SOL RDESSS ESE SO CTE Te ee eet Taig Co cthee tig center setae . SYMBOL T LEN VALUE TEFN REFERENCES 
25 eaneee EL OP SR: tatietia EUR ESENP EA heer? saeaee “ gpooT. € 001 0169 9091 0082* 0083 
20 HEEEEE RHRTRSASEER SoaaSe, HALT1 A 003 0000 0023 
6] #4448 * PRINTER # #ESSEE HALT2 A 003 0023 0043 0041 
es S5tsh te SSbisn | HALEZ 4 882 8828 8889 ooze 
63 #e¥2% : 
6a oe eeRE FAILURE TO SENSE THE HegRRECT VALUE +oet%s! HE C 001 OO7C 9032 0023 0043 0050 0053 
oo shties Peete eaneun Sii3th Mo € 881 Goen gage O88 
$$ Si esstsacsaoeisessisasdcratensesesnscesraescoutsctsuaasiulaisacesescs sents a gor Bo08 oo7o 0048 
69 i XCFFF A 002 OO04F 0086 0025 0047 
0036 31 E4 0053 1O START2 LIO — K3000eX*E4* LOAD PRINTER IMAGE ADDRESS LSR Se eee DS OGe BOE. OORT Oor3  one0 
2 | x3000 A 002 6053 0088 0070 : 
> e e 
003A 31 E6 0055 is ; LIQ xXCOO7T.X*E6 ee earn earn ADORESS LSR ! <_ TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 
QO3SE 30 E% OOFB 16 SNS 251eX* ES! STGRE PRINTER IMAGE ADDRESS LSR ‘ 
2 IN LOC HEX -OOFA & OOFB-. | 
0042 30 Eé OOFD T9 SNS 253,X°E6® STORE RENTER DATA ADDRESS LSR | C 
a * IN LOC H OFC & OOFD-. | 
0046 3C 15 O16A 82 avr BOOT¢i »X*15° SET UP TO READ 21ST SECTOR | C 
OO4A CO 87 0169 ez BOOT LSRS WERE SENSED CORRECTLY,BSRANCH er 
85 : 
OOSE CEFF O04F 686 XCFFF DC XL2°CFFFE | oO 
0050 3FFS8 0051 87 X3FF8 DC XL2‘3FF8! o 
0052 3000 0053 68 x3000 OC XL2°3000° | 
__ 0054 €007 0055 89 xcoo7 oC xL2*coo7® 
0169 91 BOOT EQU xX*169* i C 
0O7€ 92 HE EQU) Xt7Ct =E= { 
38 3 Blo EWS se” 3 
95 1 © 
FFFF 96 END | 
EC 
§ € 3 
© 
| G 
ca. 
| 
| 
le. 
| 47 
| Dre 
DATE. g24yg7s PROG ID OET-0l «DATE  29AUGTS PROG 10 OE 7-0 
EC NO. 827804 | PAGE 48) EC NO. 827804 PAGE ace 
ne 
| 
nies 
| Re 
: | C 
@#e@eoee@e@ege@ege8edeoeoeeoee < Tv oUCoFlCUDUCUDGD | 








“s e A ~ : ws ‘ 
, ‘ 




















ce 
ee 
BM MAINTENANCE DIAGNOSTIC PROGRAM PART NOe 4248201 TENA TIC P AM PART NO 4248201 
1BM MAINTENANCE G I oO PART 29 IBM MAINTENANCE DIAGNOSTIC PROGR PAGE 49a 
OE70 CPU AND MEMORY DIAGNOSTICS: PROGRAM E7 MOD 12 E80 «=: 3340 CPU AND MEMORY DIAGNOSTICS: PROGRAM E8 MOD 12 
OBJECT CARD LISTING - ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
. ECK 4 
THE CHARACTER © INDICATES & SLANK COLUMN AND THE CHARACTERS DB E A INDICATE NUMERIC SHIFT. © hens 3 saa SEG 0 
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 ~ os TREP 2 . 
i R ’ > 
; ‘s T TeOKeONSSSESSS SEATS SS ERESERERSEREESSSSSESEERESSEEEEEESOLAEEESASEES EES 
@ Ld e@ee es e e oe « e e @eeeaeeoesd a7 @2eeooen sed @2eeoeoeee . eee * 
GBK’ GBD” PN"42 48200 EC 827804 CPU AND MEMORY T ESTS MOD 12 84aa84aa 0£700000 § 3 PROG E8, SAR DECODE : 
10 
e e e@ @ e e se . e ea es @ e e e 3 Pd T * 
T+#-" :9GOG<36° L3G wW ED09 C#<4Q "L7 = 172-yUL EC* EG 2-&10+ *( ECH# DT -& 6AGOGAGOG<;& M30 EZ*0ET00001 c 13 3 Of Sar Bits 8 FS TSUGH 3 RND THE ABIL LEY * 
13 $ TO ADDRESS CORE LOC 128 THROUGH 82191. ‘ 
TE-ANO-AN<4#E =3C WwW [4@EEEDOH*AES*® =§"-0 < G Q,Z0E700002 c 15 FREERSERSESERESAARSESHESEESSESESOR SL FEHESCSETHRERESERERESSESESESSESAESESES 
: 16 
ENnesE7#=5DC"PHS ="THEFL IC” OTTER asc’ RA SO a” "12010630750 ©828750Y80E700003 Ocoee te te LT RAETE EE: (DMS T Sarees THES EAL Ot 
‘ 0003 C2 01 0080 19 Lo LA X*0080* »XR1 LOAD XR1 WITH HIGHER CORE ADDRESS 
0007 7C 00 FF =1 MVE = PAD.» XR12¢ X*00° BYPASS 
OOOA 3C FF OOFF 22 MVI PAD,X*FE® HALT IF 
as OOOE 70 FF FF 23 CLI PAD gXR1) 9X" FFE SAR DECODE 
ie OO1I F2 01 03 24 SNE  HALTS43 WAS CORRECT 
0014 FO 80 10 26 HALT2 HPL X910%,xX*808 *# PROG E8, HALT 2- ERROR HALT 
ee 27 * * FAILURE: SAR DECODE. THE FAILING 
< 28 * SAR BIT IS DISPLAYED IN 
29 * * THE Q REGISTER 
| ~ 2° . 
. * 0017 30 20 0015 32 CLI HALT241,x°20° EXIT THIS PROGRAM IF SAR 
0018 Co 81 0031 33 BE EIGHT BITS 8 THRU 3 HAVE BEEN TESTED. 
Rr ae s~  O01F OE 01 0006 0006 35 ALC = 04312) L043 DOUBLE HIGHER_CGRE ADDRESS 
: 00625 OF OO 0015 0016 36 SLC —- HAL T2411) pHALT2¢2 DECREMENT HALT DISPLAY - 
0028 CO 87 0003 37 B LO GO TEST NEXT SAR BIT 
/@ 
CO 
CO 
; | 
Ce 
: O 
Pee me a nee ere es ee ne ee —- LAST PAGE een eee 
DATE 29AUG7S i 
EC NO. 627804 peae 20 OE7=0 *. DATE  29AUGTS PROG ID 0£8-0 
PAGE “9 EC NO. 827804 PAGE 469A 
ge 
Ne 
© 
C 





M MAINTENA AGNOSTIC P PART NOs 4248201 IBM MAINTENANCE OIAGNOSTIC PROGRAM PART NOw 4268201 
18 INTENANCE DIAGNOSTIC PROGRAM paRT 201, paRT 201 
O£80 3340 CPU AND MEMORY DIAGNOSTICS: PROGRAM ES MOD 12 | QE80 +3340 CPU AND MEMORY DIAGNOSTICS: PROGRAM E8 MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT CROSS-REFERENCE 
39 SYMBOL T LEN VALUE DEFN REFERENCES 
002F 0000 0030 40 DATASW DC xi2*0* hoe 
41 ' apo A 002 0084 0068 0043 0043# 
0031 F2 90 00 42 EIGHT JF B RESET ‘TEST FALSE! ; B A 006 0034 0043 0042 
0034 OF 01 0084 0084 43 8B ALC ADO,AD0(2) LEAR "LOGICAL OVERFLOWS BOOT C001 0169 0071 0047* 0048% 0049% 0050* 0055* 0056* 0060* 0065* 
ah BOOT25 C 001 O1E1 0072 0053 0058 0062 0066 
003A FO 7F 3E 45 HPL =-X*3E"4x*7F° BP HALT CNTFLD C 001 0108 OO77 0064* 
ae DATASW A 002 0030 0040 0051* 0052 0057 0061 
0030 3C 93 O17F 47 MVI BOOT+22,x°93° REPAIR LOADER AFTER MEM. CHECK oce A 005 0089 0069 0064 
0041 3€ 00 O16E 48 MVI BOUT4+5,X"00° EIGHT A 003 0031 0042 0033 
0045 3C 00 O18E 49 MVI BOOT437,X"008 SETUP TO GET INITIAL HALTS HALT] A 003 0000 OO17 
0049 3€ 16 016A 50 MVE BOOT+19X"16" HALT2 A 003 0014 0026 0024 0032 0036 0036* 
0040 30 60 0030 51 SNS  DATASWsX*OO! READ DATA SWITCHES A 004 0003 0019 0035 0035* 0037 
0051 30 E9 0030 52 CLI = DATASW,X*E9* i; - BAD C 001 OOFF 0073 0021* 0022¢ 0023 
0055 CO 81 OLEL 53 BE BooT25 ENS C€ 001 OO7C 0075 0017 
54 ; UNITS € 001 OO7F 0074 0017 
0059 3C 00 O16E 55 MVI - BOOT+5,X* 00° UVWXYZ A 001 0000 0004 
005D 3C 1F O16A 56 MVI BOOTe1 eX" 1F* / © XR € 001 0001 0076 0019* 0021 0023 
0061 30 F2 0030 57 CLI DATASW,X*F2° 
0065 CO 81 O1E1 38 BE BOOT 25 TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 
0069 3C 21 O16A 60 MMVI s- BOOT41,x°21° CG 
0060 30 F4 0030 61 CLI DATASWeX*F4* 1 © 
0071 CO 81 O1E1 62 BE Bo00T25 
0075 OC 04 010B 0089 64 MVC =-s CNTELO¢5) DCP SET UP FOR LOAD OF OCP CG 
hots 7 0078 3C 01 016A 65 MVI BOOTS1,x°O1° | Re 
<7 “os => -007F C6 87 O1EL 66 8 BooT25 
"A683 0000 008% 68 ADO Dd AL2(0) on : 
0085 0000030011 0089 = «69 DEP Be $2 tBho0030011° | o> 
0169 71 BOOT EQU- xX'169° 
_ O01Ei 72 800T25 EQU XtIE1* l & bd sess Bi eae 
OOFF 73 PAD EQU 255 1 : 
OO7F 74 UNITS EQU X*7F* 
OO7C 75 TENS EQU xX*7C* 
0001 76 XRi equ i & 
O1D8 = 77 CNTFLO EGU X*'01D8¢ 
FFFF 79 END c 
C 
i € s 
ae 
DATE 29AUGTS PROG IO oes-0 © pate PROG 30 OE8-0 
€C NO. 827806 PAGE 50 E—C M). a24bOe PAGE 308 
es 
. 






, : Fo . 
! qi ‘i , P 
< : t y . SHES Say ve ob mk ta : P : | | 
Spe ae een ed nate oe oe cr AE : 2M " : q / 
24 Sp ieatae BMPS Sete Tae Lk Picea Salen TU eo : 
ares II a aa eg age CERT AR oe * 3 . 
oe elias ae ciphecc: P 


eeeeoevueneoeoeneoeenaeneosneo0eaeneoeneoeenee ee 08 eG 0© 8 8 eC 


| | ——- 
oS 





t 


, « 
i 











PART NOw 4248201 TENANC® TIC PR PART NO 4248202 
IBM MAINTENANCE DIAGNOSTIC PROGRAM part zo. IBM MAINTENANCS DIAGNOSTIC PROGRAM Pant gok 
OE80 3340 CPU AND MEMORY DIAGNOSTICS: PROGRAM E8 MOD 12 OE90 CPU AND MEMORY DIAGNOSTICS: PROGRAM E9 MOD 12 
OBJECT CARD LISTING ~  €RR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
< 2 DECK 4 
THE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS D E A INDICATE NUMERIC SHIFT. Bae 2 aglave SEQ 9 
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96° ~ ° 2 FREP Seereanss 
C i SUASSENERERESESE LEE SSEC ESSE ES OSS SESS SINR SS EERO RR eReTES SS eSe te Teese e eee 
ee e e e s e e e e ese e @eseeen00ee0 @aeeesoeoes ~ = 
*GBK GBD PN 42 48200 EC 827804 3340 CPU & MEMOR Y TESTS MOD 12 84aa84aa 0£800000 2 acess PROG E9, SAR DECODE reese 
. ° . . . ° ee ° coe, (ee oo ce. ee °,,e O 1] *#8898¢ THIS PROGRAM TESTS FOR PROPER DECODING OF SAR BITS #48996 
Tt- 2:3G61"0-D -GO m33e jeennne €] O-A "H NOHD <E8 A Q Ama AM EXB G < HE BA HE /j P,OOEBOOCOL 4. 12 **een8 §, AND THE ABILITY TO ADORESS CORE LOC 16,384 t049% 
13 #%ae48 THROUGH 65,535 CONSOLE ADDRESS SWITCHES MUST 440088 
BQUOE"|  ASTO’ QBaE-ED<”” = <C7Z°CC-EG/1°° —ASTO> OY*a-"OOHD ABLO/ OY** OOHD AsEO $1E0EB00002 ;¢ 1s saeese BES SEE POR SEECIEY “CURE SREE® ssesee 
Ere Ansecal / : CG 16 KEKEKRSEEAESKKEKAAERSESSEESSEKSEKTESE CESSES SEEKSASEKEKGEESS SARE TESEESESSESSAS SSS 
oe eo se @eeee080 e eeeeoaoneseneaenaneneoeeo @eeeeseeoee eo eee eeseeeeeaenosdeodeasd® eeeeoe 17 : 
TOOBIA G$ HU@ GE BOH*ABE C aD . 9Y*0E800003 i? 
oe 0000 FO 7C SF 18 HALTL HPi UNITS,TENS INITIAL HALT 
E"NtsE7%=5DC"PHS ="7MEFL 1° °C” "FR ASC’ RA SOQ 12010630750 828753QU0E800004. i9 
0003 30 00 0050 20 SNS  CORSIZe0 STORE CONSOLE ADDRESS SWITCHES. 
ls 0007 3D 80 004F 21 TESTL CLI CORSIZ-1.Xx*80" BYPASS TESTING SAR BIT O IF CORE 
0008 F2 82 12 22. Jt TEST2 SIZE IS 32 K OR LESS. 
OQOOE 3C 00 8040 24 BITO MVE = X*8040',xX*00! TEST SAR BIT GO DECODE ANDO ABILITY 
ae 0012 3C FF 0040 25 MVI = X*0940' »X* FFE TO AODRESS ABOVE 32 K OF STORAGE. 
cos 0016 3D FF 8040 26 CLI X*8040°,X*FF? GO TEST SAR BIT 1 IF SAR BIT O 
OO1A F2 O1 OA ra JNE  BITi WAS DECODED CORRECTLY. 
hee 0 FO 00 6F 9 HALT2 HP X*6F*,X*00° * PROG E9, HALT 2. ERROR HALT 
phy oat os : * FAILURE: SAR DECOOE BIT 0. THE 
| 31 * * FAILING SAR BIT IS 
32 * * DISPLAYED IN THE Q 
a = 33 : * REGISTER. HALTS WITH -O - 
0020 30 40 004F 35 TEST2 CLI CORSIZ—19X'40* BYPASS TESTING SAR BIT 1 IF CORE 
0024 F2 82 65 36 Jt TEST3 SIZE IS 16K GR LESS. 
. 0027 3C 00 4040 38 BITL MVI X*4040*,xX*O0! TEST SAR BIT 1 DECODE AND ABILITY 
0028 3C FF 0040 39 MVI  -X°0040° »X'FF® TO ADDRESS >16K BUT <32K OF CORE. 
O002F 39 =F 4040 40 CLI X*4040".X*FF® EXIT THIS PROGRAM IF SAR BIT 2 © 
0033 F2 01 5D 1 JNE 8B1T2 WAS DECODED CORRECTLY. 
0036 F2 87 50 42 Je HALT3 JUMP AROUND DC WHICH REMAINS AT 0036 
0039 000000000000C200 0088 43 XL50*08 
0042 00000000C0000 ‘00 43 
0049 0000000000000L00 43 
0051 0000000000000000 43 
0059 0000000000000000 43 
4061 0000000000000000 43 
0069 0000000000000000 43 
0071 0000000000000000 43 
0079 0000000000000000 43 
0081 0000000000000000 43 
‘ 0089 FO 10 00 44 HALT3 HPL X*00*,x*10* * PROG £9, HALT 3. ERROR HALT 
Ss 45 * * FAILURES SAR DECODE B1T_ le THE 
46 * * FAIL‘ SAR BIT IS 
47 * * O1seLaveD IN THE Q 
Des 48 : * seGISTER 
oe 008C 30 20 004F 50 TEST3 CLI CORSIZ-1.X*20° BYPASS TESTING SAR BIT 2 IF COPE 
. 0090 F2 82 12 51 JL RETURN SIZE IS 8K OR LESS. 
c Ze SLOLESTFISS EST RAMIEN SSS OS SS TSE TOCA SS TESCO SE SRST OT SSEST Cee heer errr KS 
54 8 THIS PROGRAM TESTS FOR PROPER DECODING * 
é 39 . OF SAR BIT 2. : 
C HT SESS ASSHESSEKEKASESASKSSESSESSESESSEVSKSKASSSSSSESSLAKSESSSSEKRSSESSESEHEVRSVSSSSRED 
oe wen ee en ene — LAST PAGE ooo — oe 











DATE 29AUG75 PROG ID O£B-0 | 
EC NO. 6827804 PAGE 51 Pe fio. $27064 PACE - oesia 


co 


“~ 











4248201 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


PART NOe 
PAGE 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


52 


MOD 12 


PROGRAM E9 
ADOR STMT SOURCE STATEMENT 


CPu AND MEMORY OIAGNOSTICS: 


090 
> ERR LOC OBJECT CODE 


MOD 12 


CPU AND MEMORY DIAGNOSTICS: PROGRAM E9 


0E90 


ADDR STMT SOURCE STATEMENT 


ERR LOC OBJECT CODE 


UA) be 
- THES 
- 
od 
o 
~ 
° 
~ 
= + 
o = Qo * 
On Ww ~ o 
Ouwuw o uw 
-*We x< + 
<o <XxZ e Qe 
ex eg wd 
-rD © “Lo 
rave oO en 
wavw @ <- 
DAD x re 
tees ond ) 
2>uZ a > 
ZE07 = =n 
2 
vt a 
N - = 
- a b= 
~ < w 
oa CHHeeeea 
OCHNAPSNOMODOHMN 
OVD VONVVOOOE EE 
aQ 
td 
o 
o 
bbe Lb, bbe wn 
Un tk, ih Aa 
ooom oo mS 
NONDO oO Qo 
Ou O oT 
OuUunOo wh me 
VULON O wo 
MAMAMU KL ow 
mOn~ak Ww wo 
Aaaon a <czt 
Qo000e Oo oo 
e000 °° oo 


Qa 
wt 
Oo uw 
oot ~ 
” cv 
V—) z 
Owe WO 
OnWd OOnm 
Leth Om be 
QOoOuN, rLD 
Zwo & 
we >+xO Qvw 2 
°o ilie OO x be 
a ae Ow ww 
oe aur we us 
Ww @o INZ Ww 
x 2 ke = 
bv xd Qo a4 
“” Cau Oe Wiel 
ome OOQaa nwa O 
Qa = & ome OL ww 
ONsIwe 2 CO wi 
' ter WwW dOke W 
Oe SE whe 
be zZOr wf aA O 
oud vd SUL ~AD 
< a Z2DrF WwW 
x Oaro = uw & 
aon} (men 
o WwOWO Wis Q 
bd Late ez Kim YY 
~e 
a 
ew 
Ode 
Oain 
eo w 
« a xxoO 
ce et He oe eA oe 
Ww Wi am IO oo 
Ow De otert othe moO 
HLA d= aeLamO oo 
axe ert <x om oo 
at VLE om moe © oat ont ge 
Cf LXmRK HMO mx woe Cot OF aOO 
«NM We oemede & Wed 00 € ato 
@ Rew KW Kw eX o OH OO 
feo OX OX oF QM ew emAZor 
ah INOW Ow ow ad aa ew ONVUOrt 
TORK ONlIKLOKst LLORO wwwe o 
LAMOTOO RHE HERON NNNIAN 
Oe Ze OCOU—mdO+ FZWOW Sotto 
OKDKURZMOBOH# VOY RW ES le 
7 
mod COOQ00O vote LC) 

DVL. Ek pes bat bt es bet me >> >ee WWW 
SOLAR ASIP OD Z£EEHO GQOOOO 
a oO 
ad o~ ad 
<x ae 6 Oru 
= wm ouwdke 
Oo uw < Ww BQaunN2z 

re) “wxszrwn atu 
PWOM DAHON GE NOM DHOMUM SIN 
Pe MMR OO DO DOD OOAIAOARAD 
°o WONPFO 
oO AIA MAG 
a ACAMAG 
°o 9e0000 
ul 
Q Qa N oo 
o od role] 
LMOAOWNNMOM WOU0O oo 
NOONMOA00 MMAME oo 
UMNO OMNOM COAT oo 
FPOOUWVVUVUO CHOWN OOMOO 
OOMO0 
ONO YOWUQ OnMor 
LUVOFMLOOO FFAPrO OO00" 
COME AOOMOR AOMEHA AULHtMo 
OSCVOOCONHKtet HNNNN NNCAMO 
MAMMMAMMMGAM MMMMMm MaMmMM 
COQOCQA0QGD GO00CQ 9000° 
i tae te Naw’ Ae 
e 
UW 
«o 
wd 
be ON w 
oO x 
od bo bm 
rot ome a “WO 
oa @ << om 
ah rN 
oa ex 
Q Ze Cem 
2ZLN> OD 
dO wl ZOD 2 
Nib oO Choe 
Veet = LL <r 
a ud QNnOQ 
Orta QO wa 
Vote BOO 


96 
97 


DDDDD2D2DI>p>p 
eGG0900000009 
Cd dad Ld Ad Md Lad hl ed dead badd 


END 


Oo] 

ma «=ClhM 
CEVQ FW ren 
HOURALMLOOmS 
CLULsWeDOTOSW 
MKAQOSWOWVADD& 


DROMAUMAPSNOMOROm 
MPQPOQOOCOOGOOraA 
mt nd ond eed ond ond onet pat ok ont wo on 


APT ONMONOU OULD Ue 
OVUQVOUIEL OU Ube 
CO99000000—00 & 
OSS0Q0000000O0 & 


Oo Go O @ 


SOOO Oo Oo Os 
Oa ae 
uw 


o€ 


PROG ID 
PAGE 














eeoeeeeeeeseeevseeeeseeneeeeeeeeeeeeeed ®@ 











IbM MAINTENANCE DIAGNOSTIC PROGRAM 


o£E90 CPU ANO MEMORY DIAGNOSTICS 
SYMBOL T LEN VALUE ODEFN REFER 
ACOM A 002 0332 0094 0080 

ADLDO A 002 0330 0093 0089 

ADO A 002 O32E 0092 oo7T9 

BITO A 00% QOO0E 0024 

BITl A 004 O027 90038 0027 

BIT2 A 004 0093 0066 0041 

BG0T € 001 0169 0107 

BUSY C 0OOL OOC2 O104 o0s2 

CNTFLD A 005 0337 0095 Qo714 
CCMHLT A 003 0300 0076 0074 

CORSIZ C 001 0050 0105 0020* 
DFCR C 001 O0C6 0100 ooso0s 
DFDR € 001 O0Ccs oO099 o07T9*# 
DIAG Cc 001 0002 O101 0081 

ERR C 001 OOCO 0103 0078 

HALTL A 003 0000 0018 

HALT2 A 003 001D 0029 

HALT3 A 003 0089 0044 0042 

HALT4 A 003 OOGA2 0065 

PAD C€ 001 OOFF 0106 0061* 
READ C 001 OOCl 9O102 0081 

RETURN A 006 OOAS5S O07] 0051 

SECD A 0046 0319 0084 o0sE* 
SECD1 A 003 0300 0080 0090 

TENS Cc 001 oo7c 0109 0018 

TEST1 A 004 O007 O021 

TEST2 A 004 0020 0035 0022 

TEST3 A 004 O08C 0050 0036 

UNITS C 001 OO5F 0108 0018 

UVHXYZ A 001 0000 0004 

WAIT A 003 0313 0082 0082 

XR1 C 601 O001 0096 goes 


TOTAL STATEMENTS FLAGGED IN THIS 


s PROGRAM E9 


MOD 12 


CROSS-REFERENCE 


ENCES 


008s 


0063 


0076 


0076 
oo77* 0078 


ASSEMBLY = 


0079 95080 0082 


0 


0083 


©@e0oe0@ @@e8e8 ®@ 


00s OCs87 O088 9 


conveeeenereuenee eee tema reanmt 


i 
‘ 


ART NOe 42482011 
AGE 53 
1 
1 
| 
i 
088 0089 | 
| 
| 
| 
i 
{ 
ROG 1D OE9-0 
AGE 53 


Cc 


~ T4-<€2861-0-DC° (G 


” + <a 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


OE90 


THE CHARACTER ~ 
CL 


*6BK GBD PN 42 


T+" :aG1+<"  "MC6 


eeeoeoeseeeone ee 


TH AS 


T+ B> 


eeseoaeeeeoeces 


_> E8888£79=—D0"PHS 


wet? 


s 
t 


ry 


eo os 


“ 
*” 








OATE 
EC NO. 


29AUGT5 
827804 


CPU AND MEMORY DEAGNOSTICS: 


48200 EC 827804 


**pn2-/HB HA fla 


eeeeeneceaoeanese 


eseaceeceaeeae ced e 


* GGD.XGF<71A _G 


ee eee e 


="7MEFL, tC 


PROGRAM E9 


MOD 12 


OBJECT CARD LISTING 


CPU & MEMORY TES 
*EC7*-DC2°&,0 Fa 
& C4- D"2-/Ha BC 


BD'S <BG 15a Ci 


@eoeaeeee ee eee eee 


oe @oece 


Fz 


ASC RA 





TS MOD’ 12 


‘ge’ alavivt A €C3 
eifa "37eH1"2 &i 


aFC/* JO>**E04H* 


$0 


PART NO. 
PAGE 


INDICATES A BLANK COLUMN AND THt CHARACTERS 6 E A INDICATE NUMERIC SHIFT. 
1 THROUGH 16 Ck 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THRGUGH 80 


8423a84ea 


e°p°sa4a a-E) ay) 
OH” <1" <a° 4?" 0< 


12010630750 


PROG ID 
PAGE 


; : 


4248 


Vp 
wo 
pe 


Ci 81 THROUGH 96 


0€900000 


é 8H 0£900001 


~#-0E900002 


cc” * =r" 0€900003 
P” 0 LCOOE900004 


1TOOE900005 


82875 3HZ0E900006 





o0€9-0 
53A 


rd SHHHSHSHSRHHREKRHERHEHHHHEHEHSE mp = oa 
ovr t(°« * w wn * mn v 
NW ibe oh * f+ 4 Ne & ZF erew F£ au 
ao . & * o w“ enn Nev us 
vr ‘ * Wy C4O Ww Ww DNAse “Bo o 
N ” e & vin oe & ad ab OUD 
rg ax x * UU 26 > doe uw be Oo ~- £2 eD Or NX 
Bu & + tea wa VN as uw 3 ML sma 
xz * Vor «Bn ~- ~~ A w £€ Odes 
{ of * -eO eid & Js a x a WY ZrO MN 
¢ ouUWo * mest Te 3 Q < @ oOomd 
Q OZ * EB waOraq © r) za x wt “MZq dO Q 
z {ome be & mMnoawor O x ~ ~ % a7 w~nZze =e 
oQnrd * aw Oo wg Oo GxtOowo Oxo Oo = WZOL sn 
be tOoduU oO * wWYrO Ta Sant Not Ober ~ & CW Xo wus 
ao UdxO = * erNZAWOO-m WwW wn s A080 KrUUK Oo 
ad ot Lead & Zud@aquZzin « xz O¢ xz Oa xz wo Buu wee ad 
aa => - * DYE we NM LO VZ00 V2Z00 2 €IOuowrst aa 
Boe Ud + - OOZWMdgiw On 2<z ub za & Z QOOrKHKZreOuMN 
oz ” * wa YWODWEDe & <Te ato qq uz q ud 
oowe * 2 qq 0 be a Le wa, Sew4, a“ AaMNECOOMWA 
eZ ad US * Se COORYO &€eD Oo wa Qa wa QO wr DMOrrUD 
ZD> «= ot * WOW WOOF uw > Wi wus aod 
wml) og * Z Nd de pW pe mV be eA be fo PV 0 pe bp Oe 
wor UL, wedi, ~ .) O wWwweewutu ww dA Us WU ad J IL LL 
rs 4 - o — * CH eNVseOs CH Nj Num YW CLNODNMOU 
Ziwixus ” e = eee eee ee ee e es ° ° eee e@eoe 
oo = a + = 
me Le <= * wo 
eA) be * wa ~ 
aq ° ie ? Pp 4 No 
UWINe uJ * Wd Han - - ~ 
QO ro wd + i_- NxXa N N N 
edn ZO ~ * wi N x oem am Oo on 6 am -~ ~ 
Zwo , * ce ae <— on NN & Nw x NN NN N 
Whew Cet +++ +44 33+ 4443 + a x wot NCE ae eo ea e ae oe % « 
ZeaZz LONNGOVYADNDVOYFONOOF Na wiwn xx ON <x ON Moe ON pd a 
m=O =x aHMNAUNMAMAS ES TUADOD & v BST © oo wo oo = “co w ° » 
ade it ww * vt AMEN eoNN Oe NN Ge NN OQ oN coeW 
oman OL &- OQOOQ0CCOOOG0OO0So000 ~ Ite Oorw 80 we CO ww 6 Ow wow 
tBu wt be be be bo be bo be be ope be pede be bebe Oe eo era Foo 008 ac OW OO O&O CBO SMNo 
= ria < x * oqo0odaro ©00 Ce O88 Ce OO OO “GO e#8#f9 
or UA a ooocoedo “KOO KX COG KRM OO xO KKKO 
WW Zt CKAKMLAKAK ALKA & Cee eee ers ce PF we PGF & Hw OF eo & OO 
rJOuw - OJ00000cqQ0o0O0qQ0q0000oOo0:[d6 64 EC 3E HE ew em OE me me meme cee 
= hoe ZZ YVNVOUNVOONQULOOUUOOU ¢ ef ONNA eo Nee AN e288 NN 2b 2& NM wN ee NNN 
a * samen SL oe heme CK mem ORS Xm 
~ ANNMANNMNNNMNNMNMM Ss -& © NNN KON KN > NIN OK ONIN 2 OKN 2K OK ON 
m Vo Pree Ree mi mime me ONE em orm ee fe ee ewe Se eo 2.5% o off 
N NM NNMVMNNNMNNHNMUNYN € PO Cem RNY KS eres ee we — wo wre 3 
ow bh I aNe X © & omelM eof et ee Ret fe Met oe MM Met em mdodedt 
Co rrr rr rrr er reer mr © @ ox ewww 1 | ow Cow 61 ~~ 9) ww & cow + 1O~ 
a Oo * at OMI NEEBENIN © CEB Tere LlEe FNKTB TFT UNE NICE 
o Qo % Zze ZL ews WY Om UNMWOW DY mZNentZeady 
= Z QHINMEMOPVSdQVOWwW # SELL K CIN ZVH Aes Ze g ZM%rS Z uve de CUvarewn 
aad # eb See eae Zeke Se Eee aE eb a hh be 2 OC eh 
2 ~ * We We GOKeOK OFC COOP COOSA OwazQowoomm 
: bars . SLKAXVNIOQOW DOW WW DYDMD OVOOMNO O OLO¥CCOwWvV rR 
ud * Od 
ae * 22z : 
w + wee OM ENO “UU We OO Wet OW ees bod post bee) 
od 2 NADAL PSP ZWAZN Dadal Daded edebadudad wetdadatad oS > add > > D> SS 
x “ * VOILAEZVMVELTZEVO 2AM dorwey Aww «f CLVUVWEAZIVG 
a w * = - 
Oo wv * a Ww 
Oo « * = “a 
“am 23 * ” 5 
a QO & us 
A SHSHHAHHHEHEBPHEHSHEHHUEHEH HEY a a 
z ee F OANA SND DKOHUMG TiN Ol DROANM Oe ee eae a aaah OUI IRI nie ee en 
< ” Fe PoP PPP POP Pho DD ODD NODDD ODPM RMAABKHAHRAHROO OOOO OG GO ed ed asd ed dod vad ond ostod NOONAN OIA ALIN ORLA LEA CALEY 
a oo - A end et cd ed ok od cad rch ed gel ek nal gach mh re reed ed ond peed ad rad med oad eed ond od om nd vod ed pend ve gmnl ow ened od wo 
> mm WI 
Q to 
2 nm of her 
* 25 33 
wW o 4 oo 
- < 
= = 
” Qa od 
Qo ra) 
z > ~~ 
oO x ° 
<q Oo w < WONG oo w oo w oOo Wl ° « 
= = S ae PPA On oO Pr O Pr Oo g o a 
z= WwW LOUWUWWOLOOP au OUWPW OLUGW DO amt Worn eu 
S a et RODE UWIOR ROP WRANOm WROOr Ww OUrtNOMay _ 
2 2wo WNOQOMOHAIN Ortet HON BON ett et HOMINID ILO tet o 
: < . FOOCCOOSSOO®D TOO ODNDHOGO OUDWOS O OCWMOVBDAMNOD a 
ad > a ONVOVOADYONSO Vike WONWK WONWK W BQUONVOLON an 
5 5 oO BMUAIOONdM dw DIE CHUdCS dGHurdd dad OMdCUONOdMUL NO 
oma 2 OMNEAWAMNAPRON FED LMORO NOOL M ~POOLCEdIOOY 
< COCO at AIN NNN NMMAMM TTTFT WNW nNHDOQOOCOPP 
zt a OOCAOCCOoO8S SOO CoCCoO Ooo00 3 OO0000000 
i: 2 we OOCooo00scoo0 O00 CCC09DS0O C0000 ooo000000 
2 uw 
~~ oO Ww 


OO Oo G cs dee a waa eps 


C: 
: 
c 


} 4 


| 


Sree ee, oe SHHHHHHHATHES * Bees seer SHHESHOHHHHEHHEEHHEEHHESHHEHHEEHEREHEHEED 
A % tad 
@ * ® - L> 
v 2 ~~ N Ww A OD ” 
Nn + nan ”" 0a & Ww a w 
vt * “Zz n ~-4 a - ¢o i e 3 
* Oo wn o LZVN=L la ef x 4 
* ome Ci de WO wa ~ Q Ow ow .. 
* ore Or NA © Za Kf ot Qa We Oa e 
e w qe aAW « WO << Me << ez NO - 
g ea pane 10 5 8 
a oe -_ rnd e 
* wl Ce be qeeQHm © Dw et “v Aaa «OO 2 ~ 
ew *e¢# & ww O Wan U2 Uap x 8 - Oo wd Use x wou 
“eo e# WV belles zo el FI Ne YW mee Qi zaen te ‘ = oe 3 OW 
@< e Us mice ZEW Of OW = *D DPOnNGANA & Wad Ws < vn 5 ad 
ae * - DOO aew WwW Wet Ox ib, tbs at Ww &O Us 7 © i Mw wwe Qo Qn 
* UG Zuw wee we FZ WO a <q wd Zt Sad ONO - be 
* wm ow We WO mviddow w “mt Ww & Ow WiHMFo vw 
* «tf arr Oe We tk Ot a) Ox OuY gue Zz qu 
ee D NO ZO PADS! MMeO OW x= tw q KZ mp~erett 
tet a <ad emails <f a<z< ©@ eaW Orn oO dbcoooae - OFO wd ~~ Pat Oo ww 
et ms A x Wei W La WE ial Ooo0o0do0o OWS Wad Q DO =IOOND w VA 
* < O w ee OY UOLe yeu O Zi OMHOM GM Nedt eto eet < te Aad 
we & Mo ws NO On w— ~ {Pt eeeeet ( en Oo Awe ub Oo 
& ond +aHZXr OO €O © 2 we a Lx 3D WA uw & 2a 
* - B2we OO—- eMOrw Zam dao Ou. ud = om om © 
et = mero uw oO Jeep Oude w we Wita- wT Qa ABS 
*# 2 Are a "Yn NNOOTwWA x = <i, aE WD ue mO 
* oon ULL) othe Det) he OF regryy ux ai 3 teu 
$225. EVE Co BaG5 O SHret aS 2 aisano “Se 
wu em Wer wWOuw Us ee rs) i 
*# “YY OOO w Cee>e OF TF WO» us Ox O2 a UWL §=e 
* uu Zai20 QO WOXCOLOKLE YOR |} Oatz—w wu XS latest ON 
e# Qe OO OWeOTWEO VOw mt Ne Ors Ww Ooo00 rez 
% ZF Wee us ra “WO A wmWwoO © omteon or oO ama 
* SS OQAresxsw © bh Ue Ye aoOW WAPSMANAOO WEE Om WwW Ww AIimMdao wodw 
# Cee WM CO KROSS Smt ae | wctemt end tentent fe aooteiw oa BS Few Zero 
e ww CWDS FOws uO OF bd eQ a} OON0I2Z WX be sd xt ml aeatet mE 
e& CO Ae Ta ¢£ KOMO SYUNWPe us|! | wwo -O a {OoOO0°O £eOr 
# O QOm Or <0 rO cae TNE eed od tL) kL az « eC OW 
&# VO Cea f UAW SOABOUWOW & WwW Lead =O he Or Oe is Ga IENOOM Wt 
Te WwW O Gu e@Deae OO wor w Ze 21 bdddddd OmwO down MA & OPWWEE mun 
Ne CO wwe wo Za Ze eee OOW WwW On Ue C29 Op Qe aad CB UW I laden WO 
* Tt atwwd-Adnw <a - = CPLUOUaSIM er O ww 2 O O 10000 OAaxs 
OH © Vile ms CjOCKwrwzrenw M9 etpreeue ZNOKH QL oe sh 
» << &» DO Ws rPOx re RKNKO WewW Oo a WW I ¢ Q ; Oren 
Of YW NYS QuBre aw ex oO 2He O rele wOor © Wf be et 
N Ne (ab 908 x OW WwWWMHrexo Od ZIM ST =O 
ot * MDE Je Tenwleowuow ra QOWOWW OW of 
Ne Ww WM ww O WOOO rT O * Kel eeow & Ww 
Qa ee Ww Lew Sree ada Fed BZ J WO ad ZOUICC be 
Qe oe ZOO Bae OW ww dae & CE~JOwr<w O 
= me OD  entp ZEnuUwei.aTZEat O FrNTAOONM& FZ 
- Of O Ox NOWNSRHO tH EKOrM 2 
z we ££ OOdW -~- = ee 
yw fOO 48 & XH DD Ven 7~ ~ ~ W Or FO 
Pd a2 2QO We N “ + ~ 
w be e Abjone & 
zee fA & Wi> tw 
wi @ UuGdw mOrmeaor iW 
 Wwee & rmOanO = 
= — QWnM-e % YR iEw 
ec w “i * 
ow ~ * 
Q « *< * 
eo > .% 
wv D FHHHEKERKEHEHHKEHHHHHHREHTHHHHHKEHEHKETHHEEEHEKETHEHEHHECHSHEHHHHEHOSD 
= 8 NA PAO DRONES HOMODAOHNAS HA OM ODD ANAS NOM DROMNUMA GIN OPH OD OMUM ES NOP DOOANMEADOH OD 
<a “ = Ot od ok ed ot eat toed ot MEI ON NON NI NNN NOM AAMAMMAGONS CPPS TSE AMAMAMNAMRANONOODGQ000 
or” 
oe “A @& 
a Oo a 
z a 
(Ss ) oO <a 
wa < 
- os 
a” o 
a 
2 ~ 
oO a 
< oO w 
ve = 
a w © 
= vo 
us wv 
1S) ao » St 
2 Ze wo 
< aw 30 
2 “4 ar 
w > a An 
- a Oo Ne 
2 w 
o~ =] oe 
< °o ° e 
= 3 wal = S 
us 
= ze ~ 
oO uw 2 qW 
oo oOo w Qu 





ow 
Nw 





4248 


PART NOW 
PAGE 


MOO 12 


PROGRAM EA 
ADOR STMT SOURCE STATEMENT 


CPU AND MEMORY DIAGNOSTICS: 


LOC OBJECT CODE 


9e@eeeesg eee 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


OEAO 
ERR 


1 
‘ 


| 


40D 12 


PROGRAM EA 
ADOR STMT SOURCE STATEMENT 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 
CPU AND MEMORY DIAGNOSTICS 


ERR LOC OBJECT CODE 


OEAO 


ee 


atl WO t od 
Ww =z ~ a £yvsz o mn 
é S ofy 42 ete TwS % oe 
* Ow ++ % Q pw 
e WA te * oe oO 2 am woue «K To a2 a °o 
* &£D¢ &e * 2 te oS aAwWO Oo SwreZe roo wie 
* Ww ODO #e * w ery x > wUOReEZO wx & - om ee 
*e MWS 4 * = Tur j a hs ms hd ZOQOW wea ot 1 ai ad a 
* 2iIm «#4 * = WULLU. Lule eee &-e O20 Sanz qu 
te Wp He * r+ « Ove NY ANS &- Fe zon =zZ2 
* sb a * ” @iot us WW www duo Wx Ww Ow = 
* WWO #4 * ” ge a a aw eWwrPsBO WOW Ow “a zy Co 
% CijF te * <q ao =z ‘oO - & Leo wf CwWeo mee @ Aw om 
e WO ## + a Rep =~ noqvw aoa Ss! xoO> ww au 
*e E< "+ * > i ae We MONITOR wu OrZs ad = wus 
* ze #t * a va £ - x= ee ade Ow - OZO ad mw Ovo 
*# YWO #4 * <5 < Ol - #¢ KLIXC Guid aie bd “<a 
* - Ww 4 * 9° Om ai mu. Se oO F— & al - wo aa 
* 20 a+ * =P pu oe re Thee KOZ Cady rN ze 
+ <eN + * a @21 O “ ua Jon Xl me Wtce xOvO = 
+ = £& HF * az aw azar ax = <u. wero oa 
* Nw £8 * 20 ara xe Divot sew ~Z OC ee Zuid eS 
e 22 ee * Oe wv Orns OxOuUd Fe we ~N .S) 
* Ouw #4 * mE | eee We &FEeEE RPVOrW OOWE ee & us = 
# wWLO #F * WY Or Wie cm WHY W2e2TZ uwOorce WW usud 
* +e # NO ZHMnuw. Wt VYODYD MWR mOWO YenD mw 
* ne * e esec e e e¢ e ¢# 6 ee 8@ ee ° oe 
+ + * 
HHRHHEHESH * 
HEHRHHEHESD * 
€ ® ~ ~ 
# * & x ~ NN ~ ~ 
d * x ~ x ~ N “cm N wn 
* * - N 2 NN N ae <x « «KN 
en * N ae N Ce oe x< oe x oe 
wu . 2 - ~ bg — hK << o NN o apd 
t= e a -~ ° = of o N uw N = & 
*< * - a N we NN N ~ os baad ON 
*#> * rea << ~~ be. wre ~ x ou xz ou 
“aa. * e -@ ° °o onl, Tit ot o s} ox “7 30 
ew * ~ eo 2 °o Beoz & ° = ah @ oo 
* & “a DOWeted Nett AXreQ «KAN mmtN ~ <a = xo 
*O * s e exe NXXO end ef © exo = ee < or 
“=z % ‘4 Demme CELL wee OE OE OE omen Bu mx OL <>C 8 “ mon a mx 
<a * ® oN © ALY ee & NANNY Nee eee o Ns . Ne 
* * ~ ame Hamme Caen Came mmo -~ Cain me aan 
Rw e + Ne OOK NIAIKNNNG Mam HNN OS NAN N= KKN ON <~N 
the -~< * AN Of Oh ew ONS OO ONIN OK Oo NESS cn fom om 
“ez o ee e2A a MC Mw mm EK MN ww A oe ww KK am axe <eo we we 3C 
“<a Oo oo &0Oo ~” * ot 8 eon Be OL MMXKKOM © emt Keoe ox MMe e me 
the QO O64«40Q Ne * 8 ww tw Kw $+ Oo OO eww te XK fragt Sa? eo — es + ow we ~~ 
HWMNiceeceees Oe COOLCH Us * ates othe DK MRO © pws PONE X NIL et ond aw Fee NK TX 
+ ZOOOOCOOCOOHMYOKLOSO FZ ot tN FV mw ew NAM YW EEKMWNAEVI of CZLCLSLM CA NVM WwW WoO 
R#Or ewe evenness eeese WO NSF ike Ne eer i ed LULU) LUN XL KO Xe KD Os IQ ek 
RONNNNNNNNNNAINN MO OF eZ RRNA OS Se FREER OSEAN PUSrZ Pe Fee SE ae 
Fad Deda adadattotadead ted Wi © + NO NHK FONNWIeaeet em | mdeAC qudqO dw sam OO CE 
Fa eee SECURE mS mM IMONNZNML CGIMOMeF LCAHWVHInTr NZMYY ww FIT ow OM 
ea * 
#O + 
*O DS232>>e - mo mw oe Uru we ls YU WW WoW Ww 
FCI VWOOVOUOOUN JGaAaGCGk > >> >> &€fadt Wo ea> - AZ Re se eZ eI dad 
ZO GeSRPOPeeSseale Se. ZO AZEHALEAQHVO AZSERMELICNIOD LID OD MOD O77 MWY 
+e SNAIL ed N ul ot 0° * - = 
H#HeVema OrOoOOZ0O oW * wr a Ww mo 
H#*EIMNULE XK OKMOOCDOOCO On * = w = Ww = z - 
Hee VOOr>oooVve0o NOUAine bt od wd - - <- z 
H#H#LOORPFRCAO AMT OWOn OWLS < —" - ome uJ ee — 
HROQONNGD. MYM MRAM MAK MR iu - pF pe "” a hn 4 
OH DROMAM S NOM DAOANMPSUOMH DO DONAIMS NOM DROMAIM SUN DOOSING LAOH DAHOANM SAO MORON 
OOOO Mt rt dt et tl tet et SIAN OANA. INNA NO MOMMOMMAMOMOS ST CES SETS TDMA OOO ODDO ODOR EE 
NNNININNANAIANIANNINNNNINAINNNOINNINNN NIN ANNI AINA AIAN AINIEIONININAIOINAI NINA AIAN OAL 

DWEeADOWSGAM OCU Woes 

NNNNNANMMAMGMAMAMAmH OMOO 

mt et eid ed toto edo §=CetOO 

Scoocoec“woooqeeeses c0C0oO 

N ue ad r =m ~ v wy w wo 
oe ua N oa oaro rn mh OS © om ~ aoe 
o ~- UO Mm 


OM ONSTNELWLEOOKL NNSTON POR ANODOE OF ANNU OD OY 
FW SFODDULAFOOR HOMMOACMDOLO OFBDO BDO OOVYW ODN wid ne 


° PP Otte LL LL IO RIONINL RT Nett tet tected tent tod wo 
Sooocoeooeos u0o OO DOCOULCOOD ouUccoocooouwSo C000 90 COSCO Of OO 20 
Oooogcoeoocoeoo 4cocoO 5 ed 
eo0oceoc odoooun.or WO WULOMOOLGOTOQO WOU! DMOLTIANO NOTON ASO 4O0 ON LL an 
SooooooonTODLOeOo QW NMIOOK-HAGDeW aOtMNNOoro MOONdCu daw daw du dad NSO 
TYUNDIOWONLTVORC MO OM OMOOMOGMOOY POWNORCOOMEdt WNWOO &M OW =n DU 
NNNNANIN MMA MMMM SY LTTNMANNNHOO OOUOPEPFEODDD BFOAD OC ddd ODO OH ® 
eS gang ed red ered ond 9nd 9rd ong md wd eet = —t panel at om reed pt ed gerd pees eon gem) emt wd pet mt ond et ed od ot od ot ond eat ort ped ont ond og ond ond ot eed pout et ond oOo 
Seoosceooaeeaescaes ao eoococcoces ocoooocooosss oe°ceeo 980 80cCO 98O OC po 
: tw 
ow 


oe WY O G8 OO GD «& 


= «= ” ww ee ee ule ky °o 
—Y LN WN ow a e Om wow ti Cs tA 
2 OG ano Oo Go = en M2Ze em ON O an 
oa Ondo 1s) Ad wu Are fe wi O nw Oo wo eo uJ 
= Oo te | WS us > - O22 wit uw ee UF - o 
NL x OF. Qa aad wn” us wn oe NN = Let 
aon tus Cotel aw N < ws we Ze wre wD om OQ 
a oO Fz Owes ONre cea > ad 2wu Ore WO - oO 
~~ wu WN tu we Wo pe us KW Ow ux LM o ee £2x~e uw 
OES > FAS Wand ec aqnw [. 4 un wo wu vt < us Box AKe=Ex~I UNI CO 
sxe OS -— CH= 2S Ue a> we ~~ aw (2 Ww We wT N NOM Aw a 
eit = © =~” a th ~ © « 2 oo am OC ea wita Go 
z ew ee OO mm O a oa aw ao wad CO ZH Or Wetud ZO ake Zale fom 
QO ao - ize gz 220 <x noa -~ OQ Ors WV Ui al QO2Z4N “a? 
eO ee OM WO i ==OUwW bw HMO QoQ <_< od a Ub beados Od mem omelLts ome ow 
ery die Me ox pee z2@ i uo = 2 or wu te be eae ou 
“di ae © wtgo «a - «A So wna av woo a ox N a< 
ea aO LVUH< et AOL ot ex “ oa = Lette OQ O20 Q mo0 “00 oO Bie Oe 
>< - & oa iax zx aw ex FOaRaZO Ode ft bebe me 
i= et - Ta - Oo SS < - <the us azz hu e 
ar> er = = a mm UOOW = " WISE =o. Oma “OO & 
2 @2xe¢ OW 42400 ao -rED>D @ => = a Ws Moai oOo 2 O> DD 22> «5 
bh OY Fre OOOZ preys Wo be uy 2> <aoer KW ong prow = 
Pauw “wt teas es NMe xe >rew i) a Wk ADDO c= Orem Yer bf 
woezt wc ooe q Wu =z auw uw < ru +CcoOwd Cow Zowww wii ut 
NEOuW FO 2220 YA L£xwHW nN NAR a ” Za DQOOLT OEM CIENY RY 
ee e ee eeoee % eee * ese e * e eesne oe ease eee e 
- 
N 
a 
<< 
= 
= 
N 
+ 
~ « 
N is 
cd = & = on oe eeuaee eee a 
N oan Ox =] Na ou. rOLO O41O & 
x N Oe Tt avn Ao BN MANA Mm 
x< « oN = <x es seve eve o 
tt © x <u NN x< = oo 7 <x mK MK 
am o oD wee rs oO NE Oee eeene eee e 
<x - © om & <<Ke ee ~ Oo wt Demam —me em ae ef 
Geeond ood ~ NO-es e OWL N e HO eoNN NNNN NAN ON 
amt Oe ot cow mm OWL LL em KAKI baq- 4-4 Leake eae 
NOOO &- aoe « <<< oe NNe ee e a xN &82<aA & >< >< 22K KOKO 
eeor "Nn ooo So eee QO £€4K«KK ON °o ~ eo me ert -— on SOS OF © SF CON Hie 
< ote ~ tn Ah UL QO wane aq <M eee Oe oa t= mw KH Neen Aju ONG wee ee ee ee Cp te ees es Cee 
om <x eee e NN o comm co 2 bt eet © LNNtem Sete Lt etrt tS twtr Or tee 
wet eo oem OC <x +e x wwriNet Xx & x oad RK+e— KEEN KI Mel iext i exeix 
TAIN Tet eeertem ee KK e NTC eNK © ome eVEN Ox<KeEOE oo ONES ode ou) © 
WX tH wor FZ O & Wee e CUK«K Khe Sg o TOCrwWZ we ew wie we Zt i wo ot I a rer 
m= QOO00xX ocoeog¢e~ OC duw Oo Ker ee eWOxXxXa OC eweew KX Www © Ndi WNL ZU OL LL OO, LL 
reid se UOUWFPAIN W& <OG be Baw E LL ANNNN ae FOO ee Oo bebe oo Lhe SE ale 
FW-QOO00O" # fe Wald ©§ VIO © AEC TWe dO © eet YEKMNO MAO MwWeOoOnNatOOMoOWM 
NOdadaddO MMM KM TOG K MMOOVEKMNY KM OCKKETAY FOOT FOUR PLOULFOULFUrF 
a 
QUO a my) wd ad et LL ad ad ome (Ss) Cee OM ee ee | 
OP ad ed VOLO YU aA >> Qa - 2>>JIZ0 Qa VYVOuUCOdW UO wd VAP CK AP dP ead dP dD 
AZQODEOD MW 9DOO TF ZEAG FT VNATZZOMEAINQ TF OOOOHOE AID OBVTOPONLVETOVOEIOLS 
ot ot °o [- 4 a vT we N 
wd a Zz 7 tLe oO ee ate zN 
&O ed gee x [~ ae) x wa &-oO f ee 
Zz2<z id oOo < < <n" < qi “WE - Kez 
oo ” ow w "wa Ww " min &-O 7) wiGs 
Nod = z< xt & x= a rie x aq <u oa ext 
DKOOANMNA ST AOM DROMNUM ST ANOPM DHOQANUMS NOM SGHOKANMS HOM DROME NOMOKOANMNS HOM DAROANMLEW 
MOG ETS T SETS FOMNNMHNMNMW OO 09H 000 COREE EEE IEE DODDDDODVDDNMMARMPARPAOODOOO 
rE td ed raed eed ed ged md pnd on ek md ed and eh ed md eed ed Om cad end ome md md ed om md rok cmd rd oe md em md cmd Om ed eed rend ened cn red med yam Gd coed med ed omed omt ned Pd eed em mM OO 
«tty rooou. 
ad Qoo00G 
oo ooocKeo 
oo oeooo00o 
+o a 
an m 
So ~d or 
Ow oa ~ a “Ao ON 
Perr < or tad 
wooceoo coco So MOOmM O OFTOCOoOMoHSa oO MO &FODMO LO LANOACLOM Ziti, 
QBOQOOOOO LOwo wb NOOO Ww @Gaye~TOon0o0 uu NO ASODONS Ora AWM-OMMPrPOMManm ne 
HONDANE OOOMF Oo Caa~Kr OB NNOLWLAONE O Ce CxHanOrf COW NEOLONOLONL.P woo 
ooeyrvocoem uuLuad S m WOOO << OCOCOULOWOD O Sone 2Oo0O8 DAO DONHIMOMAND Ma o 
yO 
MOWOOVO NNNOOO CO VQON GS LTNOVUONOMNO O OCAOOCOGBO COWKO COU SBLOOGCOCOOVOOWO an 
MINMONQ BwUMOTO Y% OO LW DOrOrkLULMO & TOOCOOOW WOddw Woo WRODoWwoOODwWwOW N®D 
MILT OUR SECON SF MPdWet FS ~POOMORBOO $F FPOMOWOM OROOY EFdOO OCMOKOLNNODWed 
HK ODOM POSHMS fF Ceiq{O QO BDNDVOVOVS AO COOOOwWW WWW LULL QOOCOSMtedAttny e 
eqeo0ceo0o009o o900000 8 cCooeo Oo cooec“eceo CO SO00CCSCO COOOCS COON ttt aaaetetmtated Oo 
ecec0so 900000 S&S SOOO SC COOS0C0O08D0O G8 COO0G0OD0 CO0CO C000 GO0C000000CceSo = 
au 
ow 





MOD i2 
CROSS~REFERENCE 


PROGRAM EA 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


4248201 


IBM MAINTENANCE DIAGNOSTIC PROGRAN 


56 


CPU ANO MEMORY OLAGNOSTICS: 


OEAO 


12 


MOO 


PROGRAM EA 
ADDR STMT SOURCE STATEMENT 


CPU AND MEMORY DIAGNOSTICS: 


OEAO 


ERR LOC OBJECT CODE 











| @ 
oa & 
3 5 
w 
Us 
@ 
a mm DOOOMOMMNAD-4 
ao MO OH MNnDAMLN 3 
wd QD ated tet MINNIS 
°o (owe @\olelololelolelolo) a 
oo 
* 
uw Ss) fm POMANAN SO wus & 
an ~ MH CANNDOAGNLIHNO Ooo 
ot “ Notte et et IONIAN ad 
oO o eo soo0000oceo0eo oo 
a on DO POMMOY IMOD 
ey o MH OMNTOE ITNO 
4 nv QL cette tA INNN : 
o ° eo oo000c 0090 
* C2 
ol w NW ONMWOEME ANDO 
a Sa MM OHNE AA V NO 
wf “ Nb ed od tnd mt ONO 
o ° Qo oeooo0o00c:<.oo 
* * * * 
Wow Ws) a" TF OWNOC OCHA 
m N™ 0 vv OH OMANMNODTOLSHNSO . 
Nn N N Qt ted NNN 
°° ° ° © 9000000000 ®& 
% * 
mA ww Sg AMMAMGS ODUAMOOW 
7 met 0 a DWOAINUMGODOLING : o 
OU mt “ N EN ed et od ond et = NON 
Oo ° °o °Q [wlelolelolelelelalolele) 
» * ® * 
ma Mm vt © WYOMMTOMONOOY 
Qo « Oo 0 DNOMNMODOYNG 
OC mt N -_ ead Nf ot et end odd mt NEN : 
o °o Qo °o qQoococeceoee 
* + & 5 * 
od MOO0 od KAN Oo N LNUINNMGOHAATM 
~ Oo60 wn © OW AM MA DONOANMODOMSOr 
~_ NSA ~ ~7 NN eH ON ond A ed ad et mt MINN 
°o oo0co oO oO eo 8. 0o QOoNo0o0Q9C00COO0008O / 
* ee * * * * *e 
tf ON COUN mo vw IDO O BM MAOANATNNODDONM 4 
N AANS wo wT @o PLOUMN ON NO NLOAKNMODOMTOP & 
wd end ond odo Qjet wt ~- MINA mt Ned IN RN et dN 
° oo0°0 oo ° o CQE00 oC 30 CoooOOEQCoCoOOSCGaSO 8 
* * * * * * 
Tn Ooow gu nN Oo “ HAOMD FSF LO YON AMNNONOANOP 
PNOO MOHnO to rw @o CDNO N OD FLOAINMODOMYTOPMN 
NAAN eat detent New ~~ A ~ hd Nem md mt Ni adr ond md ed ad ONION A Ned nd / 
0200 coca oo CO 8 G000 0 CO BOD000000000000 . & 
ee t &#H% He * * 8 
”n MAND Wma me tn Ot OHO EM FMON DONN AGKNAHRAMTOSOINGA © 
at Nios MMOOr uw wre Or FF WN OMTO ArROD MMOOAMNARM, OPNN Wi 
oO SANA atten A re) Wet wet NAL MN OR Ne ete SN tt tRNA 
2 olololomE olelelole) °o oo 00 00 CO GBO00 0000 oCOGQDOCOCOCORC000N 98 
tebd) 
of % & RHRH ee * * HD & ve % 
LA IIR A Re OA Reet OD ORD Gre itt fan NODRDOADSO OHODOANNNAOM DOHORADOSHMNDANNOCO LO 
bh AROTHOMGOaINOCOVOT™ mun MOAMMNPSONMN MODAMMOVAEMAM MOOOAMNOAMSN-KOANS OY 
RAS ONIN ed rd EO ON eel et et red NI mt nd Ajeet Ph NLA ond mat OND em tN md Aad ON red ed ead ed md NY med rd et ered od ered ed ONE Nod od ot Nd 
[nol ololelelolalolelelalelelelolele) oo OBWOOOCDSO DBDOSCOOSNGSCSOSOSN GoocKC900C990SOSC00C0909890 
ZF PHNAMOMNDODOPOAD DP Ot SMM ONOMNDALT NDAD AOMAONDNNOMONNSUY O LODNhOA @ 
LL OME RAND OE DEMO NOE WOODS OM OMMDOOMAAND ADONIS OMON WN ANA N 
UW) Ned end ond met NIA IOI INIA Ned td nd ed ed rd td NINN N led ot NNN te NON ON NNNNNN 
QD BOOOOCDOODODOSCO DBOOGDOCCAOOAPOI OO COSC OOOO 99 COO80O” 2O900 CO 900000 
W WAMOILE ZODZOOMWN GBGODWES ZONE ETH do OM cot DULL UOEEhMOMODLT OOO N wt) OUAL 
D> BFOONDOOULWNNN VOU OMVOOKIEKUL COE WMOMLNVOAELNMGMONRWFOO O MMAMOMMA 
wd AQQOCOHHONKO cteted ed ded ot ht OOOO ONOO nti OQOOOM Ma MMOONOOD O ond oart ont CS) ont od 
= DDOOCOOCOCOSGADISO 9 GOSQSOSOGCOSOOSASSSCOCGQCOCO SOO 99oG9GO00089 oO [olololelolo) = , 
o 
ZAUNNOT LE NMMAIAN PMA OHMS MMO MIM FMA T NAAN SOMNAMNNMONM MCh ted mt NNMALINMA Deo ; 
Wetelelelelslololololel=i>\- ME elololololelololololololsielololelolulalelolololololelelulolelelelo mec) oeoo0oo qr 
Wiolclolololelellalolol=\o ME =\-llolelolololol~lelelolelololololelolelalelalolemelelolalolololo Reo) eoo0000 mie 
fe a€ddddaddaddda ddd ddd ddddddadddqddqdddddw) © aaqdcdaddq 
a et eK OCuINSs be LAO OCUWIO rt NIN ~ “4 ° 
Qo ber AU OL Ed EL et mY) POOP NWO nt WN RXTE LOW ~ ooo0o o 
DO GeHNZRENLALNT Rar RR WEEE OOONR WRX eK KD mu ODOOS we 
SZ NOMQNVEANERSL SR Hat dd ee III ZZ E LIOO KON be be She be be Bad ON OQONoCOoO ~ 
> VOLKOLXYHNZOOOMA Kadi IHNNNVOQOQOQOOCWWWI WWW IW EBNNNS OS a 90004 <q 
YW A€4edOODONODO0OOO WE TITT TLL CLI vx xX dd ASZZZASLCSLALNM rer OxX DSK 2S OE KOK Ow 
y ae ay “4 oy “{% 
7 ~ | . Sue wet Naat kal Le 
o 
=x x= = = x= an 
0 w ” — “ Ww 
ont ae ° oO a a a w 
oz °o 
>= © w x bv br 4 
a ~ o N © v 
~ -— ext om ot a0 
wo ot lm) oe tl mt ld 
“ Fr HO BO WN WO 
“w~ & <= qa {MH ay 
eww =x <x =z ao 
Or = z 2 2 z ~ ‘ a ake own 
OZ D Sm Mes Lee ion od 
— WO O oO So oO < Ow 
oO O CX LX LK KX z= ow 
Za O&O fO xO «£O xe ed 
~ We wae Wwe wo t an : 
Vee O&O « a“ x a Oo 
DO & caw aus aw aw wi 
o2 tad as isd Ws ( 
tom OC « ae a x 
x Zz oa 2G VO OO wd 
Qa 0 00 Oca 00 Oa < 
~>2 Aa Cf XA XS CK ) 
aa nn a a a a - 
uw * & * nt 
a a 
aw treet 
oO 
1s) ”“ 
vA 
° ” @ 
~ - a 
N ~ 
a i a 
x< O % 
ry rd 
N od 
~~ o 
o ' , 
oO 
Oo x< 
- Ww ow 
x< =x oo 
° moO 
~ = Too 
N << © » ° o o {oo 
we wD YW oO wv oo o« Ont 
x< wie ~- ~- ~ We WY wWOO 
@ » e o e Wyo bog 
- =< < < x © xe -OO 
ze oa she lo lobe xe oN zon 
Nw YW eC 0 & © YK oO & exe WOu 
WD we he Ue ibe QD one wn 
KFS FE HM MH HH MOH . NOOWK ALAW 
azo of ef © Ff owW Wde eo ood acd and 
axDd a MQ XD KM KA LMM Lex 
oad 
z 
u x ad wt wd -/ Qoooo0 Q 
par a. a. a a.  alemlendand VOOZ 
<a zm t£79 £9 FQ aalNiO OOOW 
ee 
Ww aad « a 
- ws Oo P= of uu oad 
orf bh - bo bo a Cub 
2 ad ad oad wh) <z Nim < 
<a < < aa o wesw 
* = = = <a wd qoz 
APSTNOMADKROANMALHAO™ DHOANMHLINOM OND 
MEE DOOD DODODODABMPARHAHRARHO 
NNNINNNNNNNNNN NAINA ANNAN NAAN 
UN TOL 
Ae Uo U 
tte UL, 
eookw., 
o 
Or Qo wn UF oa : 
w So wet WO oo 
WoO Wi UA ELH WO AON AO oo 
ro moO MoO MO MO oo000 oo wn 
rtond ~vy 
wh OF OF OF OF OT eI oo WO 
ono Oo FO FO PO VUUWWD OOO ~—o 
«Zoo <r 
Wo ON ON ON OO ata At tO On 
au eile Ue LLU LL AMUWU OO NO 
ov OD Wee YR dO AMNAWOQ T0ad 
UW Wo CO OO OO WwW e 
potent “am tel tnt oak od rot od ond m4 mt Ariat OQ 
oo Co O80 OSC O&O Ooo00o ooo we 
- 
<0 
Qu 





| 
| 
| 
| 


IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 42482011! 
PAGE 57 | 
O€AO CPU AND MEMORY DIAGNOSTICS: PROGRAM EA MOD 12 
CROSS-REFERENCE | 
SYMBOL T LEN VALUE DEFN REFERENCES | 
x4000 A 002 0137 0217 0108 O212 0113 0118 0119 0124 0125 0131 0272 0273 | 
TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 | 
| 
| 
| 
| 
‘ | 
| 
| 
| 
| 
! 
| 
| 
= | 
: ' 
i 
} 
{ 
| 
{ 
{ 
i 
| 
t 
{ 
j 
j 
| 
4 
j 
: 
i 
{ 
| 
i 
| 
DATE 29AUG75 

PROG 10 OEA-0 

EC NO. 6827804 PAGE 57 


, 
: 


18M MAINTENANCE DIAGNOSTIC PROGRAM 


OEAO 


THE CHARACTER © 
CL 


> 


*GBK GBD PN 42 


T+=" :aGO"0-H Z20 


T4+-A5/187 P2fe-G 


A 


_ T+-B03#MA/D0"— B 
ae 
T+-C,aveCahco_ A 


© TD0c",-FHSH@ H2L 


eeoeeneseoane eeennd 


CPU AND MEMORY DIAGNOSTICS: 


48200 EC’ 827804 
(THDO'G:a G:Y 75 
HVS7 ~"HBCH8AsIB 
Me-H =Z-"J~A20 D 
<_€HD+ A718 58 


~/1C--1="DG6eCsEDd 


eeseeeeoseeo een ee 


PROGRAM EA 


MGD 12 


OBJECT CARD LISTING 


Cpu & MEMORY TES 
=D A®EOASTH_ Q6 
2° P2&e-GWVEOA KU 
” $08 G884H* a7C 


* a-DCaH &( eHA<aB 


S@eeeeoeeeeaeneea ne 


TS MOD 12 
EBHAR20 :,-FOUHa 
A<$2_ MEGA32C2-/B 
Oa7rCeazcooH® 24° 
G’+coula #- 


eaeaecevensenoae ve eo 


C 
T+<DiBHA-7HPI7KA "2AZA7C SSHH™?2LA ¢2B=A7B 28HH™?C= ABHeR """*" 
TH-E5 QA Fa/4C -/54a-D83°)AB_EF OD_-FB=18"@P{"="9Q AV.EA/D4A/S~-/F= 
 Te-F01 °° MAG,Q «AVeEBTCMB PVEMHR “"EGHIEHACHQAUSE A/D4A/S>2-E3_ OE 
<_Te-Ge SF -7HARE@ AQZO? QKE,-E=U<B GG E0-C"2/0"05C™ 2/0X0~C"2/010+C" 
. sna waeinaepett gaat OTR Oe ete ecaaensee 
" gueese7e=eapempHs ="7MERL EC” Fs” *asc’*"RA son 
O 
Cc 
Ci 
€ 
C; 
Cc i 
------- ~------~--~------~-~--------~--------=-- LAST PAGE - 
Bho, BEET? 
Gs 
cc 
CG 


oo 


ny 
ee 








PART NOe 
PAGE 


INDICATES A BLANK COLUMN AND THE CHARACTERS B E A INDICATE NUMERIC SHIFT. 
1 THROUGH 16 Ci 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 Ci 65 THRGUGH 80 


84aa84aa 

A-ZB> sEN7QA°@YH 
a/SFalsraHcD_ OX 
*"tg0a.2 HZOASIF 


°K EB I-—-NC--1= 
“er 12010630750 
>" FD? 1eK, D04/H8 
DB GR, OGKTD4ASTL 


°70°<#Qa°tGD Al 


12010630750 


CL 81 THROUGH 96 


O£€A00000 
39-D P&E0EA000S1 
Rayo” *sv0EA00002 
6° Q-" ~BHOEA00003 
6 Q-" 3 LEOEAO0004 
eee" K9QOEADD0NS 
82875" OEADOG6 
"ama" L/O0EAQO00T 
ALI<” 4Y80EA00008 
~" #3" Q10Q0EA00009 
306H *#2Q0EA00010 


eaeeeo 


E-DOEAO0OL1L 





82875 *Qa0Ea00012 


oP A A PP ES A AY I TS DY EO EN A A AS RON 


PROG ID 
PAGE 





OEA-O 
STA 





IBM MAINTENANCE DIAGNOSTIC PROGRAM 


| 
PART | IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO 4248201 
PAGE 8 | PAGE SBA 
OECO CPU AND MEMORY DIAGNOSTICS: PROGRAM EC MOD 12 | QECO CPU AND MEMORY DIAGNOSTICS: PROGRAM EC MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT iy CROSS-REFERENCE 
2 DECK 4 ! SYMBOL T LEN VALUE DEFN REFERENCES 
0000 & UVWXYZ START 0 i ACOM- A 002 0034 0029 #0015 
5 TREP |  ALOSD A&A 002 0040 0032 0019 
6% SECTOR 25 BOOT C001 0169 0036  0023* 0024¢ 0025¢ 
7 SERSATESERE EEA EELERAEEESEREREREEREE SESE SEKEEREECSEREEREREEESESESEEERESS : BUuOT25 C 001 O1El 0037 0026 
8s * © BUSY € 001 O00C2 0041 0021 
9 ¢ THIS PROGRAM LOADS SECTOR 1, WHICH IS THE LOADER * COMHLT A 003 0000 0014 0016 0022 
10 * PROGRAM, AND SRANCHS TO IT. *  ODFAOR A 002 0032 0028: 0018 
11 * * , CR C001 00C6 0038  0015* 0019% 
12 SERERRETTER SELES ES ER RSEERERESESSSERAKSAESESLESERESERERESESE SEEKERS ETESESE ER DFOR Cc 001 00C4% 0039 o01i8*# 
13 ' -pTAGssC€:s«O01 60 0042 0020 
13 ' ERR’ € 001 OOCO 0040 0016 0022 
0000 FO 7C 6C 14 COMHLT HPL X*6C',x*7C* / READ  € 001 OOC1 0043 0020 
0003 31 C6 0034 15 L1G ACOM,DFCR |. UVWXYZ A 002 0000 0004 
0007 Ci CO 0000 16 TIO} COMHLT,ERR _TEST FOR ERROR BEFORE DOING SEEK , 
0008 F3 €O 00 17 SIO X*00",x*COe SEEK HEAD 0 | - TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 
OQOOE 31 C4 0032 18 LIQ ODFADR,DFOR a 
0012 31 €6 0040 19 LIO ALOAD,OFCR i As 
0016 F3 Cl 00 20 S10  DIAG,READ READ 1 SECTOR 
0019 C1 €2 0019 21 TIO *, BUSY LOOP UNTIL DISK BUSY DROPS 
0010 €1 €O 0000 2 TIO COMHLT.ERR TEST FOR ERROR AFTER OISK SIO 2 
0021 3C 00 O18E 23 MVI 6O00T¢37,X"00° SET TN BRANCH TO °0 
0025 3C 00 O16E 34 MVI B00T#+5,X*008 SETUP TO READ WITH HEAD 1 
0029 3€ 1A O16A 25 MVI BOOT#1eX*1A® 
9020 CO 87 OLEL 26 B B00T25 BR TO SELECT HEAD 1 AND RD A SECTOR! ¢ 
27 : es 
0031 OOFD 0032 28 DDFADR OC AL2(253) 
0033 0035 0034 29 ACOM OC at2(*e2) gm 
0035 0000010000 0039 30 DC X£5*0000010000* 1 A 
003A 0100010000 003E 31 fa XL5*0100010000° 
003F 0041 0040 32 ALOAD OC AL2¢%42) 
— +0041 0000010000 0045 33 pC XL5*0000010000' iC 
0046 0100010000 004A 34 ie XL5*0100010000° & 
35 
0169 36 BOOT EQU x*1698 : 
O1E1 37 BOOT25 EQU X*1EI1® 2 
00OC6 38 DFCR EQU Xx'Céet 
00C4 39 DFDR EQUu xX*C4 
0OCO 40 ERR EQU x*Cor € 
OOC2 41 BUSY EQU  x*C2e i fo 
0000 42 DIAG €QU X*6o! 
00Cl1 43 READ EQU X*Cl® | 
44 | 63 
44 IRs 
FFFF 45 END 
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PART NOw 4248201 . IBM MAINTENANCE DIAGNOSTIC PROGRAM : PART NO. 4248201 
IBM MAINTENANCE DIAGNOSTIC PROGRAM PART ZOl Pant go} 
OECO CPU AND MEMORY DIAGNOSTICS: PROGRAM EC MOD 12 EEO = CPU AND MEMORY DIAGNOSTICS: PROGRAM EE MOD 12 
OBJECT CARD LISTING ERR LOC OBJECT CODE ADOR STMT SOURCE STATENENT 
P 2 DECK 4 
THE CUARACTER © INDICATES A BLANK COLUMN AND THE CHARACTERS D E AINDICATE NUMERIC SHIFT. a rer seg 9 
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL 81 THROUGH 96 a TREP ceetaaS 
C: i HECESEEREEERESSSSESSE ESTOS SESSESESESESSEOSS SEES ESERSSESSSEESS ESOS OSES TS 
eo eo ooe e eo e e oe @ e eeeoaeecene eo eeaeaneeece eeaeeeoe 4.4 = 
GBK’ GBD PN'42 48200 EC 827804 CPU & MEMORY TES TS MOD 12 84aa84aa 0€C00000 13-5 PROG EE HALF-SELECT CORE TEST — LOWER CORE ‘ 
Z awl ae! Rie . ii ie se, Ye coe es Se ee co il * THIS PROGRAM DETECTS THE DROPPING OR PICKING OF * 
T+#-" :aG1Z<#Q (<G C3011 2<#Q &11A <GB AXAO 1° "aTTO O8aF-E BOH*Asec* CM DO Dp’ ezeoecoooo: *.- 12 * AN GOD NUMBER OF G11S WITHIN A BYTE CAUSED BY * 
ee eee eee eee eo @eeeoaeesceo eeeaeconea eee eoaoeoenene eeeeoveaeece eee eeneen @eeescseeenv e022 82080 eea2eee 14 & s 
TCOAH 0. AA A AO s#E0EC00002 15 * THE TEST WILL BE PERFORMEN IN THE FOLLOWING MANNER: 2 
hee 16 # 1} ALL CORE LOCATIONS ARE TESTED WITH FIRST THE * 
eee ees @e ee eee eee @ eee eeeoeun eea2ee eeese 17 * wORST CASE PATTERN IN CORE AND THEN WITH THE * 
EMRE Te=nDC"PHS ="TMEFL FC FZ. ASC. RA SO Q 12010630750 82875'Y80EC00003 18 * gs COMPLEMENT WORST CASE PATTERN N CORE ost ¢ 
Cc 20 * ADDRESS SWITCH WILL GE TESTED. * 
21 * 3) SET UP CONSOLE ADDRESS SWITCHES PRIOR TO RESETTING * 
oC 23 * 4) FUNCTIONS OF THE CONSOLE ADORESS SWITCHES (DATASW) = ® 
PAs 24 ARE: * 
25 ® - 
26 * (LEFTMOST) * 
ie a1 $ SWITCH 1 SWITCH 2 SWITCH 344 ‘ 
ee 29 * O TESTS CORE TO 4K O PROGRAM EXECUTED OO NORMAL POSITION, *® 
30 * 1 TESTS CORE TO 8K ONCE Y WC PATERN FILL. * 
LC: 31 * 2 TESTS CORE TO 12K 1 BYPASS PROGRAM XY ANY OTHER ENTRY * 
32 * 3 TESTS CORE TO 16K 2 LOOP PROGRAM SETS -EP- HALT AND * , 
| 33 * 4 TESTS CORE TO 20K & COMPLEMENT FILL ALLOWS CE TO SE- * | 
= 34 * § TESTS CORE TO 24K PATT USE LECT FILL PATTERN *® | 
ara ere le 35 * 6 TESTS CORE TO 28K 6 LOOP & COMPLEMENT ON THESE TO Swe * a 
; 36 * 7 TESTS CORE TO 32K FILL PATTERN USED A BYTE AT A TIME, # 3 
| 37 * 8 TESTS CORE TO 36K FOR A TOTAL OF & * | 
i 38 * 9 TESTS CORE TO 40K BYTES. 00 CAN BE ®& 
oe 39 * A TESTS CORE TO 44K USED AS A_BYTE GF *# 
je 40 * 8 Tests CORE TO 48K PATTERN AFTER -EP- $ 
; 41 * C TESTS CORE TO 52K HALT SET (SEE 5) # 
| 42 * 6 TESTS CORE TO 56K 2 
63 * € TESTS CORE TO 60K ® 
PA aa 3 F TESTS CORE TO 64K * 
| 46 ® 5) NOTE: TURNING ADORESS SWITCHES 344 (RIGHTMOST) TO A * 
iC: 47 ¢ SETTING OTHER THAN OO WILL SET AN -EP- (ENTER PATTERN) @ 
IA. 48 * HALT WHICH WILL ALLOW THE CE TO ENTER HIS OWN "WORST *# 
49 @ CASE* PATTERN. THE PATTERN IS ENTERED A BYTE AT A TIME # 
50 «+ ON SWITCHES 344. THE INITIAL SETTING GF SWITCHES TOA * 
| c 51 ¢ SETTING OTHER THAN OO SELECTS THIS OPTION. THE INITIAL * 
: 52 * SWITCH SETTING 1S NOT THE FIRST BYTE OF PATTERN. AFTER * 
| 53 © THE —EP- HALT, THE SWITCHES CAN BE SET TO ANY DESIRED *# 
54 ¢ COMBINATION, EVEN TO OO. THE BYTE OF PATTERN THAT IS *& 
i fo 55 « ENTERED 1S THE SETTING ON SWITCHES 344 WHEN THE HALT # 
DAL 56 8 IS RESETe THE -EP— HALT IS DISPLAYED FOUR TIMES, THUS 
27 ¢ ALLOWING THE CE TO CHOCSE THE FIL! PATTERN. : 
C 59 @ e 
LN 60 * THE HALF-SELECT ERROR WILL BE INDICATED BY * 
61 * 1) PROCESSOR CHECK & * 
| 62 * 2) '6* REG PARITY CHECK * 
ic 63 $ — SAR WILL CONTAIN THE FAILING LOCATION. : 
65 © THE PROGRAM WILL RUN FOR 40 SECONDS ON A 64K # 
. 66 * MEMORY & PROPORTIOGNATELY LESS TIME ON SMALLER * 
Ig o7 ¢ MEMORIES. : 
a ca aes cates ala’ ies ck a a ea a ts ae cw canes Sigs cass = seo as Last PAGE : re #EERESRESCHESEEEESESEEEEEEESEESEEEESESOSSSESEESERESESSESERESESSES ESSERE SUSSSS 
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004C 35 20 0069 106 i ABEND,» X* 20° 2 LOAD PLOTAR WITH’ (ERD) ADDRESS. | 0080 F3 00 04 113 SIG 430 1 ENABLE THE DUAL PROGRAM MODE. 
0050 F1 00 00 108 APL2B APL oO 2 PROG. LEVEL 2 APL WITH DUAL PROG. ! o 0083 “1 00 00 175 APL GO i ADVANCE TO PROGRAM LEVEL 2 
109 * MODE ENABLED. [os 176 + (JUMP TO P2) 
119 + Ap ROG. LEVEL co Seer ae 0086 F3 00 00 178 Pi S10 0» 0 1 DISABLE THE DUAL PROGRAM MODE. 
112 . oy - 
ss PAD, X*E7® 1 GO TO NEXT IF P2_XR1 3 XR2 WERE 
ape iS S770 ig. eee 2 + COATSCCERNIRD EeAreze oro wor | ggeg 28 ST 8853 Ho GET SABAH 1 SRcTECHEBTAAS SRcS*Loiedeh.¥! 
0057 F3 00 00 115 END S10. 6,0 1 DISABLE DUAL PROG. MODE. sas. Wgositorse-4é 182 HALTT HPL UNITS, TENS : © PROG F2. HALT 7+, 48 RROR eaey 
005A CO 87 OOSE 11? 8 TIO 1 GO TO NEXT TEST Ne 18% ; ® FAILING FUNCT i 
119 Leann Nt OEHEFESESEOEESSERERERELRES TESESESESSSSSSSESSSEES SEES ESESER SESS, 186 * 
1b) seeees (110) teeeee: ~ 0094 C2 01 FFC3 183 P2 LAK *FFC3* 9 XRI 2 LOAD xR1 TO -FFC3- 
122 *#+¢e¢8 seee4s! 189 eee 
123 seeses THE DUAL PROGRAM CONTROL +e0ee8) 0098 C2 02 FFE6 190 LA X* FF66* pXR2 2 LOAD xR2 Tf? -F566 
ioe oasene TAnceL ee ac ESET ONE*. soseee: is 009C 34 03 OOFD 132 st PAD, X*03° 2 STORE XZL € XR2 IN LOC FC € FD. 
126 **#e44% S450s 
157 seese¢ TEST (1) DPF BRANCH CONDITION seeeee OOAO FL 00 00 194 APL O 2 ADVANCE TO PROGRAM LEVEL le 
128 *«eee¢% (2) CANCEL SW 84686; co 195 * 
129 #9844 (3) 6 Brets OPEN seseee *, 
130 «enue (4) Q BIT 7 SHeSSE; 
13] teeees (5) INTERNAL sasese 
132 eesees easaee ¢ . 
2 SO8SSSREEEESEERESEESSESEES ELAS OO RIESSSELESORERES SEES SESSSCESSESESSEEES Xa 
1 
ca 1D OF2-0 
DATE 29aUGT75 PROG 10 OF2-0 . DATE 29AUGTS PROG 
EC NO. 827804 PAGE 72 EC NO. 827804 PAGE 72a 
oom 
oo 
! B. 
| (> 
| 
1G 
| 
| 
; 3 
| 
io 
, © 


CHOHOCKOCHOOCHOHO OOOO OCHOHEO OOH HEOOHSOHOOOECEEE® 





IBM MAINTENANCE DIAGNOSTIC PROGRAM 


OF 20 CPU AND MEMORY OIAGNOSTICS: 
ERR LOC GBJECT CODE ADOR STMT 


few 
we 
a 


Ooooos 


O00A3 35 OF OODF 
OOAT 35 40 OOEE 
OOAB F3 00 04 
GOAE F1 00 00 


0081 34 OF OOFD 


0065 Fl 00 00 


0088 F3 00 00 
OO8B OD 03 OOFF O0E1 
ooci 3 03 


00c5 3C 20 
o0cs co 


O18E 


O16A 
81 0169 


OOCO FO 3C 7% 


SOS OCUAIATUUINS FS PEPE? PS BUUTECULUUNNNNNNANNNIEnrnnnMr Ooo SOO SSOOS 
RNIN & OOO USD WHO 4LOVOU PW OVO DNAUS UN HOV DAUAUS WKH OODSNAUS WR HOD OHO ULSUNHOOD 


PEAS OMNMUIUNN MUNN S BHA HDPHD PHU WWwWWWOIWWWNRMAAIRINID DA) be fe pe et ee ee OOOO 


DATE 2 
EC NO. 8 


PROGRAM F2 


HOD 12 


SOURCE STATEMENT 


SHERKERSLESSSASKSSKKALSTARSARKKRSSBRS 


SkeRSE 
eeEKSR 
S44282 
RAKES 
SakBIS 
#326449 
RESRSE 
2RRBBS 
KRSEASL 
RABERRS 
SERRE 
£22405 
SREKKS 
REKRERG 
e£2S4RR 
BEKKSE 
CERSERS 
+0208 
RSSKEE 
*eEeSSE 
Sk tUee 
SSR eos 
B42 48¢ 
#ERSES 
sBensR 


—OOTais FPO PRU 
WCREON MOD MOD FV 


mMmO-< 
“ 
nd 


SRMSSTRKSSAGIKSKS ESR HKKEERSE SE SES ROR: 


sah a ee 
SERASG} 
REGRYEH! 
FEBSSE! 
SERETH 
SERGE 
le SHEtee 
SSERGESS 
re SSeess 
seaneel 
R SEKSAE 
BASees 
$eso49! 
SEPSee 
ESE SR 
Soenae 
SESSLER) 
SeRGEE 
E eeenes! 
OR REKEEE| 
BERETS 
KEES 
SkSSSE 
oee889 
*e48 


ELECT THE LSR'S 
ECIFIC PROGRAM 


2 
FOS SSSESSOSS OST OSS 9S 99958929909909040000890592000009909078055095000488 


FARTS 


Hen 64 


STORi 
* 


END2 
* 
2 
* 


3 


HALTS 
s 


¢ 
2 


L 


$10 
APL 


ST 
APL 
$10 
cic 
wVI 
MVI 
E 


HPL 


XSS1LA,X*OF* 


ADPL22,X*40° 
4,0 
0 


PAD X*°OF® 
0 
060 


DAP (4) .XAA21 


BOOT¢37,X "03? 
BO0T*1,x*20° 
soot ” 


UNITS,TENS 


| 
LOAD P1I-ARR»PSR»XR1 E XRZ 
81TH T2.e47° | 
(CR 15° SET TO FALSE,DEC OVEL § 10); 
LOAD P2-1AR WITH ADDRESS OF (PL22) | 
ENABLE OUAL PROGRAM MODE { 
ADVANCE TO PROGRAM LEVEL 2. 
JUMP TO (Peosh 

| 

! 

t 

i 

’ 


STORE P1I-ARR,»PSReXR1 E XR2 
IN LOC ~OOFe & OoRb=— 


eet TO PROGRAM LEVEL 2. 
JUMP TO (STOR2). 


DISABLE OUAL PROGRAM MODE. 
COMPARE DATA LOADED 
LEVEL H 


‘ 
{ 
| 


INTO 80TH PROG 


LSR°S WITH THE OATA READ GUT 
OF THOSE iSR'S AFTER ADVANCING. | 
SETUP TO BYPASS INITIAL HALT ON Last’ 
HALF OF DUAL PROGRAM TEST< 
GO_TO BOOT IF DATA STORED SAME 
AS DATA READ OUT. 
$ PROG FZ, HALT Be ERROR HALT 
* FAILURE: DATA READ OUT OF THE PROG' 
* LEVEL LSR'S DID NOT EQUAL THE 
* OATA ORIGINALLY LOADED. 


PROG 10 OF 2-0 
PAGE 13 
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A Py oe 


cs 


gon 
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ERR LOC OBJECT CODE ADDR STHT 
C000 35 OF COE: 263 
264 
265 
266 
0004 Fi 00 90 267 
: 263 
269 
OODY 34 OF OOFF 270 
271 
272 
0008 Fi 00 00 273 
27e 
275 
276 
OOOE 551A OODF 277 
OOEC AA2Z1 OOEL 278 
QOE2 0094 OCE3 279 
O0E4 0030 GOES 280 
OOE6 0043 OOE7? 281 
QOE8 0657 OOE9 °82 
OOEA O3FE OCE8 283 
OOEC 03 OOEC 284 
OOED 0006 QOOEE 285 
286 
OOFF 287 
0004 288 
0001 289 
0002 290 
OOFO 291 
0169 292 
003C 293 
0076 294 
295 
FFFF 296 
DATE 29AUGT75 
EC NO. 827804 


PROGRAM F2 MOD 12 
SOURCE STATEMENT 
PL22 it XAA21¢X°OF* 
& 
APL 9 
& 
$TORZ ST = PAD#20X*0F* 
APL 
S 
XS51A DC xLz2'S5148 
XAA21 OC  Xi2*AA21¢ 
ADDP2 DE = aL 2P2) 
ADERR 0 ALZ(ERROR) 
AUPL2 DC AL2¢PL2 
ADEND DG = AL2( END) 
XO3FE OC XLZ*O3FE* 
XFEO3, DE = KL +g38 
ADPL 22 AL2(PL22) 
DAP = EQU. 255 
PSR EQU: -. K* 4s 
XR1 EQU XQ] 
XR2 EQU K*O2t 
PAD EQU 253 
BOOT EQU xX*169° 
TENS. EQU | xI3C8 
UNITS EQU x*768 
END 


LGAD 


WITH 


P2TARR» PSReXRE & XR2 


~ 


{CR IS SET TO BIN OVFLW & EQUAL) 


ADVA 
JUM 


STOR 
IN 


ACVA 
JUM 


NCE TO PROGRAM LEVEL i. 
P 70 (STOR) 


E_P2-ARR»PSR»XRL E XR2 
LOC -OOFE & SOFF-. 


NCE 1G PROGRAM LEVEL 1. 


UMP TO (END2) 
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PART NOw 4248201 
PAGE 74 | 
OF20 CPU AND MEMORY DIAGNOSTICS: PROGRAM F2 MOD 12 | _. OF20 
CROSS-REFERENCE | * 
SYMBOL T LEN VALUE OEFN REFERENCES { 
ADOF2 A Q0E3 0279 171 ee 
ADEND A OOS OBES Saee 106 j Ch 2 THROUGH 16 
DERR A002 QOES 0280 0071 Ze 
ADPLS2 A 00 BOEL O65 253 tae 
APLIA 4 003 0032 0073 | GBK GBB PN 42 
ABER 093 SBA GDRs lala 
APL2B & 003 0050 0108 Tee saChetm 33d 
Bae" & 881 GME See ggage o2see o2ss I eacoepeeees 
END &£ 003 0057 O115 0282 | .TenaS “C3 COIGS 
ERROR A O03 0030 O68 0123 0280 | ° 
HALTL A 003 6000 0016 . ‘ | _ T+#-BO/0ASaC1L6(M 
RALTS A O03 0025 goa7 © O23 1c it aoe 
HALTS & 003 0040 0091 j Tele a ea I< 
HALTS A003 0062 0138 
HAET6. A 003 0079 0153 0144 0147 0148 0149 | («© 9 secscee 
EE £983 8828 883 poe 
PAD € O81 OOFD 0291 00208 0022 0032 0034 0180 01926 0240 0270 Lob aes = 
PL2,  & 003 0043 0098 0283 . | ( ERMtsETe=~0C"PHS 
PL22  & 004 0000 0263 0285 - 
PSR € OOl 0004 0288 
PL A 003 0086 O178 i 
BS A004 6094 0188 0279 ; 
START2 & 604 O02C 0071 035 ik 
STARTS & G04 OO7C O17] 0252 
_ SFARTS A 004 OOA3 0229 0283 Pee 
—_ —S5TOR] 2 004 0081 0240 G 
" §FOR2 & 004 GOD? 0270 | 
FENS € O01 003C 0293 0026 0025 0037 0091 0138 0153 0183 0258 
FIG! & 004 GOSE 0135 0117 : 
F102 & 00% O065 0144 0135 bc 
UNLTS € 601 0076 0294 0016 0025 0037 0091 0138 0153 0163 0258 | 
UVWXYZ A O01 8600 0004 
XAAR21 A OO2 GOEL 0278 0248 0263 _— 
XFEQ3 A OO] OOEC 0284 0030 0034 C3 
XRI € O01 8001 0289 01884 { & 
XR2  -€ GOL 0802 0290 03908 i 
XOSFE A 002 OOEB 0283 0018 0022 hae 
XSS5S3K & 002 GODF 0277 0229 ee 
FOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = ; 0 | 
toe, 
1 a 
| 
1 © 
! 
ie 
a 
fs 
{ us 
| 
- 29auG7 PROG ID OF2-0 < DATE  29auGT7S 
-PA'Ee, §24¥675 | PAGE Te EC NO. 827804 
| ce 
a 
© 
{ 
_ 
oO 
| 
Oe, 
| ee 
| 
{ 
| 
lo 
i 
{ 
j.- 
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CPU AND MEMORY DIAGNOSTICS: 


CL 17 THROUGH 32 


48200 EC 827604" 
** tec ace *22-6I 
3°°c1°°c3°esn'c 
“ene" aD 1<°°C7 


°° "aC ta BLOC a8 


Pees eeeeeeeszoanasn 


=" 7M EF | toc 


PROGRAM F2 


MOD 12 


OBJECT CARO LISTING 


CL 33 THROUGH 48 


Cpu’ & MEMORY TES 
O1GOSE CID" "54 
Lat OHF ta<° "<8 
x 17°-68TaC160-6 


ak” EDOHDAE="a) TH 


Cconecscnecseses 


Fz 


ASC 


RA 


THE CHARACTER * INDICATES A BLANK COLUMN ANO THE CHARACTERS D E A INDICATE NUMERIC SHIFT. 


CL 49 THROUGH 64 CL 65 THROUGH 80 


tS MOD 12 
A” 14° 8<8a°B30160 


G E#A AVaC160EE 


‘mO@HB"604 OC*ae” 


t°e6n °° °acoceas” 


So 


84aa84aa 
56 Cvaé (a0 DiM” 
* $eDA GXA -A90E< 
(68° 73N° "493° “7 


“NJDDHEBM C4 E0A 


eseoe 


12010630750 © 


ART NO. 424820 
AGE : 32h 


Ci 81 THROUGH 96 


eeeseee008 


0F200000 
“9"D" 1B40F200001 
* 3° °6200F200002 
1°” "pse0F200003 
P' "8" PYHOF20000¢ 


*3<0F200005 


82875 18-0F 200006 


ween mene mmne LAST PAGE mame enn nn nnn nnn 


PROG I0 
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OFF 
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ERR LOC OBJECT CODE ADDR STHT 


0000 


0000 FO 3C 57 


0003 35 40 OOBC 
C007 F3 00 046 
Q00A FO 7F TF 
000d F3 00 900 
0010 FO 3C 57 


WPEUNHODONAUBWN HOD DVNOAU SWE OOD SWND 


00:3 F3 00 00 
0016 CO 87 0036 


DPPH HPWWWIWW WWW WNNRNANINN RIN be re be nt he ee ere pet 


NSW O DONO 


OO1A CO 80 0022 
OO1E CO 87 0028 
0022 F3 00 00 
0025 FO 3C 57 


0028 FO TF VF 
0028 35 20 OOBE 
O02F Fl 00 O00 


SOE OO ee 
WHHOVDNOUSWNHOODUES 


SOW 


0032 CO 87 OO02F 


SOURCE STATEMENT 
SEQ 0 

UVHXYZ START O 
TREP 


+ SECTOR 32 
SEKKSEEERSERESREHLEELRERLE ALES LSALSERRASATS HEE VIS KLELEHKSKARRELAGKAGEEERESS 


emma betnerten | ame se vantetee seremnnmneesmneey Urthateh embtrt Speiire aeRO, 


PART NO. 4248201 
PAGE 5 


qT 


PROGRAM F3 MOO 12 


Se ety eer AR MAIR RENIN Heemuana mo wet’ 


DECK 4 


eenen herman terete SE 


* 2! 
* PROG F3 +! 
* DUAL PROGRAM FEATURE TEST *, 
& TEST (1) THE ABILITY TO BRANCH IN PROGRAM * 
* LEVEL TWO AND TO TURN ON ALL THE * 
* HALT ID LIGHTS IN 650TH PROGRAM * 
* LEVELS IS TESTED. : 
* THE PROGRAM WILL CAUSE HALTS '88! * 
* TO OCCUR IN BOTH PROGRAM LEVELS. * 
* PROGRAM LEVEL 2 HALT SHOULO BE +! 
2 RESET FIRST, THEN PROGRAM LEVEL * 
2 ONE HALT SHOULD BE RESET. + 
EHERSERAR LS ERE EAERELOAEEESEEESE ES SEE BERET HERERSORGDEEEESERS OEEREREREREER 
* PROGRAK ' 
* LEVEL 
HALTL HPL UNITS, TENS 1 PROG F3, HALT i. 
* 
Pl L ADP2:X"40! 1 LOAD P2-IAR WITH ADORESS OF P2 
S10 X*04*,x*00! 1 ENABLE DUAL PROGRAM MODE 
HALT2 HPL X°7F*,X*7F# ~88- HALT—-EXPECTED 
ERR1 SIO O70 i * DISABLE DUAL PROGRAM MODE 
1 
HALT3) HPL  UNITS- TENS 1 * PROG F3, HALT 3. ERROR HALT 
* * FAILING CARD#@ A-B8302 
* FAILING FUNCT 1 ; 
ENO SIO 070 1 DISABLE DUAL PROGRAM MODE 
B START2 i GO TO NEXT TEST 
P2 Bc ERR2.NOGP 2 NO-OP BR TO ERR 
8 HALTS 2 UNCD BR TO EXIT 
ERR2 SIO 0,0 2 * DISABLE DUAL PROGRAM MODE 
HALT4 HPL UNITS, TENS 2 * PROG F3, HALT 4. ERROR HALT 
* * FAILING CARD# A-B302 
: * FAILING FUNCT 1 
HALTS HPL X*7F°,X"7F¢ ~898- HALT—EXPECTED 
L ADEND,X*208 2 LOAD P1-IAR WITH ADDRESS OF END 
WAIT APL O 2 ADVANCE TO PROGRAM LEVEL ONE} 
* JUMP TO END WITH PI HALT LATCH 
STILL SET. 
8 WAIT 2 LOOP ON APL UNTIL HALT IS RESET 
PROG ID OF 3-0 
PAGE 75 


OF30 


0036 


OG3A 
9030 


0041 


0045 
9048 
CO4e 
0052 
C056 


0059 
05D 
0060 
0064 
0068 


006C 
0070 


0073 
0076 


OOTA 
0070 


DATE 
EC NO. 


35 


F3 
34 


3% 


35 
F3 
co 


80 


00 
80 


80 


00 
80 


os 


3c 
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COBA 


C6 
OOFE 


OOFC 


0084 
06 

0060 
0080 
0045 


0073 
07 


00 
COoB2 


Ol 
57 


ond 
BPODDUAUDWAHOVONAULDWN MS 


5 HALT HPL 


DOOOVOO OOOO 00 ODOM WW HWM DONO 
DONO EWA wo 


(post pend pres fone ped pnt pat fons fee rd rt fod ead Pe esd al aed ek eat fod fant uae fad peat pad rad fut pat PaaS fans ford rat fond 
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PROGRAM F3 

SQURCE STATEMENT 


SESSESEESEHEKKKAAELRERSESRAESEKAESKVESESHESKESHSESASTORVSERHESRETA STKE SESKSRAACSEE SKE 
#4248 ; 


M00 12 


£OeS08 
#t2485 INTERRUPT LEVEL 0, DUAL PROGRAM ##RERE 
ASHES ££E308 


SRESECSSE TE SSSELAEEBESS LES SEEK ESSERE SRLS PRK SKEKTSESSKKREKSSERAEKTSE ESE SAAS SEKEAES 


START2 L ADRSET,X* 80° 


LOAD INTERRUPT LEVEL O TAR WITH 
ADORESS OF RESET. 


$i0 X*06%s.xX*00! ENASLE INTERRUPT LEVEL O 


STOR1 ST PAD+4,X*°80! STGRE INTERRUPT LEVEL O IAR IN 

+ ioc 6-FE & FF-. 

STORZ2 ST PAD+2 9X* 80 * STORE INTERRUPT LEVEL 0 IAR IN 

* 10C -FC & FDO-. 

RESET $10 X*O01%,X*0G' RESET INTERRUPT LEVEL O i1F ACTIVE) 
STOR3 ST PADeX*80* STORE INTERRUPT LEVEL O IAR IN 

* LOC -FA & FB-. 


CLC PAD44(6),ADRSET BRANCH TO NEXT IF INTERRUPT 
BE STARTS tee t on 


IAR WAS OK FOR STOR], STOR2 & STOR3 


*® PROG F3, HALT 6. ERROR HALT. 
# FAILING CARD# A-B3Q2 


UNITS, TENS 


+ 
s 


ST eee reer n teas eh eene ee Renter eee One Cee S PASAT OSS SCALES S CAF OSS EES 
; INTERRUPT LEVEL Of DUAL PROGRAM . 
* TEST (1) INT QO TAR/ARR SELECT * 
: (2) ALU BIT 7 : 
EKERESSSESSAEEEKSESESSSESELESESESEREE SESE EEEESEESERESELESEREEE SEE CENERERED 
START3 L ADINT,X*'80° LOAD INT LEV O TAR 
$10 X*06%,X*OO! ENABLE INTERRUPT LEVEL © 
tcoP 6B Loop WAIT HERE FOR INTERRUPT 


INT L ADHLT7.X*20° LOAD PROG LEVEL 1 IAR TO HLT? ADDR. 
NGOPB BC RESET ,X°80° NO-GP BRANCH 
UNCD B NEWLD UNCONDITIONAL BRANCH TO NEWLD 
J RESET2 GO TG RESET IF UNCD FAILED. 
NEWLO SIO 0,0 CISABLE DUAt «& INT 
L ADBGOT,X*20° LOAD O7CC civic 1 TAR TO NEXT ADDR. 
RESET2 SIO X"OL* sX*00° RESET THE INTERRUPT 
HALT7T HPL UNITS, TENS * PROG F3, HALT 7. ERROR HALT 
* * FAILING CARD# A~B3Q2 
: . * FAILING FUNCT 12 
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< o wd 
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OBJECT CARD LISTING ERR LOC OBJECT CODE ADOR STMT SQURCE STATEMENT 
THE CHARACTER ” INDICATES A BLANK COLUMN ANO THE CHARACTERS D E 7 INDICATE NUMERIC SHIFT. @ A CON 6 
CL 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THROUGH 80 CL &1 THROUGH 96 ooee er UUMANE 3 Tan eo 
é SECTOR 3 
£ 7 segtaeeeesesesesseeeaaseneeserenasaesenasssssceeseceesssesseeensssesess 
e ° eee e 2 e e ee. @ e eeaceove « eeeooeaeo eseeeoaenen * SKKEKS See20 
GBK GBD’ °PN°42 48200°EC" 827804 CPU & MEMORY TES TS MOD'12 84aa84aa 0F 300000 5 asesne INVALID OP CODE TEST tases 
10 sesae o00448 
° oe ° eee ae o e oe o eo. e ° ee e e e e e - 3 eeaet * 
T+" :aC1P(M 21< AL Atan< i ane< <BG C$ - sone Awe i aN"A"= 3M = SMT c°70' 719 >2< EKYOF300001 C th FRVKS SRKEREGSSESSHS SKIKE SSRESEDHEAES STA BEKSSESRSSSEKSESSESLESESEREBEKRTS * “&s 
12 
Te-AS 04 CH( HY CMEC LK IVOAEC = 70 -GARACIP(Q”  "_I<"AZBGF'5H"B GOH” J#8G°GI2/0~ 3° °° 2300F300002 OEE ES gets Tenet RPE. ONE PRE-EXECUTION ACT 
14 
oe eo e oo, e e oe ee oe oe ° eoie o e & e Cy 
T+-BOUK’ 32<° =") ANBN” HOS—'8>aO” -FaG'Z(K” OID’ I< “CO” O8aEEEDOH* ASLN~ <.3°* SOB U G& "HEOF 300003 eoae eaoeoG oon ke pe. Sta esogoes eT Ocoee ane 
«888 S3e00100 go1o ie Be XtasS3000100° PAV ALD BRENGRESS INSTR 
TDECB H R AE OM JE E AX VEEt $-<0F 300004 001i 3&000100 0016 1° DC XL 4* 3E000100° INVALID 1 ADDRESS INSTR 
Bets 2se8etob0100 §=— soe be «KL es aggcotooo100" THN ALGO 2 RDDRESS INSTR 
ENMSET#=—0CMPHS ="TMEFL | OC Fe asC RA SO Q 12010630750 628751YZ0F 300005 OOF 050001000100 0024 22 oc XL" 0S0001000100" INVALID 2 ADDRESS INSTR« 
0025 030001000106 0028 23 BE + xL6*090001000100! INVALID 2 ADDRESS INSTR- 
: 25 HESEESOSERES ET KVEKETHKELISFEKEKSHKESEAERSESERSHIHSES KS SESE SHES SSLSSSESSHVKSSSKE TSS 
36 s80898 ; +eenes 
rs 37 teeeae PARITY CHECK CIRCUIT TEST seaeee 
ae 28 se0s¢6 eteses 
293 ROTOR ee 5 ca fe ea hea ea ceaes eke see ceeweasanseeeadaeseavese 
30 
Cee a) ey —_— 31 crc tt 
0028 0C 63 0418 0054 32 MVC - X 0418 * pBRBACK(4) SET UP TO ER BACK WHEN FAR ALTERED 
0031 35 01 0056 34 L SARDAT »X*OL® PUT HEX -0404— IN XRL 
. 0035 34 11 003A 36 ST OPGpX* 118 OR JAR 6 XR1, RESULT HAS BAD PARITY. 
37 + RESULT (F2k -O415-) FORMS TH 
38 * LT, oBvies OF NSE. 
f 
‘ 40 * *NOTE— IAR IS ALTERED TO HEX -0415- 
41 * * WITH BAD PARITY 
003¥ 0000 0034 43 OPQ = DE XL 2 00008 SHUD CONTAIN HEX -0415—, ZAZ_INSTR. 
0038 FFFFFFEF O03E 44 D XL4* FFEFREFFS BDRS BYTES OF ZAZ INSTR. THIS DATA 
45 ¢ FORCES ADRS. CHECKS WHEN SAR LOADED. 
a? 
003F OC 04 010A 0058 “8 HVC CNTFLO(5) ,0CP SET UP FOR LOAD OF DCP 
0045 3€ 00 O18E 49 MVI 8001437 9X°00° SETUP TO GIVE CONTROL AT 0000 
9049 3¢ 0) O16A 50 McI «© BGOT41,x"O1* 
0040 CO 87 0169 51 8 OoT BRANCH TO GOOTSTRAP. 
33 
0051 €0870039 0054 84 BREACK OC  xL4*C0870039" BRANCH INCTTK' lSiee 
0055 0404 0056 85 SARDAT DC XL2*0406* DATA LOL!-> INTO XRLe 
0057 0000030011 0058 56 DCP = Ot == xt 5*0000030011° 
0169 88 BOOT EQU x'169° 
0036 59 TENS EQU X'3C° =f 
Q0is 60 UNITS, EGU Xt 16. -4- 
O1DA 61 CNTFLD EQU x" 010A" 
FREE 63 END 
A A I Re A EP EN ER AM OS A EY NS EO A EN I A YP A ee ce ete cre ee ent ee ee ee ee ce ee ee ee ne ree ee ee t AST Pp AGE A Oe eR OD ee ee ee ee ee ee ee oe ee ee ee ee eee ene ee ee ee ee ee [a aaateeeetaeaal 
DATE 29AUG75 PROG 10 OF 3-0 o 
ATE  - 29AUGT5 PROG ID OF 4-0 
EC NO. 827804 PAGE 77 EC NO. 827804 PAGE TTA 
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CROSS-REFERENCE as OBJECT CARD LISTING © 
SYMBOL T LEN VALUE ODEFN REFERENCES ' ° . 
THE CHARACTER " INDICATES A BLANK COLUMN AND THE CHARACTERS BD E A INDICATE NUMERIC SHIFT. 
poot C001 0169 0058 0049 0050* 0051 
BRBACK A 004 0054 0054 0032 CL THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 Ct 65 THROUGH 80 CL 8&1 THROUGH 96 
CNTFLD C O01 OLDA 0061 0048* 
oce A 005 0058 0056 0 ig 
HLTL A 003 0000 0013 t es e e een e e e e 2 e e ee2eeen eed e 2eeoeee8 eeaoeooene oe 
GPO A 002 003A 0043 0036* | GBK’ GBD’ "PN"42 48200 EC 827804 CPU & MEMORY Tes TS MOD'12 84aa64a@ 0F 400000 
Panoar 987 9886 833 S38 ic 
UNITS. € O01 0018 0060 0013 yee" pacose 78 “oo “cL &='D (OA CEA eeeaT UB AO «CAA- NCHA ECSDE) == = 4#E0F 400001 
UVWXYZ A OOL 0000 0004 
TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 ‘ea TH’ASM@aRNQOD bY “030° O8a EEDOHS eesti oe ao +7” 0F 400002 
: Qe =nyerl tC "eg "asc RA soa 77" 12010630750 828750040F 400003 
| 
iO 
| 
he 
| 
| C3 
\ 2 
ee | = Bice ae 
| eas t 
| Con 
| 
c 
i 
| = 
ae 
13 
i 
DATE 29AUGT5 PROG ID OF4-0 © DATE 29AUG75 proc 10 OF4<0 
EC NO. 827804 PAGE 78 EC NG. 827804 PAGE 78A 
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